[p5sagit/p5-mst-13.2.git] / t / lib / MyFilter.pm

package MyFilter;

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
593fd89c	1	package MyFilter;
	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;