[p5sagit/p5-mst-13.2.git] / lib / Switch / t / nested.t

use Switch;

print "1..4\n";

my $count = 1;
for my $count (1..3, 'four')
{
	switch ([$count])
	{
		case qr/\d/ {
				switch ($count) {
					case 1     { print "ok 1\n" }
					case [2,3] { print "ok $count\n" }
				}
			    }
		case 'four' { print "ok 4\n" }
	}
}
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	}