lib/Text/Tradition/Witness.pm

   1 package Text::Tradition::Witness;
   2 use Moose;
   3 use Moose::Util::TypeConstraints;
   4
   5 # Sigil. Required identifier for a witness.
   6 has 'sigil' => (
   7     is => 'ro',
   8     isa => 'Str',
   9     required => 1,
  10     );
  11
  12 # Text.  This is an array of strings (i.e. word tokens).
  13 # TODO Think about how to handle this for the case of pre-prepared
  14 # collations, where the tokens are in the graph already.
  15 has 'text' => (
  16     is => 'rw',
  17     isa => 'ArrayRef[Str]',
  18     predicate => 'has_text',
  19     );
  20
  21 # Source.  This is where we read in the witness, if not from a
  22 # pre-prepared collation.  It is probably a filename.
  23 has 'source' => (
  24     is => 'ro',
  25     isa => 'Str',
  26     predicate => 'has_source',
  27     );
  28
  29 # Path.  This is an array of Reading nodes that should mirror the
  30 # text above.
  31 has 'path' => (
  32     is => 'rw',
  33     isa => 'ArrayRef[Text::Tradition::Collation::Reading]',
  34     predicate => 'has_path',
  35     );
  36
  37 has 'uncorrected_path' => (
  38     is => 'rw',
  39     isa => 'ArrayRef[Text::Tradition::Collation::Reading]',
  40     predicate => 'has_ante_corr',
  41     );
  42
  43 # Manuscript name or similar
  44 has 'identifier' => (
  45     is => 'ro',
  46     isa => 'Str',
  47     );
  48
  49 # Any other info we have
  50 has 'other_info' => (
  51     is => 'ro',
  52     isa => 'Str',
  53     );
  54
  55
  56 sub BUILD {
  57     my $self = shift;
  58     if( $self->has_source ) {
  59         # Read the file and initialize the text.
  60         my $rc;
  61         eval { no warnings; $rc = open( WITNESS, $self->source ); };
  62         # If we didn't open a file, assume it is a string.
  63         if( $rc ) {
  64             my @words;
  65             while(<WITNESS>) {
  66                 chomp;
  67                 push( @words, split( /\s+/, $_ ) );
  68             }
  69             close WITNESS;
  70             $self->text( \@words );
  71         } # else the text is in the source string, probably
  72           # XML, and we are doing nothing with it.
  73     }
  74 }
  75
  76 # If the text is not present, and the path is, and this is a 'get'
  77 # request, generate text from path.
  78 around text => sub {
  79     my $orig = shift;
  80     my $self = shift;
  81
  82     if( $self->has_path && !$self->has_text && !@_ ) {
  83         my @words = map { $_->label } @{$self->path};
  84         $self->$orig( \@words );
  85     }
  86
  87     $self->$orig( @_ );
  88 };
  89
  90 no Moose;
  91 __PACKAGE__->meta->make_immutable;