1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
# Example 1 my ($var1, $var2, $var3); # Example 2 package Foo 0.1; # Example 3 (intentionally incomplete, body is inserted by test) sub do_stuff # Example 4 sub do_more_stuff ($param1, $param2) { ...; } sub oops { ...; }