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

#! /usr/local/bin/perl -w

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

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
88587957	1	#! /usr/local/bin/perl -w
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	}
	7
55a1c97c	8	use Switch;
	9
	10	print "1..4\n";
	11
	12	my $count = 1;
	13	for my $count (1..3, 'four')
	14	{
	15	switch ([$count])
	16	{
	17	case qr/\d/ {
	18	switch ($count) {
	19	case 1 { print "ok 1\n" }
	20	case [2,3] { print "ok $count\n" }
	21	}
	22	}
	23	case 'four' { print "ok 4\n" }
	24	}
	25	}