in reply to object inheritance in non ~.pm files

Change all the @ISA lines as so: 
package mammal::badger;
use vars qw(@ISA);
@ISA = qw (mammal);

--------

package mammal::badger;
BEGIN {
    @mammal::badger::ISA = qw (mammal);
}

[download]

Update: Added BEGIN{} around the @ISA assignment to fix mistake caught by PodMaster.

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

Replies are listed 'Best First'.
Re^2: object inheritance in non ~.pm files
by PodMaster (Abbot) on Jan 27, 2005 at 13:56 UTC
    And then clap your hands together because that doesn't solve the problem :)

    That assignment happens at runtime after $object is created, after hunt and snuffle methods are invoked.

    I would reccomend a BEGIN block, or even vars::i :)

     
    feeling kinda loopy

    MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
    I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
    ** The third rule of perl club is a statement of fact: pod is sexy.

[reply]

In Section Seekers of Perl Wisdom