Added recursive -r flag to prove example

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Engine / SpeedyCGI.pm

package Catalyst::Engine::SpeedyCGI;

use strict;
use base qw(Catalyst::Engine::SpeedyCGI::Base Catalyst::Engine::CGI);

=head1 NAME

Catalyst::Engine::SpeedyCGI - Catalyst SpeedyCGI Engine

=head1 SYNOPSIS

A script using the Catalyst::Engine::SpeedyCGI module might look like:

    #!/usr/bin/speedy -w

    BEGIN { 
       $ENV{CATALYST_ENGINE} = 'SpeedyCGI';
    }

    use strict;
    use lib '/path/to/MyApp/lib';
    use MyApp;

    MyApp->run;

=head1 DESCRIPTION

This is the Catalyst engine for SpeedyCGI.

=head1 OVERLOADED METHODS

This class overloads some methods from C<Catalyst::Engine::SpeedyCGI::Base>
and C<Catalyst::Engine::CGI>.

=over 4

=item $c->prepare_body

=cut

sub prepare_body { 
    shift->Catalyst::Engine::CGI::prepare_body(@_);
}

=item $c->prepare_parameters

=cut

sub prepare_parameters { 
    shift->Catalyst::Engine::CGI::prepare_parameters(@_);
}

=item $c->prepare_request

=cut

sub prepare_request {
    my ( $c, $speedycgi, @arguments ) = @_;
    $speedycgi->register_cleanup( \&CGI::_reset_globals );
    $c->SUPER::prepare_request($speedycgi);
    $c->Catalyst::Engine::CGI::prepare_request(@arguments);
}

=item $c->prepare_uploads

=cut

sub prepare_uploads { 
    shift->Catalyst::Engine::CGI::prepare_uploads(@_);
}

=back 

=head1 SEE ALSO

L<Catalyst>, L<Catalyst::Engine::SpeedyCGI::Base>, L<Catalyst::Engine::CGI>.

=head1 AUTHOR

Sebastian Riedel, C<sri@cpan.org>
Christian Hansen, C<ch@ngmedia.com>

=head1 COPYRIGHT

This program is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.

=cut

1;