X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FRoot.pm;fp=t%2Flib%2FTestApp%2FController%2FRoot.pm;h=e3860a158267926ac4ff34a03caa40f9dc05335e;hb=1658508350f43b56a125c3d276b7af0ad7d9b8e8;hp=0000000000000000000000000000000000000000;hpb=34f62807d3de40b6dfe807e2e3e36d996a519120;p=catagits%2FCatalyst-Authentication-Store-Htpasswd.git diff --git a/t/lib/TestApp/Controller/Root.pm b/t/lib/TestApp/Controller/Root.pm new file mode 100644 index 0000000..e3860a1 --- /dev/null +++ b/t/lib/TestApp/Controller/Root.pm @@ -0,0 +1,20 @@ +package TestApp::Controller::Root; +use strict; +use warnings; + +__PACKAGE__->config(namespace => q{}); + +use base 'Catalyst::Controller'; + +# your actions replace this one +sub default : Private { + my ($self, $c) = @_; + my $body = ''; + if ($c->authenticate({ username => 'mufasa', password => 'Circle of Life'})) { + $body .= "Authenticated:"; + $body .= $c->user->id; + } + $c->res->body($body); +} + +1;