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

BEGIN {
    unshift @INC, 't/lib/';
}

use Filter::Simple::CodeNoComments qr/ok/ => 'not ok';

print "1..1\n";


# Perl bug #92436 (the second bug in the ticket)

sub method { $_[1] }
my $obj = bless[];

print $obj->method("ok 1\n");
Commit	Line	Data
828d6195 FC	1	BEGIN {
	2	unshift @INC, 't/lib/';
	3	}
	4
	5	use Filter::Simple::CodeNoComments qr/ok/ => 'not ok';
	6
	7	print "1..1\n";
	8
	9
	10	# Perl bug #92436 (the second bug in the ticket)
	11
	12	sub method { $_[1] }
	13	my $obj = bless[];
	14
	15	print $obj->method("ok 1\n");