-#! /usr/local/bin/perl -w
-
BEGIN {
- chdir 't' if -d 't';
- @INC = '../lib';
+ if ($ENV{PERL_CORE}) {
+ chdir('t') if -d 't';
+ @INC = qw(../lib);
+ }
}
use Switch;
{
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 'four' { print "ok 4\n" }
}
}
+
+__END__
+
+=head1 Another test
+
+Still friendly???
+
+=cut