Released RequireSSL 0.04: bug fixes, full test suite

[catagits/Catalyst-Plugin-RequireSSL.git] / t / lib / TestApp / C / SSL.pm

diff --git a/t/lib/TestApp/C/SSL.pm b/t/lib/TestApp/C/SSL.pm
new file mode 100644 (file)
index 0000000..6faeddf
--- /dev/null
+++ b/t/lib/TestApp/C/SSL.pm
@@ -0,0 +1,20 @@
+package TestApp::C::SSL;
+
+use strict;
+use base 'Catalyst::Base';
+
+sub secured : Local {
+    my ( $self, $c ) = @_;
+    
+    $c->require_ssl;
+    
+    $c->res->output( 'Secured' );
+}
+
+sub unsecured : Local {
+    my ( $self, $c ) = @_;
+    
+    $c->res->output( 'Unsecured' );
+}
+
+1;