$VAR1 = bless( {
                 'breed' => {
                              'habits' => 'barks at strangers',
                              'temperment' => 'very loyal',
                              'size' => 'small'
                            },
                 'base' => {
                             'legs' => 4,
                             'nose' => 'wet',
                             'tail' => 1
                           }
               }, 'Dog::Cocker' );
$VAR1 = bless( {
                 'breed' => {
                              'habits' => 'leary of strangers',
                              'temperment' => 'fiercley loyal',
                              'size' => 'medium'
                            },
                 'base' => {
                             'legs' => 4,
                             'nose' => 'wet',
                             'tail' => 1
                           }
               }, 'Dog::CattleDog' );
yarf
tail wagging
shriek
tail over back