Experimenting with KiokuX::User

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

diff --git a/lib/Text/Tradition/User.pm b/lib/Text/Tradition/User.pm
new file mode 100644 (file)
index 0000000..5a91101
--- /dev/null
+++ b/lib/Text/Tradition/User.pm
@@ -0,0 +1,17 @@
+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;