/usr/share/perl5/Dancer/Handler/PSGI.pm is in libdancer-perl 1.3202+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 | package Dancer::Handler::PSGI;
our $AUTHORITY = 'cpan:SUKRIA';
#ABSTRACT: a PSGI handler for Dancer applications
$Dancer::Handler::PSGI::VERSION = '1.3202';
use strict;
use warnings;
use Carp;
use base 'Dancer::Handler';
use Dancer::Deprecation;
use Dancer::GetOpt;
use Dancer::Config;
use Dancer::ModuleLoader;
use Dancer::SharedData;
use Dancer::Logger;
use Dancer::Exception qw(:all);
sub new {
my $class = shift;
raise core_handler_PSGI => "Plack::Request is needed by the PSGI handler"
unless Dancer::ModuleLoader->load('Plack::Request');
my $self = {};
bless $self, $class;
}
sub start {
my $self = shift;
my $app = $self->psgi_app();
foreach my $setting (qw/plack_middlewares plack_middlewares_map/) {
if (Dancer::Config::setting($setting)) {
my $method = 'apply_'.$setting;
$app = $self->$method($app);
}
}
return $app;
}
sub apply_plack_middlewares_map {
my ($self, $app) = @_;
my $mw_map = Dancer::Config::setting('plack_middlewares_map');
foreach my $req (qw(Plack::App::URLMap Plack::Builder)) {
raise core_handler_PSGI => "$req is needed to use apply_plack_middlewares_map"
unless Dancer::ModuleLoader->load($req);
}
my $urlmap = Plack::App::URLMap->new;
while ( my ( $path, $mw ) = each %$mw_map ) {
my $builder = Plack::Builder->new();
$builder->add_middleware(@$_) for @$mw;
$urlmap->map( $path => $builder->to_app($app) );
}
$urlmap->map('/' => $app) unless $mw_map->{'/'};
return $urlmap->to_app;
}
sub apply_plack_middlewares {
my ($self, $app) = @_;
my $middlewares = Dancer::Config::setting('plack_middlewares');
raise core_handler_PSGI => "Plack::Builder is needed for middlewares support"
unless Dancer::ModuleLoader->load('Plack::Builder');
ref $middlewares eq "ARRAY"
or raise core_handler_PSGI => "'plack_middlewares' setting must be an ArrayRef";
my $builder = Plack::Builder->new();
for my $mw (@$middlewares) {
Dancer::Logger::core "add middleware " . $mw->[0];
$builder->add_middleware(@$mw)
}
return $builder->to_app($app);
}
sub init_request_headers {
my ($self, $env) = @_;
my $plack = Plack::Request->new($env);
Dancer::SharedData->headers($plack->headers);
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dancer::Handler::PSGI - a PSGI handler for Dancer applications
=head1 VERSION
version 1.3202
=head1 DESCRIPTION
This handler allows Dancer applications to run as part of PSGI stacks. Dancer
will automatically determine when running in a PSGI environment and enable this
handler, such that calling C<dance> will return a valid PSGI application.
You may enable Plack middleware in your configuration file under the
C<plack_middlewares> key. See L<Dancer::Cookbook> for more information.
Note that you must have L<Plack> installed for this handler to work.
=head1 USAGE
# in bin/app.pl
set apphandler => 'Debug';
# then, run the app the following way
perl -d bin/app.pl GET '/some/path/to/test' 'with=parameters&other=42'
=head1 AUTHORS
Dancer contributors
=head1 AUTHOR
Dancer Core Developers
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2010 by Alexis Sukrieh.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|