Select Code to Download

package ModB;
use parent qw'ModA';
...
    return $c->SUPER::new ( @_ ) ;    
}
1;

package ModA;
sub new { return bless {}, shift }
sub p { print @_ }
1;

use ModB;
my $b = ModB->new();
$b -> p ( "World!" ) ;