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

sub new {
    my $proto=shift;
    my $class=ref($proto)||$proto;
    my $self = { 
            habits => 'barks at strangers',
            size => 'small',
            temperment => 'very loyal'
       };
     bless $self,$class;
}

1;