Help for this page

Select Code to Download

Select or download this

package A;
sub AUTOLOAD {
    my ($fn) = $AUTOLOAD =~ /^.*::(.+)$/;
...
print $a->can('not_shared');
print $b->can('not_shared');
print $c->can('not_shared');