1 package Text::Tradition::Witness;
3 use Moose::Util::TypeConstraints;
5 # Sigil. Required identifier for a witness.
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.
17 isa => 'ArrayRef[Str]',
18 predicate => 'has_text',
21 # Source. This is where we read in the witness, if not from a
22 # pre-prepared collation. It is probably a filename.
26 predicate => 'has_source',
31 isa => 'ArrayRef[Text::Tradition::Collation::Reading]',
32 predicate => 'has_path',
35 has 'post_correctione' => (
38 predicate => 'has_post_correctione',
44 $_->[0]->isa( 'Int' ) &&
45 $_->[1]->isa( 'Int' ) &&
46 $_->[2]->isa( 'ArrayRef[Text::Tradition::Collation::Reading]' );
48 message { 'Correction must be a tuple of [offset, length, list]' };
50 has 'corrections' => (
52 isa => 'ArrayRef[Correction]',
53 default => sub { [] },
59 if( $self->has_source ) {
60 # Read the file and initialize the text.
61 open( WITNESS, $self->source ) or die "Could not open "
62 . $self->file . "for reading";
63 # TODO support TEI as well as plaintext, sometime
67 push( @words, split( /\s+/, $_ ) );
70 $self->text( \@words );
74 # If the text is not present, and the path is, and this is a 'get'
75 # request, generate text from path.
80 if( $self->has_path && !$self->has_text && !@_ ) {
81 my @words = map { $_->label } @{$self->path};
82 $self->$orig( \@words );
89 my( $self, $offset, $length, @replacement ) = @_;
90 # Rely on Moose for type checking of the arguments
91 push( @{$self->corrections}, [ $offset, $length, \@replacement ] );
98 push( @new_path, @{$self->path} );
100 foreach my $correction ( @{$self->corrections} ) {
101 my( $offset, $length, $items ) = @$correction;
102 my $realoffset = $offset + $drift;
103 splice( @new_path, $realoffset, $length, @$items );
104 $drift += @$items - $length;
111 __PACKAGE__->meta->make_immutable;