lib/Text/Tradition/Witness.pm

   1 package Text::Tradition::Witness;
   2 use Moose;
   3
   4 # Sigil. Required identifier for a witness.
   5 has 'sigil' => (
   6     is => 'ro',
   7     isa => 'Str',
   8     required => 1,
   9     );
  10
  11 # Text.  This is an array of strings (i.e. word tokens).
  12 # TODO Think about how to handle this for the case of pre-prepared
  13 # collations, where the tokens are in the graph already.
  14 has 'text' => (
  15     is => 'rw',
  16     isa => 'ArrayRef[Str]',
  17     );
  18
  19 # Source.  This is where we read in the witness, if not from a
  20 # pre-prepared collation.  It is probably a filename.
  21 has 'source' => (
  22     is => 'ro',
  23     isa => 'Str',
  24     );
  25
  26 sub BUILD {
  27     my $self = shift;
  28     if( $self->has_source ) {
  29         # Read the file and initialize the text.
  30         open( WITNESS, $self->source ) or die "Could not open "
  31             . $self->file . "for reading";
  32         # TODO support TEI as well as plaintext, sometime
  33         my @words;
  34         while(<WITNESS>) {
  35             chomp;
  36             push( @words, split( /\s+/, $_ ) );
  37         }
  38         close WITNESS;
  39         $self->text( \@words );
  40     }
  41 }
  42
  43 no Moose;
  44 __PACKAGE__->meta->make_immutable;