# instead of
my $class = shift;
my $self = bless {}, ref($class) || $class;
# try
my $self = bless {}, ref($_[0]) || @_