...
my $class   = ref($object_or_class) || $object_or_class;
...
my $class = ref($proto) || $proto;
...