projects
/
catagits/Catalyst-Plugin-RequireSSL.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Released RequireSSL 0.04: bug fixes, full test suite
[catagits/Catalyst-Plugin-RequireSSL.git]
/
t
/
lib
/
TestApp
/
C
/
SSL.pm
1
package TestApp::C::SSL;
2
3
use strict;
4
use base 'Catalyst::Base';
5
6
sub secured : Local {
7
my ( $self, $c ) = @_;
8
9
$c->require_ssl;
10
11
$c->res->output( 'Secured' );
12
}
13
14
sub unsecured : Local {
15
my ( $self, $c ) = @_;
16
17
$c->res->output( 'Unsecured' );
18
}
19
20
1;