t/lib/AuthDigestTestApp/Controller/Root.pm

   1 package AuthDigestTestApp::Controller::Root;
   2 use strict;
   3 use warnings;
   4
   5 use base qw/ Catalyst::Controller /;
   6
   7 __PACKAGE__->config(namespace => '');
   8
   9 sub moose : Local {
  10     my ( $self, $c ) = @_;
  11     #$c->authenticate( { realm => 'testrealm@host.com' } );
  12     $c->authenticate();
  13     $c->res->body( $c->user->id );
  14 }
  15
  16 1;
  17