Select Code to Download

sub foo {
    my $self = shift;
...

    die "Whiskey Tango Foxtrot";
}

print $obj->foo(undef), "\n"; # Prints object stringification
print $obj->undefoo(undef), "\n"; # prints a "\n"