The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use utf8;
use Test::Base::Less;

filters {
    test_trim => [qw/trim/],
};

my ($block) = blocks();
is($block->test_trim, $block->expected_trim);

done_testing;
__END__

===
--- test_trim

xxx


--- expected_trim
xxx
--- test_