Help for this page

Select Code to Download


  1. or download this
    print "*** ($capsule) *** Result: ($result)\n";
  2. or download this
    # capsule overload eval-ing : ${$_[0]} eq $_[1]
# capsule overload returning: 1
*** (It's a widget!) *** Result: ()
# result of comparison: false
  3. or download this
    *** (It's a widget!) *** Result: (1)
# result of comparison: true
# result of comparison: false