lib/Text/Tradition/User.pm

   1 package Text::Tradition::User;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Moose;
   7 with qw(KiokuX::User);
   8
   9 has 'password'   => (is => 'rw', required => 1);
  10 has 'traditions' => (is => 'rw', isa => 'ArrayRef[Text::Tradition]', required => 0);
  11
  12 # after add_tradition => sub {
  13 #     $tradition->set_user($self)
  14 #         unless $tradition->user->username eq $self->name;
  15 # }
  16
  17 1;