for my $i (@A::ISA) {
  for (qw(foo bar baz)) {
    print "$_: "
      .(A->can($_) == $i->can($_) ? " same" : " overwritten")
      ."\n";
    }
  }