package C;

use vars qw(@ISA);
@ISA = qw(B);

sub foo {};
sub isa {
  return $_[1] eq 'A';
}