1N/ABEGIN {
1N/A if ($ENV{PERL_CORE}) {
1N/A chdir('t') if -d 't';
1N/A @INC = qw(lib/Filter/Simple ../lib);
1N/A }
1N/A}
1N/A
1N/ABEGIN { print "1..1\n" }
1N/A
1N/Ause ExportTest 'ok';
1N/A
1N/Anotok 1;