view release on metacpan or  search on metacpan

t/50-multiple-files.t  view on Meta::CPAN

    [ 'elem-unclosed' => qr/\Q<b> at (6:12) is never closed/i ],
    [ 'elem-unclosed' => qr/\Q<i> at (7:12) is never closed/i ],

    [ 'elem-unopened' => qr/<\/b> with no opening <B>/i ],
], @files );

# Read in a set of sets of lines, where each "file" is separated by a
# blank line in <DATA>
sub _get_paragraphed_files {
    local $/ = '';

    my @sets;

    while ( my $paragraph = <DATA> ) {
        my @lines = split /\n/, $paragraph;
        @lines = map { "$_\n" } @lines;
        push( @sets, [@lines] );
    }

    return @sets;