1*0Sstevel@tonic-gateBEGIN { 2*0Sstevel@tonic-gate if ($ENV{PERL_CORE}) { 3*0Sstevel@tonic-gate chdir('t') if -d 't'; 4*0Sstevel@tonic-gate @INC = qw(../lib); 5*0Sstevel@tonic-gate } 6*0Sstevel@tonic-gate} 7*0Sstevel@tonic-gate 8*0Sstevel@tonic-gateuse Switch; 9*0Sstevel@tonic-gate 10*0Sstevel@tonic-gateprint "1..4\n"; 11*0Sstevel@tonic-gate 12*0Sstevel@tonic-gatemy $count = 1; 13*0Sstevel@tonic-gatefor my $count (1..3, 'four') 14*0Sstevel@tonic-gate{ 15*0Sstevel@tonic-gate switch ([$count]) 16*0Sstevel@tonic-gate { 17*0Sstevel@tonic-gate 18*0Sstevel@tonic-gate=pod 19*0Sstevel@tonic-gate 20*0Sstevel@tonic-gate=head1 Test 21*0Sstevel@tonic-gate 22*0Sstevel@tonic-gateWe also test if Switch is POD-friendly here 23*0Sstevel@tonic-gate 24*0Sstevel@tonic-gate=cut 25*0Sstevel@tonic-gate 26*0Sstevel@tonic-gate case qr/\d/ { 27*0Sstevel@tonic-gate switch ($count) { 28*0Sstevel@tonic-gate case 1 { print "ok 1\n" } 29*0Sstevel@tonic-gate case [2,3] { print "ok $count\n" } 30*0Sstevel@tonic-gate } 31*0Sstevel@tonic-gate } 32*0Sstevel@tonic-gate case 'four' { print "ok 4\n" } 33*0Sstevel@tonic-gate } 34*0Sstevel@tonic-gate} 35*0Sstevel@tonic-gate 36*0Sstevel@tonic-gate__END__ 37*0Sstevel@tonic-gate 38*0Sstevel@tonic-gate=head1 Another test 39*0Sstevel@tonic-gate 40*0Sstevel@tonic-gateStill friendly??? 41*0Sstevel@tonic-gate 42*0Sstevel@tonic-gate=cut 43