package NewStud;

use strict;
use warnings;

use NewDog;
our @ISA = qw( NewDog );

my %breed;

sub new
{
    my ( $package, $type, $sterile ) = @_;

    # initialize superclass
    my $self = NewDog::new( $package, $type );

    # set new fields
    $breed{"$self"} = $sterile ? "no" : "yes";

    return $self;
}

sub does_breed
{
    my ( $self ) = @_;
    return $breed{"$self"};
}

1;