The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TestApp::Controller::SSL;

use strict;
use base 'Catalyst::Controller';

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

sub test_detach : Local {
    my ( $self, $c ) = @_;
    
    $c->require_ssl;

    $c->res->redirect('http://www.mydomain.com/redirect_from_the_action');
    
    $c->res->output( 'Test detach' );
}


1;