commit 59289de1b13d069ee2836a5acb1d1bf60e9eafbe
author Akron <nils@diewald-online.de> Mon Aug 03 11:39:00 2020 +0200
committer Peter Harders <harders@ids-mannheim.de> Tue Sep 22 12:07:50 2020 +0200
tree 8bde18d734a760a0467d5c5b2f19b19f05db72c5
parent 19c6c358875209350c1b9eda87e027236d161676

Minor cleanup

Change-Id: I407b718f810a9cb4fe794e6288d9ee6c9130c618

lib/KorAP/XML/TEI/Header.pm

diff --git a/lib/KorAP/XML/TEI/Header.pm b/lib/KorAP/XML/TEI/Header.pm
index 44e7804..48a7ce6 100644
--- a/lib/KorAP/XML/TEI/Header.pm
+++ b/lib/KorAP/XML/TEI/Header.pm
@@ -30,8 +30,7 @@
 
 # Create new header object
 sub new {
-  my $class = shift;
-  my $text = shift;
+  my ($class, $text) = @_;
 
   my $self = bless [$text, undef, ''], $class;
 
@@ -136,20 +135,18 @@
 
 # corpus/doc/text id escaped
 sub id_esc {
-  escape_xml($_[0]->[SIGLE] =~ tr/\//_/r);
+  escape_xml($_[0]->id);
 };
 
 
 # Return data as a string
 sub to_string {
-  my $self = shift;
-  return $self->_header . $self->[TEXT];
+  return $_[0]->_header . $_[0]->[TEXT];
 };
 
 
 # Header for XML output
 sub _header {
-  my $self = shift;
   # TODO: IDS-specific
   return <<"HEADER";
 <?xml version="1.0" encoding="UTF-8"?>

lib/KorAP/XML/TEI/Tokenizer.pm

diff --git a/lib/KorAP/XML/TEI/Tokenizer.pm b/lib/KorAP/XML/TEI/Tokenizer.pm
index 3d1ba28..90dd075 100644
--- a/lib/KorAP/XML/TEI/Tokenizer.pm
+++ b/lib/KorAP/XML/TEI/Tokenizer.pm
@@ -61,7 +61,7 @@
 
 # Header for XML output
 sub _header {
-  my ($self, $text_id) = @_;
+  my (undef, $text_id) = @_;
   return <<"HEADER";
 <?xml version="1.0" encoding="UTF-8"?>
 <?xml-model href="span.rng"