lib/Catalyst/Engine/SpeedyCGI/Base.pm

   1 package Catalyst::Engine::SpeedyCGI::Base;
   2
   3 use strict;
   4 use base 'Catalyst::Engine::CGI::Base';
   5
   6 use CGI::SpeedyCGI;
   7
   8 __PACKAGE__->mk_accessors('speedycgi');
   9
  10 =head1 NAME
  11
  12 Catalyst::Engine::SpeedyCGI::Base - Base class for SpeedyCGI Engines
  13
  14 =head1 DESCRIPTION
  15
  16 This is a base class for SpeedyCGI engines.
  17
  18 =head1 METHODS
  19
  20 =over 4
  21
  22 =item $c->speedycgi
  23
  24 Contains the C<CGI::SpeedyCGI> object.
  25
  26 =back
  27
  28 =head1 OVERLOADED METHODS
  29
  30 This class overloads some methods from C<Catalyst::Engine::CGI::Base>.
  31
  32 =over 4
  33
  34 =item $c->prepare_request
  35
  36 =cut
  37
  38 sub prepare_request {
  39     my ( $c, $speedycgi ) = @_;
  40     $c->speedycgi($speedycgi);
  41 }
  42
  43 =item $c->run
  44
  45 =cut
  46
  47 sub run {
  48     my ( $class, @arguments ) = @_;
  49     $class->handler( CGI::SpeedyCGI->new, @arguments );
  50 }
  51
  52 =back
  53
  54 =head1 SEE ALSO
  55
  56 L<Catalyst>, L<CGI::SpeedyCGI>, L<Catalyst::Engine::CGI::Base>.
  57
  58 =head1 AUTHOR
  59
  60 Sebastian Riedel, C<sri@cpan.org>
  61 Christian Hansen, C<ch@ngmedia.com>
  62
  63 =head1 COPYRIGHT
  64
  65 This program is free software, you can redistribute it and/or modify it under
  66 the same terms as Perl itself.
  67
  68 =cut
  69
  70 1;