1 package Text::Tradition::UserStore;
7 use KiokuX::User::Util qw(crypt_password);
9 extends 'KiokuX::Model';
11 use Text::Tradition::User;
13 # has 'directory' => (
15 # isa => 'KiokuX::Model',
20 my ($self, $username, $password) = @_;
22 my $user = Text::Tradition::User->new(
24 password => crypt_password($password),
27 my $scope = $self->new_scope;
28 $self->store($user->kiokudb_object_id, $user);
34 my ($self, $userinfo) = @_;
35 my $username = $userinfo->{username};
37 return $self->lookup(Text::Tradition::User->id_for_user($username));