view release on metacpan or  search on metacpan

lib/Apache2/WebApp/Plugin/File.pm  view on Meta::CPAN

    $name =~ s/\s/_/g;        # fill in the gaps

    my $filename = "$name\.$mime_type";

    my $mt = MIME::Types->new;

    my $content_type = $mt->mimeTypeOf($mime_type);

    if ($force_download) {
        $c->request->headers_out->add( 'Cache-Control'       => 'private'                       );
        $c->request->headers_out->add( 'Content-disposition' => "attachment;filename=$filename" );
        $c->request->headers_out->add( 'Content-Type'        => $content_type                   );
        $c->request->headers_out();
    }
    else {
        $c->request->content_type($content_type);
    }

    my $buffer = "";

    # send file as a binary stream

t/002_basic.t  view on Meta::CPAN

my $data2  = GET_HEAD $uri2;

ok t_cmp(
    $data1,
    qr/Content-Type: image\/gif/,
    'testing open() method',
  );

ok t_cmp(
    $data2,
    qr/Content-Disposition: attachment;filename=test\.gif/,
    'testing download() method',
  );

done_testing();