perl -wle'
sub X::foo {
    undef $_[0];
    print "X::foo()"
}
my $x = bless {}, "X";
$x->foo;
$x->foo;
'
X::foo()
Can't call method "foo" on an undefined value at -e line 7.