Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
5 changed files
with
169 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,9 @@ | ||
MANIFEST.bak | ||
cover_db | ||
META.yml | ||
Makefile | ||
blib | ||
inc | ||
pm_to_blib | ||
MANIFEST | ||
Makefile.old |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,11 @@ | ||
package TestApp; | ||
use Moose; | ||
use namespace::autoclean; | ||
|
||
extends 'Catalyst'; | ||
|
||
use Catalyst; | ||
|
||
__PACKAGE__->setup; | ||
|
||
1; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,14 @@ | ||
package TestApp::Controller::Root; | ||
use Moose; | ||
use namespace::autoclean; | ||
BEGIN { | ||
extends 'Catalyst::Controller'; | ||
with 'Catalyst::TraitFor::Controller::Sendfile'; | ||
} | ||
|
||
sub some_action : Local { | ||
my ($self, $c) = @_; | ||
$c->sendfile('/path/to/file'); | ||
} | ||
|
||
__PACKAGE__->meta->make_immutable; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,123 @@ | ||
#!/usr/bin/env perl | ||
|
||
BEGIN { | ||
$ENV{CATALYST_ENGINE} ||= 'HTTP'; | ||
$ENV{CATALYST_SCRIPT_GEN} = 31; | ||
require Catalyst::Engine::HTTP; | ||
} | ||
|
||
use strict; | ||
use warnings; | ||
use Getopt::Long; | ||
use Pod::Usage; | ||
use FindBin; | ||
use lib "$FindBin::Bin/.."; | ||
|
||
my $debug = 0; | ||
my $fork = 0; | ||
my $help = 0; | ||
my $host = undef; | ||
my $port = 3000; | ||
my $keepalive = 0; | ||
my $restart = 0; | ||
my $restart_delay = 1; | ||
my $restart_regex = '\.yml$|\.yaml$|\.pm$'; | ||
my $restart_directory = undef; | ||
my $background = 0; | ||
my $pidfile = "/tmp/testapp.pid"; | ||
|
||
my @argv = @ARGV; | ||
|
||
GetOptions( | ||
'debug|d' => \$debug, | ||
'fork' => \$fork, | ||
'help|?' => \$help, | ||
'host=s' => \$host, | ||
'port=s' => \$port, | ||
'keepalive|k' => \$keepalive, | ||
'restart|r' => \$restart, | ||
'restartdelay|rd=s' => \$restart_delay, | ||
'restartregex|rr=s' => \$restart_regex, | ||
'restartdirectory=s' => \$restart_directory, | ||
'daemon' => \$background, | ||
'pidfile=s' => \$pidfile, | ||
); | ||
|
||
pod2usage(1) if $help; | ||
|
||
if ( $restart ) { | ||
$ENV{CATALYST_ENGINE} = 'HTTP::Restarter'; | ||
} | ||
if ( $debug ) { | ||
$ENV{CATALYST_DEBUG} = 1; | ||
} | ||
|
||
# This is require instead of use so that the above environment | ||
# variables can be set at runtime. | ||
require TestApp; | ||
|
||
TestApp->run( $port, $host, { | ||
argv => \@argv, | ||
'fork' => $fork, | ||
keepalive => $keepalive, | ||
restart => $restart, | ||
restart_delay => $restart_delay, | ||
restart_regex => qr/$restart_regex/, | ||
restart_directory => $restart_directory, | ||
background => $background, | ||
pidfile => $pidfile, | ||
} ); | ||
|
||
1; | ||
|
||
=head1 NAME | ||
testapp_server.pl - Catalyst Testserver | ||
=head1 SYNOPSIS | ||
testapp_server.pl [options] | ||
Options: | ||
-d -debug force debug mode | ||
-f -fork handle each request in a new process | ||
(defaults to false) | ||
-? -help display this help and exits | ||
-host host (defaults to all) | ||
-p -port port (defaults to 3000) | ||
-k -keepalive enable keep-alive connections | ||
-r -restart restart when files get modified | ||
(defaults to false) | ||
-rd -restartdelay delay between file checks | ||
-rr -restartregex regex match files that trigger | ||
a restart when modified | ||
(defaults to '\.yml$|\.yaml$|\.pm$') | ||
-restartdirectory the directory to search for | ||
modified files | ||
(defaults to '../') | ||
-daemon background the server | ||
-pidfile=filename store the pid if the server in filename, if | ||
daemonizing | ||
See also: | ||
perldoc Catalyst::Manual | ||
perldoc Catalyst::Manual::Intro | ||
=head1 DESCRIPTION | ||
Run a Catalyst Testserver for this application. | ||
=head1 AUTHOR | ||
Sebastian Riedel, C<sri@oook.de> | ||
Maintained by the Catalyst Core Team. | ||
=head1 COPYRIGHT | ||
This library is free software, you can redistribute it and/or modify | ||
it under the same terms as Perl itself. | ||
=cut | ||
|
||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,12 @@ | ||
#!/usr/bin/env perl | ||
|
||
use strict; | ||
use warnings; | ||
|
||
use FindBin; | ||
use lib "$FindBin::Bin/.."; | ||
use Catalyst::Test 'TestApp'; | ||
|
||
print request($ARGV[0])->content . "\n"; | ||
|
||
1; |