##
sub new {
my $class= shift(@_);
Carp::croak "Usage: ",__PACKAGE__,"->new( ... )"
if ref $class;
# ...
}
####
sub new { bless {}, ref $_[0] || $_[0]; }
####
sub new { croak "new takes class" if ref $_[0]; bless {}, $_[0]; }
####
Can't locate object method "twirl" via package "Bar=ARRAY(0xbadd0g5)"