File: NeedsAuth.pm

package info (click to toggle)
libcatalystx-simplelogin-perl 0.21-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 464 kB
  • sloc: perl: 3,134; makefile: 2
file content (13 lines) | stat: -rw-r--r-- 295 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
package TestAppFormArgs::Controller::NeedsAuth;
use Moose;
use namespace::autoclean;

BEGIN { extends 'Catalyst::Controller' }

sub foo : Chained('/') PathPart('needsauth') Args(0) Does('NeedsLogin') {
    my ($self, $c) = @_;
    $c->res->body("SEKRIT");
}

__PACKAGE__->meta->make_immutable;