Tag the old version before converting to the new auth. Convert to new auth, add live...

[catagits/Catalyst-Authentication-Store-Htpasswd.git] / t / lib / TestApp / Controller / Root.pm

diff --git a/t/lib/TestApp/Controller/Root.pm b/t/lib/TestApp/Controller/Root.pm
new file mode 100644 (file)
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;