use strict;
use warnings;

use Switch;

=head1
switch ($foo) {
  case 1 { print "yay\n" }
}
=cut

sub foo1 {
  my $bar = shift;
  warn "In foo1\n";
  warn $bar;
  warn "Leaving foo1\n";
}

sub foo2 {
  my $fbar = shift;
  warn "In foo2\n";
  warn $bar;
  warn "Leaving foo2\n";
}