package OldDog;

use strict;
use warnings;

sub new
{
    my ( $package, $breed ) = @_;
    my $self = { breed => $breed };
    return bless $self, $package;
}

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

1;