File Coverage

blib/lib/File/Assets/Filter/Concat.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	22	24	91.6

package File::Assets::Filter::Concat;

use strict;
use warnings;

use base qw/File::Assets::Filter::Collect/;

sub signature {
    return "concat";
}

sub build_content {
    my $self = shift;

    my $matched = $self->matched;

    my $content = "";
    for my $match (@$matched) {
        $content .= ${ $match->{asset}->content };
    }

    return \$content;
}

1;

__END__