view release on metacpan or  search on metacpan

t/NETZ/FUNKTIONALITAT.t  view on Meta::CPAN

#!perl
# vim:enc=utf8:
use strict;
use warnings;

use Test::More;
use File::Temp;

my @pairs = map { [ split m{\n----\n}s ] } split m{%%%%\n}s,
    do { local $/, <DATA> };
plan tests => scalar @pairs;