lib/Catalyst/Engine/FCGI.pm

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