Damian's Filter::Simple test uses FilterTest, not MyFilter.

[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;