From 9942f9e70d8fec8a3b79d441c46011f37ed1e123 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 28 Jul 2008 03:23:20 +0000
Subject: [PATCH] remove debug code from the Perl::Critic label scanner

---
 t/lib/Perl/Critic/Policy/WebGUI/NoIllegalI18NLabels.pm | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/t/lib/Perl/Critic/Policy/WebGUI/NoIllegalI18NLabels.pm b/t/lib/Perl/Critic/Policy/WebGUI/NoIllegalI18NLabels.pm
index 37dbdc9be..ab7806805 100644
--- a/t/lib/Perl/Critic/Policy/WebGUI/NoIllegalI18NLabels.pm
+++ b/t/lib/Perl/Critic/Policy/WebGUI/NoIllegalI18NLabels.pm
@@ -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,