hoelzro · January 26, 2016 22:46
diff --git a/Getopt.pm b/Getopt.pm
 our sub MAIN_HELPER($retval = 0) is export {
    say "doing getopty stuff!";
    my $m = callframe(1).my<&MAIN>;
    return $retval unless $m;
    say 'calling MAIN with no args';
    $m();
 }
diff --git a/test.pl b/test.pl
 use v6;
 use Getopt;

 sub MAIN() {
    say 'The rain in MAIN falls mainly on the plain';
 }
	our sub MAIN_HELPER($retval = 0) is export {
	say "doing getopty stuff!";
	my $m = callframe(1).my<&MAIN>;
	return $retval unless $m;
	say 'calling MAIN with no args';
	$m();
	}
	use v6;
	use Getopt;

	sub MAIN() {
	say 'The rain in MAIN falls mainly on the plain';
	}