Improved test suite for caching and rei
Change-Id: I1b3c3b7fe47b4ddd8f867edcc91e66e41d607fe9
diff --git a/lib/KorAP/XML/Annotation/Malt/Dependency.pm b/lib/KorAP/XML/Annotation/Malt/Dependency.pm
index 0a74c8e..a7bd31b 100644
--- a/lib/KorAP/XML/Annotation/Malt/Dependency.pm
+++ b/lib/KorAP/XML/Annotation/Malt/Dependency.pm
@@ -92,7 +92,7 @@
}
else {
use Data::Dumper;
- $tokens->log->warn('Relation currently not supported: ' . Dumper($content));
+ $$self->log->warn('Relation currently not supported: ' . Dumper($content));
};
};
}) or return;
diff --git a/lib/KorAP/XML/Krill.pm b/lib/KorAP/XML/Krill.pm
index 5a77624..ea376f4 100644
--- a/lib/KorAP/XML/Krill.pm
+++ b/lib/KorAP/XML/Krill.pm
@@ -376,7 +376,7 @@
=head2 annotate
- $doc->add('Mate', 'Morpho');
+ $doc->annotate('Mate', 'Morpho');
Add annotation layer to conversion process.
diff --git a/lib/KorAP/XML/Tokenizer.pm b/lib/KorAP/XML/Tokenizer.pm
index 8531fa7..affb633 100644
--- a/lib/KorAP/XML/Tokenizer.pm
+++ b/lib/KorAP/XML/Tokenizer.pm
@@ -35,6 +35,7 @@
has log => sub {
if (Log::Log4perl->initialized()) {
state $log = Log::Log4perl->get_logger(__PACKAGE__);
+ return $log;
};
state $log = KorAP::XML::Log->new;
return $log;
diff --git a/lib/KorAP/XML/Tokenizer/Range.pm b/lib/KorAP/XML/Tokenizer/Range.pm
index 3116e5e..366585c 100644
--- a/lib/KorAP/XML/Tokenizer/Range.pm
+++ b/lib/KorAP/XML/Tokenizer/Range.pm
@@ -6,7 +6,7 @@
our $SPAN_RE = qr/!([-+]?\d+):([-+]?\d+)$/;
-our $debug = 1;
+our $debug = 0;
sub new {
my $range = Array::IntSpan->new;