Instance METHOD IS  $VAR1 = {
          'AUTOLOAD' => *test::AUTOLOAD,
          'ISA' => *test::ISA,
          'BEGIN' => *test::BEGIN,
          'DESTROY' => *test::DESTROY,
          'new' => *test::new,
          'Package' => *test::Package
        };
testB1

Instance METHOD IS  $VAR1 = {
          'AUTOLOAD' => *test::AUTOLOAD,
          'ISA' => *test::ISA,
          'PackageB1' => *test::PackageB1,
          'BEGIN' => *test::BEGIN,
          'DESTROY' => *test::DESTROY,
          'new' => *test::new,
          'Package' => *test::Package
        };