package OldStud;

use strict;
use warnings;

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

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

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

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

    return $self;
}

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

1;