1BEGIN { 2 unshift @INC, 't/lib/'; 3} 4 5print "1..2\n"; 6 7use Filter::Simple::FilterTest qr/ok/ => "not ok", pass => "fail"; 8no Filter::Simple::FilterTest; 9 10sub pass { print "ok ", $_[0], "\n" } 11 12print "ok 1\n"; 13("pa"."ss")->(2); 14