From: Christian Hansen Date: Mon, 25 Apr 2005 14:47:56 +0000 (+0000) Subject: Reworked Engine namespaces X-Git-Tag: 5.7099_04~1433 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=c2e8e6fa308480a083f88f9fd82f835aae150c34;hp=032221564b1da678e7f13b97a4cd99a05a31c35c Reworked Engine namespaces --- diff --git a/lib/Catalyst/Engine/Apache.pm b/lib/Catalyst/Engine/Apache.pm index aac93cc..a9bd2c8 100644 --- a/lib/Catalyst/Engine/Apache.pm +++ b/lib/Catalyst/Engine/Apache.pm @@ -1,12 +1,7 @@ package Catalyst::Engine::Apache; use strict; -use base 'Catalyst::Engine'; - -use URI; -use URI::http; - -__PACKAGE__->mk_accessors(qw/apache/); +use UNIVERSAL::require; =head1 NAME @@ -18,142 +13,7 @@ See L. =head1 DESCRIPTION -This is a base class engine specialized for Apache (i.e. for mod_perl). - -=head1 METHODS - -=over 4 - -=item $c->apache - -Returns an C object. - -=back - -=head1 OVERLOADED METHODS - -This class overloads some methods from C. - -=over 4 - -=item $c->finalize_body - -=cut - -sub finalize_body { - my $c = shift; - $c->apache->print( $c->response->body ); -} - -=item $c->prepare_body - -=cut - -sub prepare_body { - my $c = shift; - - my $length = $c->request->content_length; - my ( $buffer, $content ); - - while ($length) { - - $c->apache->read( $buffer, ( $length < 8192 ) ? $length : 8192 ); - - $length -= length($buffer); - $content .= $buffer; - } - - $c->request->body($content); -} - -=item $c->prepare_connection - -=cut - -sub prepare_connection { - my $c = shift; - $c->request->address( $c->apache->connection->remote_ip ); - $c->request->hostname( $c->apache->connection->remote_host ); - $c->request->protocol( $c->apache->protocol ); - - if ( $ENV{HTTPS} || $c->apache->get_server_port == 443 ) { - $c->request->secure(1); - } -} - -=item $c->prepare_headers - -=cut - -sub prepare_headers { - my $c = shift; - $c->request->method( $c->apache->method ); - $c->request->header( %{ $c->apache->headers_in } ); -} - -=item $c->prepare_parameters - -=cut - -sub prepare_parameters { - my $c = shift; - - my @params; - - $c->apache->param->do( sub { - my ( $field, $value ) = @_; - push( @params, $field, $value ); - return 1; - }); - - $c->request->param(@params); -} - -=item $c->prepare_path - -=cut - -# XXX needs fixing, only work with directive, -# not directive -sub prepare_path { - my $c = shift; - - my $base; - { - my $scheme = $c->request->secure ? 'https' : 'http'; - my $host = $c->apache->hostname; - my $port = $c->apache->get_server_port; - my $path = $c->apache->location || '/'; - - unless ( $path =~ /\/$/ ) { - $path .= '/'; - } - - $base = URI->new; - $base->scheme($scheme); - $base->host($host); - $base->port($port); - $base->path($path); - - $base = $base->canonical->as_string; - } - - my $location = $c->apache->location || '/'; - my $path = $c->apache->uri || '/'; - $path =~ s/^($location)?\///; - $path =~ s/^\///; - - $c->req->base($base); - $c->req->path($path); -} - -=item $c->run - -=cut - -sub run { } - -=back +This class will load the correct MP Engine. =head1 SEE ALSO diff --git a/lib/Catalyst/Engine/Apache/Base.pm b/lib/Catalyst/Engine/Apache/Base.pm new file mode 100644 index 0000000..8bfb479 --- /dev/null +++ b/lib/Catalyst/Engine/Apache/Base.pm @@ -0,0 +1,174 @@ +package Catalyst::Engine::Apache::Base; + +use strict; +use base 'Catalyst::Engine'; + +use URI; +use URI::http; + +__PACKAGE__->mk_accessors(qw/apache/); + +=head1 NAME + +Catalyst::Engine::Apache::Base - Base class for Apache Engines + +=head1 SYNOPSIS + +See L. + +=head1 DESCRIPTION + +This is a base class for Apache Engines. + +=head1 METHODS + +=over 4 + +=item $c->apache + +Returns an C object. + +=back + +=head1 OVERLOADED METHODS + +This class overloads some methods from C. + +=over 4 + +=item $c->finalize_body + +=cut + +sub finalize_body { + my $c = shift; + $c->apache->print( $c->response->body ); +} + +=item $c->prepare_body + +=cut + +sub prepare_body { + my $c = shift; + + my $length = $c->request->content_length; + my ( $buffer, $content ); + + while ($length) { + + $c->apache->read( $buffer, ( $length < 8192 ) ? $length : 8192 ); + + $length -= length($buffer); + $content .= $buffer; + } + + $c->request->body($content); +} + +=item $c->prepare_connection + +=cut + +sub prepare_connection { + my $c = shift; + $c->request->address( $c->apache->connection->remote_ip ); + $c->request->hostname( $c->apache->connection->remote_host ); + $c->request->protocol( $c->apache->protocol ); + + if ( $ENV{HTTPS} || $c->apache->get_server_port == 443 ) { + $c->request->secure(1); + } +} + +=item $c->prepare_headers + +=cut + +sub prepare_headers { + my $c = shift; + $c->request->method( $c->apache->method ); + $c->request->header( %{ $c->apache->headers_in } ); +} + +=item $c->prepare_parameters + +=cut + +sub prepare_parameters { + my $c = shift; + + my @params; + + $c->apache->param->do( sub { + my ( $field, $value ) = @_; + push( @params, $field, $value ); + return 1; + }); + + $c->request->param(@params); +} + +=item $c->prepare_path + +=cut + +# XXX needs fixing, only work with directive, +# not directive +sub prepare_path { + my $c = shift; + + my $base; + { + my $scheme = $c->request->secure ? 'https' : 'http'; + my $host = $c->apache->hostname; + my $port = $c->apache->get_server_port; + my $path = $c->apache->location || '/'; + + unless ( $path =~ /\/$/ ) { + $path .= '/'; + } + + $base = URI->new; + $base->scheme($scheme); + $base->host($host); + $base->port($port); + $base->path($path); + + $base = $base->canonical->as_string; + } + + my $location = $c->apache->location || '/'; + my $path = $c->apache->uri || '/'; + $path =~ s/^($location)?\///; + $path =~ s/^\///; + + $c->req->base($base); + $c->req->path($path); +} + +=item $c->run + +=cut + +sub run { } + +=back + +=head1 SEE ALSO + +L L. + +=head1 AUTHOR + +Sebastian Riedel, C +Christian Hansen C + +=head1 COPYRIGHT + +This program is free software, you can redistribute it and/or modify it under +the same terms as Perl itself. + +=cut + +1; diff --git a/lib/Catalyst/Engine/Apache/MP13.pm b/lib/Catalyst/Engine/Apache/MP13.pm index a9a5794..8b37fa0 100644 --- a/lib/Catalyst/Engine/Apache/MP13.pm +++ b/lib/Catalyst/Engine/Apache/MP13.pm @@ -1,7 +1,7 @@ package Catalyst::Engine::Apache::MP13; use strict; -use base 'Catalyst::Engine::Apache'; +use base 'Catalyst::Engine::Apache::Base'; use Apache (); use Apache::Constants (); @@ -24,7 +24,7 @@ This is the Catalyst engine specialized for Apache mod_perl version 1.3x. =head1 OVERLOADED METHODS -This class overloads some methods from C. +This class overloads some methods from C. =over 4 @@ -99,7 +99,7 @@ sub prepare_uploads { =head1 SEE ALSO -L, L, L. +L, L, L. =head1 AUTHOR diff --git a/lib/Catalyst/Engine/Apache/MP19.pm b/lib/Catalyst/Engine/Apache/MP19.pm index 02f9a87..73b2ac1 100644 --- a/lib/Catalyst/Engine/Apache/MP19.pm +++ b/lib/Catalyst/Engine/Apache/MP19.pm @@ -1,7 +1,7 @@ package Catalyst::Engine::Apache::MP19; use strict; -use base 'Catalyst::Engine::Apache'; +use base 'Catalyst::Engine::Apache::Base'; use Apache2 (); use Apache::Connection (); @@ -31,7 +31,7 @@ This is the Catalyst engine specialized for Apache mod_perl version 1.9x. =head1 OVERLOADED METHODS -This class overloads some methods from C. +This class overloads some methods from C. =over 4 @@ -110,7 +110,7 @@ sub prepare_uploads { =head1 SEE ALSO -L, L, L. +L, L, L. =head1 AUTHOR diff --git a/lib/Catalyst/Engine/Apache/MP20.pm b/lib/Catalyst/Engine/Apache/MP20.pm index 7a00895..df1a595 100644 --- a/lib/Catalyst/Engine/Apache/MP20.pm +++ b/lib/Catalyst/Engine/Apache/MP20.pm @@ -1,7 +1,7 @@ package Catalyst::Engine::Apache::MP20; use strict; -use base 'Catalyst::Engine::Apache'; +use base 'Catalyst::Engine::Apache::Base'; use Apache2::Connection (); use Apache2::Const (); @@ -30,7 +30,7 @@ This is the Catalyst engine specialized for Apache mod_perl version 2.0. =head1 OVERLOADED METHODS -This class overloads some methods from C. +This class overloads some methods from C. =over 4 @@ -106,7 +106,7 @@ sub prepare_uploads { =head1 SEE ALSO -L, L, L. +L, L, L. =head1 AUTHOR diff --git a/lib/Catalyst/Engine/CGI.pm b/lib/Catalyst/Engine/CGI.pm index eb64e4a..9305c1b 100644 --- a/lib/Catalyst/Engine/CGI.pm +++ b/lib/Catalyst/Engine/CGI.pm @@ -1,13 +1,9 @@ package Catalyst::Engine::CGI; use strict; -use base 'Catalyst::Engine'; +use base 'Catalyst::Engine::CGI::Base'; use CGI; -use URI; -use URI::http; - -__PACKAGE__->mk_accessors('cgi'); =head1 NAME @@ -41,46 +37,12 @@ application module: The performance of this way of using Catalyst is not expected to be useful in production applications, but it may be helpful for development. -=head1 METHODS - -=over 4 - -=item $c->cgi - -This config parameter contains the C object. - -=back - =head1 OVERLOADED METHODS -This class overloads some methods from C. +This class overloads some methods from C. =over 4 -=item $c->finalize_body - -Prints the response output to STDOUT. - -=cut - -sub finalize_body { - my $c = shift; - print $c->response->output; -} - -=item $c->finalize_headers - -=cut - -sub finalize_headers { - my $c = shift; - - $c->response->header( Status => $c->response->status ); - - print $c->response->headers->as_string("\015\012"); - print "\015\012"; -} - =item $c->prepare_body =cut @@ -95,40 +57,6 @@ sub prepare_body { $c->request->body( $c->cgi->param('POSTDATA') ); } -=item $c->prepare_connection - -=cut - -sub prepare_connection { - my $c = shift; - $c->request->address( $ENV{REMOTE_ADDR} ); - $c->request->hostname( $ENV{REMOTE_HOST} ); - $c->request->protocol( $ENV{SERVER_PROTOCOL} ); - - if ( $ENV{HTTPS} || $ENV{SERVER_PORT} == 443 ) { - $c->request->secure(1); - } -} - -=item $c->prepare_headers - -=cut - -sub prepare_headers { - my $c = shift; - - while ( my ( $header, $value ) = each %ENV ) { - - next unless $header =~ /^(HTTP|CONTENT)/i; - - ( my $field = $header ) =~ s/^HTTPS?_//; - - $c->req->headers->header( $field => $value ); - } - - $c->req->method( $ENV{REQUEST_METHOD} || 'GET' ); -} - =item $c->prepare_parameters =cut @@ -155,41 +83,6 @@ sub prepare_parameters { $c->request->param(@params); } -=item $c->prepare_path - -=cut - -sub prepare_path { - my $c = shift; - - my $base; - { - my $scheme = $c->request->secure ? 'https' : 'http'; - my $host = $ENV{HTTP_HOST} || $ENV{SERVER_NAME}; - my $port = $ENV{SERVER_PORT} || 80; - my $path = $ENV{SCRIPT_NAME} || '/'; - - unless ( $path =~ /\/$/ ) { - $path .= '/'; - } - - $base = URI->new; - $base->scheme($scheme); - $base->host($host); - $base->port($port); - $base->path($path); - - $base = $base->canonical->as_string; - } - - my $path = $ENV{PATH_INFO} || '/'; - $path =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; - $path =~ s/^\///; - - $c->req->base($base); - $c->req->path($path); -} - =item $c->prepare_request =cut @@ -239,21 +132,16 @@ sub prepare_uploads { $c->request->upload(@uploads); } -=item $c->run - -=cut - -sub run { shift->handler } - =back =head1 SEE ALSO -L. +L L L. =head1 AUTHOR Sebastian Riedel, C +Christian Hansen, C =head1 COPYRIGHT diff --git a/lib/Catalyst/Engine/CGI/Base.pm b/lib/Catalyst/Engine/CGI/Base.pm new file mode 100644 index 0000000..0f1152b --- /dev/null +++ b/lib/Catalyst/Engine/CGI/Base.pm @@ -0,0 +1,152 @@ +package Catalyst::Engine::CGI::Base; + +use strict; +use base 'Catalyst::Engine'; + +use URI; +use URI::http; + +__PACKAGE__->mk_accessors('cgi'); + +=head1 NAME + +Catalyst::Engine::CGI::Base - Base class for CGI Engines + +=head1 DESCRIPTION + +This is a base class for CGI engines. + +=head1 METHODS + +=over 4 + +=item $c->cgi + +This config parameter contains the C object. + +=back + +=head1 OVERLOADED METHODS + +This class overloads some methods from C. + +=over 4 + +=item $c->finalize_body + +Prints the response output to STDOUT. + +=cut + +sub finalize_body { + my $c = shift; + print $c->response->output; +} + +=item $c->finalize_headers + +=cut + +sub finalize_headers { + my $c = shift; + + $c->response->header( Status => $c->response->status ); + + print $c->response->headers->as_string("\015\012"); + print "\015\012"; +} + +=item $c->prepare_connection + +=cut + +sub prepare_connection { + my $c = shift; + $c->request->address( $ENV{REMOTE_ADDR} ); + $c->request->hostname( $ENV{REMOTE_HOST} ); + $c->request->protocol( $ENV{SERVER_PROTOCOL} ); + + if ( $ENV{HTTPS} || $ENV{SERVER_PORT} == 443 ) { + $c->request->secure(1); + } +} + +=item $c->prepare_headers + +=cut + +sub prepare_headers { + my $c = shift; + + while ( my ( $header, $value ) = each %ENV ) { + + next unless $header =~ /^(HTTP|CONTENT)/i; + + ( my $field = $header ) =~ s/^HTTPS?_//; + + $c->req->headers->header( $field => $value ); + } + + $c->req->method( $ENV{REQUEST_METHOD} || 'GET' ); +} + +=item $c->prepare_path + +=cut + +sub prepare_path { + my $c = shift; + + my $base; + { + my $scheme = $c->request->secure ? 'https' : 'http'; + my $host = $ENV{HTTP_HOST} || $ENV{SERVER_NAME}; + my $port = $ENV{SERVER_PORT} || 80; + my $path = $ENV{SCRIPT_NAME} || '/'; + + unless ( $path =~ /\/$/ ) { + $path .= '/'; + } + + $base = URI->new; + $base->scheme($scheme); + $base->host($host); + $base->port($port); + $base->path($path); + + $base = $base->canonical->as_string; + } + + my $path = $ENV{PATH_INFO} || '/'; + $path =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; + $path =~ s/^\///; + + $c->req->base($base); + $c->req->path($path); +} + +=item $c->run + +=cut + +sub run { shift->handler } + +=back + +=head1 SEE ALSO + +L. + +=head1 AUTHOR + +Sebastian Riedel, C +Christian Hansen, C + +=head1 COPYRIGHT + +This program is free software, you can redistribute it and/or modify it under +the same terms as Perl itself. + +=cut + +1; diff --git a/lib/Catalyst/Engine/FCGI.pm b/lib/Catalyst/Engine/FCGI.pm index 07410fd..6198ca0 100644 --- a/lib/Catalyst/Engine/FCGI.pm +++ b/lib/Catalyst/Engine/FCGI.pm @@ -1,8 +1,7 @@ package Catalyst::Engine::FCGI; use strict; -use base 'Catalyst::Engine::CGI'; -use FCGI; +use base qw(Catalyst::Engine::FCGI::Base Catalyst::Engine::CGI); =head1 NAME @@ -28,33 +27,14 @@ A script using the Catalyst::Engine::FCGI module might look like: This is the Catalyst engine for FastCGI. -=head1 OVERLOADED METHODS - -This class overloads some methods from C. - -=over 4 - -=item $c->run - -=cut - -sub run { - my $class = shift; - my $request = FCGI::Request(); - while ( $request->Accept() >= 0 ) { - $class->handler; - } -} - -=back - =head1 SEE ALSO -L. +L, L. =head1 AUTHOR Sebastian Riedel, C +Christian Hansen, C =head1 COPYRIGHT diff --git a/lib/Catalyst/Engine/FCGI/Base.pm b/lib/Catalyst/Engine/FCGI/Base.pm new file mode 100644 index 0000000..07761f8 --- /dev/null +++ b/lib/Catalyst/Engine/FCGI/Base.pm @@ -0,0 +1,48 @@ +package Catalyst::Engine::FCGI::Base; + +use strict; +use FCGI; + +=head1 NAME + +Catalyst::Engine::FCGI::Base - Base class for FastCGI Engines + +=head1 DESCRIPTION + +This is a base class for FastCGI engines. + +=head1 METHODS + +=over 4 + +=item $c->run + +=cut + +sub run { + my $class = shift; + my $request = FCGI::Request(); + while ( $request->Accept() >= 0 ) { + $class->handler; + } +} + +=back + +=head1 SEE ALSO + +L. + +=head1 AUTHOR + +Sebastian Riedel, C +Christian Hansen, C + +=head1 COPYRIGHT + +This program is free software, you can redistribute it and/or modify it under +the same terms as Perl itself. + +=cut + +1; diff --git a/lib/Catalyst/Engine/HTTP.pm b/lib/Catalyst/Engine/HTTP.pm index 598670d..4ec9fb3 100644 --- a/lib/Catalyst/Engine/HTTP.pm +++ b/lib/Catalyst/Engine/HTTP.pm @@ -1,9 +1,7 @@ package Catalyst::Engine::HTTP; use strict; -use base 'Catalyst::Engine::Test'; - -use IO::Socket qw(AF_INET INADDR_ANY SOCK_STREAM SOMAXCONN); +use base 'Catalyst::Engine::HTTP::Daemon'; =head1 NAME @@ -27,71 +25,9 @@ A script using the Catalyst::Engine::HTTP module might look like: This is the Catalyst engine specialized for development and testing. -=head1 OVERLOADED METHODS - -This class overloads some methods from C. - -=over 4 - -=item $c->run - -=cut - -$SIG{'PIPE'} = 'IGNORE'; - -sub run { - my $class = shift; - my $port = shift || 3000; - - my $daemon = Catalyst::Engine::HTTP::Catalyst->new( - Listen => SOMAXCONN, - LocalPort => $port, - ReuseAddr => 1, - Type => SOCK_STREAM, - ); - - unless ($daemon) { - die("Failed to create daemon: $!\n"); - } - - my $base = URI->new( $daemon->url )->canonical; - - printf( "You can connect to your server at %s\n", $base ); - - while ( my $connection = $daemon->accept ) { - - $connection->timeout(5); - - while ( my $request = $connection->get_request ) { - - $request->uri->scheme('http'); # Force URI::http - $request->uri->host( $request->header('Host') || $base->host ); - $request->uri->port( $base->port ); - - my $hostname = gethostbyaddr( $connection->peeraddr, AF_INET ); - - my $http = Catalyst::Engine::Test::HTTP->new( - address => $connection->peerhost, - hostname => $hostname || $connection->peerhost, - request => $request, - response => HTTP::Response->new - ); - - $class->handler($http); - $connection->send_response( $http->response ); - - } - - $connection->close; - undef($connection); - } -} - -=back - =head1 SEE ALSO -L, L. +L, L, L. =head1 AUTHOR @@ -105,13 +41,4 @@ the same terms as Perl itself. =cut -package Catalyst::Engine::HTTP::Catalyst; - -use strict; -use base 'HTTP::Daemon'; - -sub product_tokens { - "Catalyst/$Catalyst::VERSION"; -} - 1; diff --git a/lib/Catalyst/Engine/Test.pm b/lib/Catalyst/Engine/Test.pm index 290df14..91553ba 100644 --- a/lib/Catalyst/Engine/Test.pm +++ b/lib/Catalyst/Engine/Test.pm @@ -1,23 +1,7 @@ package Catalyst::Engine::Test; use strict; -use base 'Catalyst::Engine'; - -use Class::Struct (); -use HTTP::Headers::Util 'split_header_words'; -use HTTP::Request; -use HTTP::Response; -use File::Temp; -use URI; - -__PACKAGE__->mk_accessors(qw/http/); - -Class::Struct::struct 'Catalyst::Engine::Test::HTTP' => { - request => 'HTTP::Request', - response => 'HTTP::Response', - hostname => '$', - address => '$' -}; +use base 'Catalyst::Engine::HTTP::Base'; =head1 NAME @@ -45,163 +29,10 @@ This is the Catalyst engine specialized for testing. =head1 OVERLOADED METHODS -This class overloads some methods from C. +This class overloads some methods from C. =over 4 -=item $c->finalize_body - -=cut - -sub finalize_body { - my $c = shift; - $c->http->response->content( $c->response->body ); -} - -=item $c->finalize_headers - -=cut - -sub finalize_headers { - my $c = shift; - - $c->http->response->code( $c->response->status ); - - for my $name ( $c->response->headers->header_field_names ) { - $c->http->response->push_header( $name => [ $c->response->header($name) ] ); - } -} - -=item $c->prepare_body - -=cut - -sub prepare_body { - my $c = shift; - $c->request->body( $c->http->request->content ); -} - -=item $c->prepare_connection - -=cut - -sub prepare_connection { - my $c = shift; - $c->request->address( $c->http->address ); - $c->request->hostname( $c->http->hostname ); - $c->request->protocol( $c->http->request->protocol ); -} - -=item $c->prepare_headers - -=cut - -sub prepare_headers { - my $c = shift; - $c->request->method( $c->http->request->method ); - $c->request->headers( $c->http->request->headers ); -} - -=item $c->prepare_parameters - -=cut - -sub prepare_parameters { - my $c = shift; - - my ( @params, @uploads ); - - my $request = $c->http->request; - - push( @params, $request->uri->query_form ); - - if ( $request->content_type eq 'application/x-www-form-urlencoded' ) { - my $uri = URI->new('http:'); - $uri->query( $request->content ); - push( @params, $uri->query_form ); - } - - if ( $request->content_type eq 'multipart/form-data' ) { - - for my $part ( $request->parts ) { - - my $disposition = $part->header('Content-Disposition'); - my %parameters = @{ ( split_header_words($disposition) )[0] }; - - if ( $parameters{filename} ) { - - my $fh = File::Temp->new( UNLINK => 0 ); - $fh->write( $part->content ) or die $!; - $fh->flush or die $!; - - my $upload = Catalyst::Request::Upload->new( - filename => $parameters{filename}, - size => ( $fh->stat )[7], - tempname => $fh->filename, - type => $part->content_type - ); - - $fh->close; - - push( @uploads, $parameters{name}, $upload ); - push( @params, $parameters{name}, $parameters{filename} ); - } - else { - push( @params, $parameters{name}, $part->content ); - } - } - } - - $c->request->param(@params); - $c->request->upload(@uploads); -} - -=item $c->prepare_path - -=cut - -sub prepare_path { - my $c = shift; - - my $base; - { - my $scheme = $c->http->request->uri->scheme; - my $host = $c->http->request->uri->host; - my $port = $c->http->request->uri->port; - - $base = URI->new; - $base->scheme($scheme); - $base->host($host); - $base->port($port); - - $base = $base->canonical->as_string; - } - - my $path = $c->http->request->uri->path || '/'; - $path =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; - $path =~ s/^\///; - - $c->req->base($base); - $c->req->path($path); -} - -=item $c->prepare_request($r) - -=cut - -sub prepare_request { - my ( $c, $http ) = @_; - $c->http($http); -} - -=item $c->prepare_uploads - -=cut - -sub prepare_uploads { - my $c = shift; -} - =item $c->run =cut