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

filters 'chomp';
spec_string <<'...';
===
--- foo
1
--- bar
2
===
--- foo
3
--- bar
4
...

plan tests => 3 * chunks;

run {
    my $chunk = shift;
    is(ref($chunk), 'Test::Chunks::Chunk');
};

my @chunks = chunks;

is($chunks[0]->foo, 1);
is($chunks[0]->bar, 2);
is($chunks[1]->foo, 3);
is($chunks[1]->bar, 4);