| handwaving here..
use Dog;

    # updated this on 2013-04-24, error in original code
    my $dog = Dog->new(breed=>'Poodle');
|
|