gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This reverts commit 8554ce273c.

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
Tomas Cohen Arazi 2015-05-26 14:16:21 -03:00
parent 5bb7ffa026
commit f55c1032b7
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C4/TmplToken.pm
View File

@ -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'}};

18
C4/TmplTokenType.pm
View File

@ -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 }
###############################################################################