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

remove debug code from the Perl::Critic label scanner

Browse source
This commit is contained in:
Colin Kuskie 2008-07-28 03:23:20 +00:00
parent ee9772d543
commit 9942f9e70d
1 changed files with 0 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -110,8 +110,6 @@ sub violates {
my $arg_list = $elem->snext_sibling;
return unless ref $arg_list eq 'PPI::Structure::List';
my @arguments = _get_args($arg_list);
use Data::Dumper;
print Dumper \@arguments;
##First argument should be a quote, and there shouldn't be any operators when
##constructing arguments for the get call.
return if exists $arguments[0]->[1] and $arguments[0]->[1]->isa('PPI::Token::Operator');
@ -121,9 +119,6 @@ sub violates {
if ($arguments[1]) {
$namespace = $arguments[1]->[0]->string;
}
print "object : $symbol_name\n";
print "label : $label\n";
print "namespace : $namespace\n";
if (! $self->{i18n}->get($label, $namespace)) {
return $self->violation(
$DESC,