[perl5.git] / t / lib / FilterTest.pm

package FilterTest;

BEGIN {
    chdir('t') if -d 't';    
    @INC = '../lib';
}

use Filter::Simple sub {
    while (my ($from, $to) = splice @_, 0, 2) {
	s/$from/$to/g;
    }
};

1;
Commit	Line	Data
59d0036e	1	package FilterTest;
593fd89c JH	2
	3	BEGIN {
	4	chdir('t') if -d 't';
	5	@INC = '../lib';
	6	}
	7
	8	use Filter::Simple sub {
	9	while (my ($from, $to) = splice @_, 0, 2) {
	10	s/$from/$to/g;
	11	}
	12	};
	13
	14	1;