Select Code to Download

package PkgB;
sub errmsg {
   local $Carp::CarpLevel = $Carp::CarpLevel + 1;
   PkgA::errmsg(@_);
}

package PkgB;
our @ISA = 'PkgA';

package PkgB;
our @CARP_NOT = 'PkgA';