use Text::Tradition::Collation;
use Text::Tradition::Stemma;
use Text::Tradition::Witness;
+use Text::Tradition::User;
use vars qw( $VERSION );
$VERSION = "0.5";
default => sub { [] },
);
+has '_initialized' => (
+ is => 'ro',
+ isa => 'Bool',
+ default => undef,
+ writer => '_init_done',
+ );
+
+has 'user' => (
+ is => 'rw',
+ isa => 'Text::Tradition::User',
+ required => 0,
+ predicate => 'has_user',
+ clearer => 'clear_user',
+ );
+
+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;
$mod->can('parse')->( $self, $init_args );
}
}
+ $self->_init_done( 1 );
return $self;
}