File Coverage

blib/lib/Plack/ResponseHelper/Attachment.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition	1	2	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	23	25	92.0

package Plack::ResponseHelper::Attachment;
use strict;
use warnings;

use Plack::Response;


sub helper {
    my $init = shift;
    my $content_type = $init && $init->{content_type} || 'application/octet-stream';

    return sub {
        my $r = shift;

        my $response = Plack::Response->new(200);
        $response->headers(
            [
                'Content-Type' => $content_type,
                'Content-Disposition' => qq[attachment; filename="$r->{filename}"],
            ],
        );
        $response->body($r->{data});
        return $response;
    };
}

1;

__END__