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

##</code><code>##

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

##</code><code>##

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