package RemoteTestApp1;
-
+use strict;
+use warnings;
use Catalyst qw/
Authentication
/;
},
);
-sub default : Local {
- my ( $self, $c ) = @_;
- if ($c->authenticate()) {
- $c->res->body('User:' . $c->user->{username});
- }
- else {
- $c->res->body('FAIL');
- $c->res->status(403);
- }
-}
-
-sub public : Local {
- my ( $self, $c ) = @_;
- $c->res->body('OK');
-}
-
__PACKAGE__->setup;
+1;
+