Select Code to Download

package Foo;
sub foo();
...
package Bar;
our @ISA = qw(Foo);
sub new { bless[] }

$b = new Bar;
$b->foo();

$sub = $obj->can('foo');
# $sub references the sub that would be called if you
...
# ...a bit later...
#
$obj->$sub(@args); # same as $obj->foo(@args);

$meth = 'foo';
$obj->$meth(@args); # same as $obj->foo(@args)

$"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc