lib/Text/Tradition/UserStore.pm

   1 package Text::Tradition::UserStore;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Moose;
   7 use KiokuX::User::Util qw(crypt_password);
   8
   9 extends 'KiokuX::Model';
  10
  11 use Text::Tradition::User;
  12
  13 # has 'directory' => (
  14 #     is => 'rw',
  15 #     isa => 'KiokuX::Model',
  16 #     handles => []
  17 #     );
  18
  19 sub add_user {
  20     my ($self, $username, $password) = @_;
  21
  22     my $user = Text::Tradition::User->new(
  23         id => $username,
  24         password => crypt_password($password),
  25     );
  26
  27     my $scope = $self->new_scope;
  28     $self->store($user->kiokudb_object_id, $user);
  29
  30     return $user;
  31 }
  32
  33 sub find_user {
  34     my ($self, $userinfo) = @_;
  35     my $username = $userinfo->{username};
  36
  37     return $self->lookup(Text::Tradition::User->id_for_user($username));
  38
  39 }
  40
  41 1;