File Coverage

blib/lib/Plack/Middleware/Static/Combine.pm

Criterion	Covered	Total	%
statement	48	48	100.0
branch	14	18	77.7
condition	2	5	40.0
subroutine	8	8	100.0
pod			n/a
total	72	79	91.1

package Plack::Middleware::Static::Combine;
{
  $Plack::Middleware::Static::Combine::VERSION = '0.01';
}
#ABSTRACT: Serve multiple static files combined

use strict;
use parent qw(Plack::Middleware::Static);

use Plack::Util;
use Plack::Util::Accessor qw(files);

sub _handle_static {
    my ($self, $env) = @_;

    my $path_match = $self->path or return;
    my $path = $env->{PATH_INFO};

    for ($path) {
        my $matched = 'CODE' eq ref $path_match ? $path_match->($_) : $_ =~ $path_match;
        return unless $matched;
    }

    $self->{file} ||= Plack::App::File->new({ root => $self->root || '.', encoding => $self->encoding });

    # copied from Plack::Middleware::Static up to this line

    my ($res, $type, $lastmod);
    my $length = 0;

    foreach my $file ( @{ $self->files || [] } ) {

        local $env->{PATH_INFO} = $file;
        my $got = $self->{file}->call($env);
        Plack::Util::response_cb($got, sub { $got = shift; });

        return $got unless $got->[0] eq '200';

        if ($res) {
            if ( $type ne Plack::Util::header_get($got->[1],'Content-Type') ) {
                $res = [500,['Content-Type'=>'text/plain'],['files must have same type']];
                $length = length $res->[2]->[0];
                last;
            }

            # TODO: better combine by sub?
            my $body = $res->[2];
            if (ref $body ne 'ARRAY') {
                $res->[2] = [ ];
                Plack::Util::foreach($body,sub { push @{$res->[2]}, shift; });
            }
            Plack::Util::foreach($got->[2],sub { push @{$res->[2]}, shift; });

            # TODO: Adjust Last-Modified

        } else {
            $type    = Plack::Util::header_get($got->[1],'Content-Type');
            $lastmod = Plack::Util::header_get($got->[1],'Last-Modified');
            $res = $got;
        }

        $length += Plack::Util::header_get($got->[1],'Content-Length');
    }

    Plack::Util::header_set($res->[1],'Content-Length',$length) if $res;

    return $res;
}

1;



__END__