package Foo;

use Scalar::Utils qw( blessed );

sub new {
    die "Must pass a class or object into new()" unless @_;
    my $proto = shift;
    my $class = blessed($proto) or $proto;

    bless {}, $class;
}