Select Code to Download

$chain = sub { $_[0]->method1(@args1)->method2(@args2)->method3(@args3
+) };

#!/usr/bin/perl -wl

...
__END__
Bar->Bar::foo ok
&Bar::foo(Bar) not ok

for (@$chain) { ... }