filters 'upper';
plan tests => 2;
run {
my $chunk = shift;
is($chunk->one, $chunk->two);
};
my ($chunk) = chunks;
is($chunk->one, "HEY NOW HEY NOW\n");
sub Test::Chunks::Filter::upper {
my $self = shift;
return uc(shift);
}
__END__
===
--- one
Hey now Hey Now
--- two
hEY NoW hEY NoW