package pkgA;

sub test {}


package pkgB;

our @ISA = qw( pkgA );

our @test;

{
  no strict 'refs';
  @methods = grep $pkg->can( $_ ), keys %{ $pkg . '::' };
}