"Class::Next=HASH(0xdeadbeef)"->new() #### 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)"