content_disposition.pm

package content_disposition;
use Dancer ':syntax';

our $VERSION = '0.1';

# SHELL> curl --head http://localhost:3000
# HTTP/1.0 200 OK
# Content-Type: text/html; charset=UTF-8
# Content-Disposition: attachment; filename=test.html
# X-Powered-By: Perl Dancer 1.2000

get '/' => sub {
  header "Content-Disposition" => "attachment; filename=test.html";
  send_file('404.html');
};

# SHELL> curl --head http://localhost:3000/attachment
# HTTP/1.0 200 OK
# Content-Type: text/html; charset=UTF-8
# X-Powered-By: Perl Dancer 1.2000

get '/attachment' => sub {
  my $response = send_file('404.html');
  $response->header("Content-Disposition","attachment; filename=test.html");
  return $response;
};

true;