Re^2: Overriding several methods using 'local'

Replies are listed 'Best First'.
Re^3: Overriding several methods using 'local' by dragonchild (Archbishop) on May 22, 2006 at 17:05 UTC
In response to your update: This is where inheritance is quite useful. `package My::AnyPackage; use base 'AnyPackage'; sub can_read { 1 };` [download] Now, whenever you would do `my $obj = AnyPackage->new( ... );`, instead you now do `my $obj = My::AnyPackage->new( ... );`. And it will "Just Work". My criteria for good software: Does it work? Can someone else come in, make a change, and be reasonably certain no bugs were introduced?	[reply] [d/l] [select]

Replies are listed 'Best First'.

This is where inheritance is quite useful.

package My::AnyPackage;

use base 'AnyPackage';

sub can_read { 1 };
[download]

Now, whenever you would do my $obj = AnyPackage->new( ... );, instead you now do my $obj = My::AnyPackage->new( ... );. And it will "Just Work".

My criteria for good software:

Does it work?
Can someone else come in, make a change, and be reasonably certain no bugs were introduced?