Bob Showalter wrote:
> sub foo {
> my $self = shift;
> my $class = ref $self;
> if ($class->can('foo') eq \&foo) {
Oops, this should be $self->can, not $class->can
> print "$class does not override foo\n";
> }
> else {
> print "$class overrides foo\n";
> }
> }
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
