package NewDog;

use strict;
use warnings;

my %breed;

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

    my $self = bless {}, $package;

    # fill in fields on key
    $breed{"$self"} = $breed;

    return $self;
}

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

1;