Introduce Log::Any to Annotations::Collector
Change-Id: I1cbdf0452d9519a554b14f84d947bc7be7efdad5
diff --git a/lib/KorAP/XML/TEI/Annotations/Collector.pm b/lib/KorAP/XML/TEI/Annotations/Collector.pm
index 2b13081..93025db 100644
--- a/lib/KorAP/XML/TEI/Annotations/Collector.pm
+++ b/lib/KorAP/XML/TEI/Annotations/Collector.pm
@@ -2,6 +2,7 @@
use base 'KorAP::XML::TEI::Annotations';
use KorAP::XML::TEI::Annotations::Annotation;
use Encode qw(encode decode);
+use Log::Any '$log';
use strict;
use warnings;
@@ -38,7 +39,7 @@
my ($self, $text_id, $param) = @_;
unless ($text_id) {
- warn 'Missing textID';
+ $log->warn('Missing textID');
return;
};
@@ -93,7 +94,7 @@
# Overwrite non-applicable boundary method
sub boundaries {
- warn 'Not supported';
+ $log->warn('Not supported');
};