sub method {
    my $self = shift or die join(", ", caller()), "\n";
...
}