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;