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

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;
Commit	Line	Data
4585dfb1	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;