X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=base%2Flib%2FText%2FTradition.pm;h=769688f1128811ee3781a3e86cd1ffa0aa7ea238;hb=8943ff6864673cb890d378aa8387c9383732a344;hp=e85f366da97cc33b60e8751ec85734c29983cdad;hpb=ed5b9b7019c32c126faecf339bef3a98928f9f31;p=scpubgit%2Fstemmatology.git

diff --git a/base/lib/Text/Tradition.pm b/base/lib/Text/Tradition.pm
index e85f366..769688f 100644
--- a/base/lib/Text/Tradition.pm
+++ b/base/lib/Text/Tradition.pm
@@ -7,7 +7,6 @@ use Moose::Util qw/ does_role apply_all_roles /;
 use Text::Tradition::Collation;
 use Text::Tradition::Error;
 use Text::Tradition::Witness;
-use Text::Tradition::User;
 use TryCatch;
 
 use vars qw( $VERSION );
@@ -20,6 +19,7 @@ eval { with 'Text::Tradition::HasStemma'; };
 # 	warn "Text::Tradition::Analysis not found. Disabling stemma analysis functionality";
 # };
 eval { with 'Text::Tradition::Language'; };
+eval { with 'Text::Tradition::Ownership'; };
 
 has 'collation' => (
     is => 'ro',
@@ -53,22 +53,6 @@ has '_initialized' => (
 	writer => '_init_done',
 	); 
 
-has 'user' => (
-    is => 'rw',
-    isa => 'Text::Tradition::User',
-    required => 0,
-    predicate => 'has_user',
-    clearer => 'clear_user',
-    weak_ref => 1
-    );
-
-has 'public' => (
-    is => 'rw',
-    isa => 'Bool',
-    required => 0,
-    default => sub { 0; },
-    );
-
 # Create the witness before trying to add it
 around 'add_witness' => sub {
     my $orig = shift;