package RemoteTestApp1;
-
+use strict;
+use warnings;
use Catalyst qw/
Authentication
/;
use base qw/Catalyst/;
-__PACKAGE__->engine_class('RemoteTestEngine');
+unless ($Catalyst::VERSION >= 5.89000) {
+ __PACKAGE__->engine_class('RemoteTestEngine');
+}
__PACKAGE__->config(
'Plugin::Authentication' => {
default_realm => 'remote',
},
},
);
-
-sub default : Local {
- my ( $self, $c ) = @_;
- if ($c->authenticate()) {
- $c->res->body('User:' . $c->user->{id});
- }
- else {
- $c->res->body('FAIL');
- $c->res->status(403);
- }
-}
-
-sub public : Local {
- my ( $self, $c ) = @_;
- $c->res->body('OK');
+__PACKAGE__->setup;
+if ($Catalyst::VERSION >= 5.89000) {
+ require RemoteTestEngineRole;
+ RemoteTestEngineRole->meta->apply(__PACKAGE__->engine);
}
-__PACKAGE__->setup;
+1;