lib/Catalyst/Engine/FCGI/Base.pm

   1 package Catalyst::Engine::FCGI::Base;
   2
   3 use strict;
   4 use FCGI;
   5
   6 =head1 NAME
   7
   8 Catalyst::Engine::FCGI::Base - Base class for FastCGI Engines
   9
  10 =head1 DESCRIPTION
  11
  12 This is a base class for FastCGI engines.
  13
  14 =head1 METHODS
  15
  16 =over 4
  17
  18 =item $c->run
  19
  20 =cut
  21
  22 sub run {
  23     my $class   = shift;
  24     my $request = FCGI::Request();
  25     while ( $request->Accept() >= 0 ) {
  26         $class->handler;
  27     }
  28 }
  29
  30 =back
  31
  32 =head1 SEE ALSO
  33
  34 L<Catalyst>.
  35
  36 =head1 AUTHOR
  37
  38 Sebastian Riedel, C<sri@cpan.org>
  39 Christian Hansen, C<ch@ngmedia.com>
  40
  41 =head1 COPYRIGHT
  42
  43 This program is free software, you can redistribute it and/or modify it under
  44 the same terms as Perl itself.
  45
  46 =cut
  47
  48 1;