Select Code to Download

package Callback;

...
}

1;

package Parent;
use Callback;
...
}

1;

package Child;
use base qw(Parent);
...
sub do_something { ... }

1;

my $child = Child->new;

  $obj->$coderef()