[libmagpie-perl] 09/30: Code cleanup, removed noisy debugging warnings.

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag debian/1.163200-1
in repository libmagpie-perl.

commit 12494fe7070c5720305fa9f70421c0578761d981
Author: Kip Hampton <khampton at totalcinema.com>
Date:   Mon Nov 14 17:29:42 2016 -0800

    Code cleanup, removed noisy debugging warnings.
---
 lib/Magpie/Resource/DBIC.pm | 7 +++----
 t/dbic.t                    | 6 +++---
 2 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/lib/Magpie/Resource/DBIC.pm b/lib/Magpie/Resource/DBIC.pm
index 24b6221..91c345d 100644
--- a/lib/Magpie/Resource/DBIC.pm
+++ b/lib/Magpie/Resource/DBIC.pm
@@ -49,7 +49,7 @@ sub _build_data_source {
         }
         catch {
             my $error = "Could not connect to DBIC data source: $_\n";
-            warn "DOUBLE NOPE " . $error;
+            warn $error;
             $self->set_error( { status_code => 500, reason => $error } );
         };
     };
@@ -88,8 +88,7 @@ sub GET {
         return OK;
     }
 
-    #use Data::Dumper;
-    warn "got data " . p($data);
+    #warn "got data " . p($data);
 
     $self->data($data);
     return OK;
@@ -108,7 +107,7 @@ sub POST {
 
     if ( $self->has_data ) {
         $args = $self->data;
-        warn "HAS DATA " . p($args);
+        #warn "HAS DATA " . p($args);
         $self->clear_data;
     }
     else {
diff --git a/t/dbic.t b/t/dbic.t
index 9bdfef6..aac600d 100644
--- a/t/dbic.t
+++ b/t/dbic.t
@@ -58,7 +58,7 @@ test_psgi
     my $created_url = undef;
     {
         my $res = $cb->( POST $url => \%user );
-        warn "RES: " . $res->content;
+        #warn "RES: " . $res->content;
 
         is $res->code, 201, "correct response code";
         $created_url = $res->header('Location');
@@ -84,7 +84,7 @@ test_psgi
             my $res2 = $cb->( GET $created_url);
             is $res2->code, 200, "correct GET response.";
             like $res2->content, qr|roy|, 'Updated JSON serialized';
-            warn $res2->content;
+            #warn $res2->content;
         }
         else {
          fail "GET to follow-on URL failed."
@@ -97,7 +97,7 @@ test_psgi
 
             my $res2 = $cb->( GET $created_url);
             is $res2->code, 404, "correct GET response for deleted entity.";
-            warn $res2->content;
+            #warn $res2->content;
 
         }
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmagpie-perl.git