lib/Catalyst/Engine/FCGI.pm

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