BEGIN {
unshift @INC, 't/lib/';
}
print "1..2\n";
use Filter::Simple::FilterTest qr/ok/ => "not ok", pass => "fail";
no Filter::Simple::FilterTest;
sub pass { print "ok ", $_[0], "\n" }
print "ok 1\n";
("pa"."ss")->(2);
BEGIN {
unshift @INC, 't/lib/';
}
print "1..2\n";
use Filter::Simple::FilterTest qr/ok/ => "not ok", pass => "fail";
no Filter::Simple::FilterTest;
sub pass { print "ok ", $_[0], "\n" }
print "ok 1\n";
("pa"."ss")->(2);