OpenSSL-Query: remove debug prints

diff --git a/lib/OpenSSL/Query/ClaREST.pm b/lib/OpenSSL/Query/ClaREST.pm
index a278af40fc3f66e97975688805cee021f6615734..e643f242f58ffe2ec5f67df0f3e0e350eaa15849 100644 (file)
--- a/lib/OpenSSL/Query/ClaREST.pm
+++ b/lib/OpenSSL/Query/ClaREST.pm
@@ -29,7 +29,7 @@ sub _build__clahandler {
 sub BUILD {
   my $self = shift;
 
-  print STDERR Dumper(@_);
+  # print STDERR Dumper(@_);
   my $ua = $self->_clahandler;
   my $resp = $ua->get($self->base_url);
   croak "Server error: ", $resp->message if $resp->is_server_error;

diff --git a/lib/OpenSSL/Query/PersonREST.pm b/lib/OpenSSL/Query/PersonREST.pm
index 8158308cd9e8962c87dddb9e07dcf605c721c181..729fb4efb7b7046c59a98713e326a9fa8e0e548d 100644 (file)
--- a/lib/OpenSSL/Query/PersonREST.pm
+++ b/lib/OpenSSL/Query/PersonREST.pm
@@ -29,7 +29,7 @@ sub _build__personhandler {
 sub BUILD {
   my $self = shift;
 
-  print STDERR Dumper(@_);
+  # print STDERR Dumper(@_);
   my $ua = $self->_personhandler;
   my $resp = $ua->get($self->base_url);
   croak "Server error: ", $resp->message if $resp->is_server_error;

diff --git a/t/query.t b/t/query.t
index c864dbbb2efd8da93e7234492e6e9733f0f5733a..2900b62ae94eabe03a2fd4b07ae91f9964c323d2 100644 (file)
--- a/t/query.t
+++ b/t/query.t
@@ -21,7 +21,7 @@ SKIP: {
                                                   // "http://localhost:5000") },
               'Creating a OpenSSL::Query object' );
 
-  print STDERR Dumper($query);
+  # print STDERR Dumper($query);
   subtest 'Request of person data for Ray Bradbury' => sub {
     plan tests => 2;