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

BEGIN {
    if ($ENV{PERL_CORE}) {
        chdir('t') if -d 't';
        @INC = qw(../lib);
    }
}

use Switch;

print "1..4\n";

my $count = 1;
for my $count (1..3, 'four')
{
	switch ([$count])
	{

=pod

=head1 Test

We also test if Switch is POD-friendly here

=cut

		case qr/\d/ {
				switch ($count) {
					case 1     { print "ok 1\n" }
					case [2,3] { print "ok $count\n" }
				}
			    }
		case 'four' { print "ok 4\n" }
	}
}

__END__

=head1 Another test

Still friendly???

=cut
Commit	Line	Data
88587957	1	BEGIN {
6596d39b	2	if ($ENV{PERL_CORE}) {
	3	chdir('t') if -d 't';
	4	@INC = qw(../lib);
	5	}
88587957	6	}
88587957	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	{
d38ca171	17
	18	=pod
	19
	20	=head1 Test
	21
	22	We also test if Switch is POD-friendly here
	23
	24	=cut
	25
55a1c97c	26	case qr/\d/ {
	27	switch ($count) {
	28	case 1 { print "ok 1\n" }
	29	case [2,3] { print "ok $count\n" }
	30	}
	31	}
	32	case 'four' { print "ok 4\n" }
	33	}
	34	}
d38ca171	35
	36	__END__
	37
	38	=head1 Another test
	39
	40	Still friendly???
	41
	42	=cut