#!/usr/local/bin/perl -wT
# test.pl

use Dog::Proxy;
use Data::Dumper;
use strict;

my $cosette= Dog::Proxy->new('cattledog');
my $moose= Dog::Proxy->new('cocker');

print Dumper($cosette,$moose);

$cosette->bark; $cosette->wag_tail;
$moose->bark; $moose->wag_tail;