Catalyst::Authentication::Store::DBI::User - User object representing a

package Catalyst::Authentication::Store::DBI::User;
use strict;
use warnings;
use base 'Catalyst::Authentication::User';

sub new
{
	my ($class, $store, $user) = @_;

	unless ($user) {
		return undef;
	}

	my $self = {
		'store'	=> $store,
		'user'	=> $user,
	};

	bless($self, $class);

	return $self;
}

sub id
{
	my $self = shift;

	my $user_key = $self->{'store'}{'user_key'};

	return $self->{'user'}{$user_key};
}

# sub supports is implemented by the base class, so supported_features is enough

sub supported_features
{
	my $self = shift;

	return {
		'session'	=> 1,
		'roles'		=> 1,
	};
}

sub get
{
	my ($self, $fieldname) = @_;

	unless (exists($self->{'user'}{$fieldname})) {
		return undef;
	}

	return $self->{'user'}{$fieldname};
}

sub get_object
{
	my $self = shift;

	return $self->{'user'};
}

*obj = \&get_object;

sub roles
{
	my $self = shift;

	if (exists($self->{'roles'}) && ref($self->{'roles'}) eq 'ARRAY') {
		return @{$self->{'roles'}};
	}

	my $store = $self->{'store'};
	my $dbh = $store->{'dbh'};
	my $sth;
	my $role;
	my @field = (
		'role_table', 'role_name',
		'role_table',
		'user_role_table',
		'user_role_table', 'user_role_role_key',
		'role_table', 'role_key',
		'user_role_table', 'user_role_user_key',
	);

	my $sql = sprintf('SELECT %s.%s FROM %s' .
	    ' INNER JOIN %s ON %s.%s = %s.%s WHERE %s.%s = ?',
	    map { $dbh->quote_identifier($store->{$_}) } @field);

	$sth = $dbh->prepare($sql) or die($dbh->errstr());
	$sth->execute($self->{'user'}{$store->{'user_key'}}) or
	    die($dbh->errstr());
	$sth->bind_columns(\$role) or die($dbh->errstr());
	while ($sth->fetch()) {
		push(@{$self->{'roles'}}, $role);
	}
	$sth->finish();

	return @{$self->{'roles'}};
}

1;