use Devel::Caller qw( called_as_method );

sub new {
    croak "must call new as method" unless called_as_method(0);
    ...
};