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

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__
Commit	Line	Data
9db54bcf	1	package Catalyst::Authentication::Store::Person;
	2
	3	use strict;
	4	use warnings;
	5	use base qw/Catalyst::Authentication::Store::DBIx::Class/;
	6
	7	our $VERSION= "0.01";
	8
	9	sub new {
	10	my ( $class, $config, $app ) = @_;
	11	$config->{user_class} = 'TestApp::User';
	12	$config->{store_user_class} = 'Catalyst::Authentication::Store::Person::User';
	13	$config->{role_relation} = 'role';
	14	$config->{role_field} = 'role';
	15
	16	return $class->SUPER::new( $config, $app );
	17	}
	18
	19	__PACKAGE__;
	20
	21	__END__