Revert "Bug 6679: (follow-up) fix 9 perlcritic violations in C4/TmplTokenType.pm"

This reverts commit 8554ce273cd24bcef738ebf76aeaa79db87403e1.

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

diff --git a/C4/TmplToken.pm b/C4/TmplToken.pm
index 9bd959d..05648ce 100644 (file)
--- a/C4/TmplToken.pm
+++ b/C4/TmplToken.pm
@@ -92,7 +92,7 @@ sub set_children {
 # FIXME: DIRECTIVE is not necessarily TMPL_VAR !!
 sub parameters_and_fields {
     my $this = shift;
-    return map { $_->type == C4::TmplTokenType::DIRECTIVE() ? $_:
+    return map { $_->type == C4::TmplTokenType::DIRECTIVE? $_:
                ($_->type == C4::TmplTokenType::TAG
                        && $_->string =~ /^<input\b/is)? $_: ()}
            @{$this->{'_kids'}};

diff --git a/C4/TmplTokenType.pm b/C4/TmplTokenType.pm
index aaae86d..a08c718 100644 (file)
--- a/C4/TmplTokenType.pm
+++ b/C4/TmplTokenType.pm
@@ -83,15 +83,15 @@ sub to_string {
     return $this->{'name'}
 }
 
-sub TEXT              { $_text }
-sub TEXT_PARAMETRIZED { $_text_parametrized }
-sub CDATA             { $_cdata }
-sub TAG               { $_tag }
-sub DECL              { $_decl }
-sub PI                { $_pi }
-sub DIRECTIVE         { $_directive }
-sub COMMENT           { $_comment }
-sub UNKNOWN           { $_unknown }
+sub TEXT                { $_text }
+sub TEXT_PARAMETRIZED   { $_text_parametrized }
+sub CDATA               { $_cdata }
+sub TAG                         { $_tag }
+sub DECL                { $_decl }
+sub PI                  { $_pi }
+sub DIRECTIVE           { $_directive }
+sub COMMENT             { $_comment }
+sub UNKNOWN             { $_unknown }
 
 ###############################################################################