The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Catalyst::Authentication::Store::Person::User;

use strict;
use warnings;
use base qw/Catalyst::Authentication::Store::DBIx::Class::User/;
use base qw/Class::Accessor::Fast/;
use Data::Dump;

sub load {
    my ($self, $authinfo, $c) = @_;	
	if ( exists( $authinfo->{'id'} ) ) {		
        $self->_user( $c->model('TestApp::User')->find($authinfo->{'id'}) );		
    } elsif ( exists( $authinfo->{'username'} ) ) {
		my $u = $c->model('TestApp::User')->find({ username => $authinfo->{'username'} });
	    $self->_user( $u );
	}
    if ($self->get_object) {
        return $self;
    } else {
        return undef;
    }
}

1;
__END__