package Filter::Test;
use Filter::Simple;

FILTER_ONLY
	code => sub {
#		print'C: ', $_;
		s[eval\s*($Filter::Simple::placeholder)]['<<<<<1>>>>>' eval '<<<<<2>>>>>' . $1 ];
#		print'C: ', $_;
		$_;
	},
	quotelike => sub {
#		print 'Q: ', $_;
		$_ = uc $_;
		s['<<<<<1>>>>>'][delete \$INC{'Filter/Test.pm'};];
		s['<<<<<2>>>>>']["BEGIN{ require Filter::Test; Filter::Test::import}"];
#		print 'Q: ', $_;
		$_;
	},
;

print 'Filter::Test loaded';