Fix bug, patch from Anthony Gladdish on mailing list

[catagits/Catalyst-Authentication-Store-DBIx-Class.git] / t / lib / Catalyst / Authentication / Store / Person.pm

diff --git a/t/lib/Catalyst/Authentication/Store/Person.pm b/t/lib/Catalyst/Authentication/Store/Person.pm
new file mode 100644 (file)
index 0000000..2ab0af3
--- /dev/null
+++ b/t/lib/Catalyst/Authentication/Store/Person.pm
@@ -0,0 +1,21 @@
+package Catalyst::Authentication::Store::Person;
+
+use strict;
+use warnings;
+use base qw/Catalyst::Authentication::Store::DBIx::Class/;
+
+our $VERSION= "0.01";
+
+sub new {
+    my ( $class, $config, $app ) = @_;    
+    $config->{user_class}       = 'TestApp::User';
+    $config->{store_user_class} = 'Catalyst::Authentication::Store::Person::User';
+    $config->{role_relation}    = 'role';
+    $config->{role_field}       = 'role';
+
+    return $class->SUPER::new( $config, $app );
+}
+
+__PACKAGE__;
+
+__END__
\ No newline at end of file