Implemented $c->allow_ssl.

[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' );
}

sub maybe_secured : Local {
    my ( $self, $c ) = @_;
    
    $c->allow_ssl;
    
    $c->res->output( 'Maybe secured' );
}

1;