Select Code to Download

print "*** ($capsule) *** Result: ($result)\n";

# capsule overload eval-ing : ${$_[0]} eq $_[1]
# capsule overload returning: 1
*** (It's a widget!) *** Result: ()
# result of comparison: false

*** (It's a widget!) *** Result: (1)
# result of comparison: true
# result of comparison: false