my $foo = Bob::MyObject->new(...) ; # or new Bob::MyObject ... my $foo = $bar->new(...) ; my $foo = Bob::MyObject::new(...) ; #### my $class = ref($proto) || $proto || __PACKAGE__ ;