Commit | Line | Data |
55a1c97c |
1 | use Switch; |
2 | |
3 | print "1..4\n"; |
4 | |
5 | my $count = 1; |
6 | for my $count (1..3, 'four') |
7 | { |
8 | switch ([$count]) |
9 | { |
10 | case qr/\d/ { |
11 | switch ($count) { |
12 | case 1 { print "ok 1\n" } |
13 | case [2,3] { print "ok $count\n" } |
14 | } |
15 | } |
16 | case 'four' { print "ok 4\n" } |
17 | } |
18 | } |