oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WebGUI Perl::Critic policy. Handle the case when the namespace is

Browse source 
variable instead of a literal.
This commit is contained in:
Colin Kuskie 2009-01-27 20:19:39 +00:00
parent bb53b4f088
commit 0302e7b96e
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/lib/Perl/Critic/Policy/WebGUI/NoIllegalI18NLabels.pm
View file

@ -96,6 +96,10 @@ sub violates {
my @arguments = _get_args($arg_list); my @arguments = _get_args($arg_list);
my $namespace; my $namespace;
if ($arguments[1]) { if ($arguments[1]) {
my $secondArgument = $arguments[1]->[0];
return unless $secondArgument->isa('PPI::Token::Quote');
use Data::Dumper;
print Dumper($arguments[1]);
$namespace = $arguments[1]->[0]->string; $namespace = $arguments[1]->[0]->string;
} }
else { else {