Select Code to Download

package foo;
sub new{
...
    my $base = $self->{base_class};
    print eval "\$self->$base\::read";
}

no strict 'refs';
print $self->&{"$base\::read"};  # syntax error
...
# executes but ignores $base's inheritance, if any
no strict 'refs';
print &{"$base\::read"}( $self );

# code above package foo unchanged

...
}

# all other code unchanged