This is true. And I've since come up with this snippet:

my $self = shift;
my $obj = pop;

my $name = $obj->method->{name} || shift;
my $age = $obj->method->{age} || shift;
[download]

_14k4 - perlmonks@poorheart.com (www.poorheart.com)