@@ -3,6 +3,18 @@ name 'FCGI-Server-Lighttpd'; all_from 'lib/FCGI/Server/Lighttpd.pm'; test_requires 'Test::More'; +test_requires 'CGI::Fast'; + +requires 'Moose'; +requires 'MooseX::Getopt'; + +requires 'File::Which'; +requires 'String::TT'; +requires 'MIME::Types'; + use_test_base; auto_include; + +install_script 'flight'; + WriteAll; Makefile.PL @@ -1,5 +1,6 @@ package FCGI::Server::Lighttpd; use Moose; +use 5.008001; use Cwd (); use File::Which; @@ -7,7 +8,7 @@ use File::Temp; use String::TT qw/tt strip/; use MIME::Types; -our $VERSION = '0.0001'; +our $VERSION = '0.01'; with 'MooseX::Getopt'; @@ -53,6 +54,10 @@ has static => ( sub run { my ($self, $fcgi) = @_; + + $fcgi ||= $self->extra_argv->[0] + or confess 'required fcgi script path'; + $fcgi = Cwd::abs_path($fcgi); my $mime_types = do { @@ -106,12 +111,17 @@ sub run { =head1 NAME -FCGI::Server::Lighttpd - Module abstract (<= 44 characters) goes here +FCGI::Server::Lighttpd - standalone fcgi launcher using lighttpd =head1 SYNOPSIS - use FCGI::Server::Lighttpd; - blah blah blah + use FCGI::Server::Lighttpd; + + my $server = FCGI::Server::Lighttpd->new( + port => 4423, + nprocs => 5, + ); + $server->run( '/path/to/script.fcgi' ); =head1 DESCRIPTION lib/FCGI/Server/Lighttpd.pm @@ -10,5 +10,5 @@ use lib File::Spec->catfile( $FindBin::Bin, qw/.. lib/ ); use FCGI::Server::Lighttpd; my $flight = FCGI::Server::Lighttpd->new_with_options; -$flight->run(@ARGV); +$flight->run; script/flight 5a73628e0671cc4c0d500cb70982cd16d9c1a893 Daisuke Murase typester@cpan.org http://github.com/typester/flight/commit/7ae3011cc239fed6e7ea5e2df3b89720f438977d 7ae3011cc239fed6e7ea5e2df3b89720f438977d 2008-06-03T19:55:08-07:00 2008-06-03T19:55:08-07:00 added synopsis and prereqs 8dc9c1bec6c9f904a45b6efd53733a0f36ce239b Daisuke Murase typester@cpan.org