#!/usr/bin/perl
package ACLTestApp::C::Auth;
use base qw/Catalyst::Controller/;
use strict;
use warnings;
sub login : Local {
my ( $self, $c ) = @_;
$c->res->body( $c->login ? "login successful" : "login failed" );
}
sub logout : Local {
my ( $self, $c ) = @_;
$c->logout;
$c->res->body( "goodbye" );
}
sub check : Local {
my ( $self, $c ) = @_;
$c->res->body( $c->user ? "logged in" : "guest" );
}
__PACKAGE__;
__END__
=pod
=head1 NAME
ACLTestApp::C::Auth -
=head1 SYNOPSIS
use ACLTestApp::C::Auth;
=head1 DESCRIPTION
=cut