package NoAuth::Controller::Foo;

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

use NoAuth::Exception;

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

sub not_ok : Local {
    my ( $self, $c ) = @_;
    
    $c->forward( 'crash' );
}

sub not_ok_obj : Local {
    my ( $self, $c ) = @_;
    
    $c->forward( 'crash_obj' );
}

sub crash : Local {
    my ( $self, $c ) = @_;
    
    three();
}

sub crash_obj : Local {
    my ( $self, $c ) = @_;

    die NoAuth::Exception->new;
}

sub crash_user : Local {
    my ( $self, $c ) = @_;

    $c->authenticate(
        {
            username => 'buffy',
            password => 'stake'
        }
    );

    die 'Vampire';
}

1;