Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

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

Browse source 
Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

Signed-off-by: Mark Tompsett <mtompset@hotmail.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

Signed-off-by: Brendan A Gallagher <brendan@bywatersolutions.com>
This commit is contained in:
Jonathan Druart 2014-12-09 09:48:58 +01:00 committed by Brendan A Gallagher
parent f2eb968145
commit 8ca35dc7a9
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 }
###############################################################################