[scpubgit/stemmatology.git] / lib / Text / Tradition / User.pm

package Text::Tradition::User;

use strict;
use warnings;

use Moose;
with qw(KiokuX::User);

has 'password'   => (is => 'rw', required => 1);
has 'traditions' => (is => 'rw', isa => 'ArrayRef[Text::Tradition]', required => 0);

# after add_tradition => sub { 
#     $tradition->set_user($self) 
#         unless $tradition->user->username eq $self->name;
# }

1;
Commit	Line	Data
2006bd3f	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;