package Text::Tradition::Language::French;
+use strict;
+use warnings;
use Encode qw/ encode_utf8 decode_utf8 /;
use IPC::Run qw/ run /;
use Lingua::TagSet::Multext;
sub _lemmatize_sequence {
my( $replace, @path ) = @_;
- $DB::single = 1 if $replace;
my $tagresult = _treetag_string( _text_from_path( 1, @path ) );
if( $tagresult ) {
# Map the tagged words onto the original readings, splitting
$curr_rdg = shift @path;
}
unless( $curr_rdg ) {
- warn "Ran out of readings in sequence for " . $wit->sigil
- . " at $lexeme";
+ warn "Ran out of readings in sequence at $lexeme";
last;
}
my $curr_rdg_text = $curr_rdg->has_normal_form