return if ! defined $_[0];

##</code><code>##

rollback( methodfunction( 'foo' ) or goto NO_ROLLBACK );
NO_ROLLBACK:
print "done\n";

sub rollback {
    my $s = shift;
    print "rollback('$s') called\n";
}

sub methodfunction {
    return $_[0];
}