01 use strict; 02 use warnings; 03 04 use Switch; 05 06 =head1 07 switch ($foo) { 08 case 1 { print "yay\n" } 09 } 10 =cut 11 12 sub foo1 { 13 my $bar = shift; 14 warn "In foo1\n"; 15 warn $bar; 16 warn "Leaving foo1\n"; 17 } 18 19 sub foo2 { 20 my $fbar = shift; 21 warn "In foo2\n"; 22 warn $bar; 23 warn "Leaving foo2\n"; 24 }