File Coverage

blib/lib/Catalyst/Plugin/Authentication/Store/UserXML/Folder.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Catalyst::Plugin::Authentication::Store::UserXML::Folder;

use strict;
use warnings;

our $VERSION = '0.02';

use Moose;
use Catalyst::Plugin::Authentication::Store::UserXML::User;
use Path::Class 'file';

has 'folder'           => (is=>'rw', isa=>'Path::Class::Dir', required => 1);
has 'user_folder_file' => (is=>'rw', isa=>'Str', predicate => 'has_user_folder_file');

sub find_user {
    my ( $self, $authinfo, $c ) = @_;

    my $username = $authinfo->{username};
    my $file = (
        $self->has_user_folder_file
        ? file($self->folder, $username, $self->user_folder_file)
        : file($self->folder, $username.'.xml')
    );
    return undef unless -r $file;

    my $user = Catalyst::Plugin::Authentication::Store::UserXML::User->new({
        xml_filename => $file
    });

    die 'username in '.$file.' missmatch'
        if $user->username ne $username;

    return $user;
}

sub user_supports {
    my $self = shift;
    Catalyst::Plugin::Authentication::Store::UserXML::User->supports(@_);
}

sub from_session {
	my ( $self, $c, $username ) = @_;
	$self->find_user( { username => $username }, $c );
}

1;