#!/usr/bin/env perl use SelfLoader; use strict; use warnings; printf "%d\n", F_Undo(); F_Also(); __DATA__ sub F_Undo { my $x = 1; my $y = 2; print "F_Undo called\n"; return $x + $y; } sub F_Also { print "That's all!\n"; }
#!/usr/bin/env perl use SelfLoader; use strict; use warnings; printf "%d\n", F_Undo(); F_Also(); __DATA__ sub F_Undo { my $x = 1; my $y = 2; print "F_Undo called\n"; return $x + $y; } sub F_Also { print "That's all!\n"; }