Is there a mechanism to disinherit an inherited method? Such that $object->can( $disinherited_method ) can't?
Conditions:
my $example = new B; if( $example->can( "a3" ) { $example->a3(); # @$*&%! Still there. } else { print "Successful disinheritence!\n"; }
I've tried messing with Exporter in a bunch of ways, after reading the Camel 3rd ed. Unfortunately I glossed over the part on p889 until after I made a bunch of failed examples. I've tried undef( &A::a3 ), only to be greeted with an error I've not seen before (something like undefined subroutine a3() called at line...). Please, no recommendations to refactor my classes.
Much thanks in advance,
- m.
In reply to Perl OO Disinheritence by mikezone
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |