Select Code to Download

package dog;

...
}

1;

package dog::cocker;
use dog;
...
}

1;

use dog::cocker;

my $sasha=new dog::cocker;

package dog; 

...
    print "Woof!\n";
}
1;

use dog;

...

$sasha -> bark();

package dog::samoyed;
use dog;
...


1;

.
.
...
.
.
.

# after the "my $self" line we add:
     %def_attrs=(
...
       $self->{$key} = $def_attrs{$key} if not $self->{key};
     }

package dog::cattle_dog;
use dog;
...
}

1;

package dog; 

...
   print "tail wagging\n";
}
1;

use dog;
use Data::Dumper;
...
$moose->bark; $moose->wag_tail;
$cosette->bark; $cosette->wag_tail;
$frosty->bark; $frosty->wag_tail;

$VAR1 = bless( {
                 'voice' => 'yarf',
...
tail over back
yarf
tail wagging