Select Code to Download

package Base;

...
sub set_base { my Base $self = shift; $self->{_f} = shift; }

1;

package Derived;

...
sub derived { my Derived $self = shift; $self->{_f}; }

1;

#!/usr/bin/perl

...
is( $obj->derived(), 'derived', 'Derived::_f still eq derived' );

1;

sub PKG() { __PACKAGE__ }
...
    $self->{PKG.'.foo'} = 42;