package Foo;

sub new {
    my $proto = shift || die "Must pass a class or object into new()";
    my $class = ref($proto) || $proto;
    bless {}, $class;
}