2008-10-28 10:19:31 +00:00
|
|
|
#!/var/run/current-system/sw/bin/perl -w
|
|
|
|
|
|
|
|
|
|
BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' }
|
|
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use FindBin;
|
|
|
|
|
use lib "$FindBin::Bin/../lib";
|
2008-11-25 11:01:42 +00:00
|
|
|
use Hydra;
|
2008-10-28 10:19:31 +00:00
|
|
|
|
2008-11-25 11:01:42 +00:00
|
|
|
Hydra->run;
|
2008-10-28 10:19:31 +00:00
|
|
|
|
|
|
|
|
1;
|
|
|
|
|
|
|
|
|
|
=head1 NAME
|
|
|
|
|
|
2008-11-25 11:01:42 +00:00
|
|
|
hydra_cgi.pl - Catalyst CGI
|
2008-10-28 10:19:31 +00:00
|
|
|
|
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
|
|
|
|
|
|
See L<Catalyst::Manual>
|
|
|
|
|
|
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
|
|
|
|
|
|
Run a Catalyst application as a cgi script.
|
|
|
|
|
|
|
|
|
|
=head1 AUTHORS
|
|
|
|
|
|
|
|
|
|
Catalyst Contributors, see Catalyst.pm
|
|
|
|
|
|
|
|
|
|
=head1 COPYRIGHT
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
This library is free software, you can redistribute it and/or modify
|
|
|
|
|
it under the same terms as Perl itself.
|
|
|
|
|
|
|
|
|
|
=cut
|
