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
0 parents
commit 0c93bf7
Showing
15 changed files
with
235 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,8 @@ | ||
cover_db | ||
META.yml | ||
Makefile | ||
blib | ||
inc | ||
pm_to_blib | ||
MANIFEST | ||
Makefile.old |
Empty file.
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,8 @@ | ||
.git/ | ||
blib | ||
pm_to_blib | ||
MANIFEST.bak | ||
MANIFEST.SKIP~ | ||
cover_db | ||
Makefile$ | ||
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,17 @@ | ||
use inc::Module::Install; | ||
|
||
my $module = 'Catalyst::Plugin::Session::HMAC'; | ||
|
||
my $dist = $module; | ||
$dist =~ s/::/-/g; | ||
name($dist); | ||
|
||
my @path = split '::', $module; | ||
all_from('lib/'. (join '/',@path). '.pm'); | ||
|
||
build_requires 'Catalyst::Runtime'; | ||
build_requires 'Test::WWW::Mechanize::Catalyst'; | ||
build_requires 'Test::More'; | ||
build_requires 'ok'; | ||
|
||
WriteAll(); |
Empty file.
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 Catalyst::Plugin::Session::HMAC; | ||
use strict; | ||
use warnings; | ||
|
||
=head1 NAME | ||
Catalyst::Plugin::Session::HMAC - | ||
=cut | ||
|
||
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,6 @@ | ||
#!/usr/bin/env perl | ||
|
||
use strict; | ||
use warnings; | ||
use Test::More tests => 1; | ||
use ok 'Catalyst::Plugin::Session::HMAC'; |
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,6 @@ | ||
#!perl -T | ||
|
||
use Test::More; | ||
eval "use Test::Pod::Coverage 1.04"; | ||
plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; | ||
all_pod_coverage_ok(); |
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,6 @@ | ||
#!perl -T | ||
|
||
use Test::More; | ||
eval "use Test::Pod 1.14"; | ||
plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; | ||
all_pod_files_ok(); |
Empty file.
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 @@ | ||
package TestApp; | ||
use strict; | ||
use warnings; | ||
|
||
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,12 @@ | ||
package TestApp::Controller::Root; | ||
use strict; | ||
use warnings; | ||
|
||
__PACKAGE__->config(namespace => q{}); | ||
|
||
use base 'Catalyst::Controller'; | ||
|
||
# your actions replace this one | ||
sub main :Path { $_[1]->res->body('<h1>It works</h1>') } | ||
|
||
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,121 @@ | ||
#!/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; |
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,19 @@ | ||
#!/usr/bin/env perl | ||
|
||
use strict; | ||
use warnings; | ||
use Test::More tests => 3; | ||
|
||
# setup library path | ||
use FindBin qw($Bin); | ||
use lib "$Bin/lib"; | ||
|
||
# make sure testapp works | ||
use ok 'TestApp'; | ||
|
||
# a live test against TestApp, the test application | ||
use Test::WWW::Mechanize::Catalyst 'TestApp'; | ||
my $mech = Test::WWW::Mechanize::Catalyst->new; | ||
$mech->get_ok('http://localhost/', 'get main page'); | ||
$mech->content_like(qr/it works/i, 'see if it has our text'); | ||
|