use Scalar::Util qw(blessed)

sub non_static {
    my $self = shift;
    die "Don't use as a static method" unless defined blessed($self)
    ...
}