package SomeClass;

sub classMethod {
    my $self = shift;
    die("Not an object/instance method") if ref $self;
    .
    .
}

sub objMethod {
    my $self = shift;
    die("Not an class method") unless ref $self;
    .
    .
}