Implemented $c->allow_ssl.

[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
index 6faeddf..18f67e0 100644 (file)
--- a/t/lib/TestApp/C/SSL.pm
+++ b/t/lib/TestApp/C/SSL.pm
@@ -17,4 +17,12 @@ sub unsecured : Local {
     $c->res->output( 'Unsecured' );
 }
 
+sub maybe_secured : Local {
+    my ( $self, $c ) = @_;
+    
+    $c->allow_ssl;
+    
+    $c->res->output( 'Maybe secured' );
+}
+
 1;