package dog::samoyed;
use dog;
use vars qw/ @ISA /;
@ISA=qw/dog/;

sub new {
    my $proto=shift;
    my $class=ref($proto) || $proto;
    my $self => {
         habits => 'generally ignores strangers',
         temperment => 'lazy', 
         size => 'large'
    };
    bless $self, $class;
}


1;