Re: Interfaces in Perl?

[rpc]

I'm suprised no one in the previous thread mentioned can. I can't find an entry for it in the perldoc, Will something like this work?

foreach my $meth(@required_methods) {
  unless($obj->can($meth)) {
     die "Object has not implemented or inhereted method $meth!\n";
  }
}

can walks @ISA as well, AFAIK.
Update: Will this only work at runtime, and not compile time?