[perl5.git] / dist / Filter-Simple / t / no.t

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