Select Code to Download

package Foo;
...
    # object reference will be on *this* @_, not the 
    # one below.
    my ($self, $name) = @_;

    return sub {
        if ( $name ne 'foo' ) {
...
my $sub = $b->do_something('foo'); # supply args here, not above. stor
+e the subroutine ref
$sub->(); # dereference it to run it