print only when verbose

svn path=/bioperl-live/trunk/; revision=11501
bioperl · Jun 21, 2007 · 4c4e9e8 · 4c4e9e8
1 parent e9372e6
commit 4c4e9e8
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/examples/root/lib/TestObject.pm b/examples/root/lib/TestObject.pm
@@ -37,7 +37,7 @@ use base qw(Bio::Root::Root TestInterface);
 
 sub data {
     my ($self, $data) = @_;
-    print "Setting test data ($data)\n" if $data;
+    print "Setting test data ($data)\n" if $data && $self->verbose;
     $self->{'data'} = $data if $data;
 
    return $self->{'data'} 
@@ -47,8 +47,8 @@ sub bar {
 
     my $self = shift;
 
-    print "\nExecuting method bar() in TestObject\n";
-    print "Throwing a Bio::TestException\n";
+    print "\nExecuting method bar() in TestObject\n" if $self->verbose;
+    print "Throwing a Bio::TestException\n" if $self->verbose;
 
     my $message = "A Test error";
 
@@ -60,7 +60,7 @@ sub bar {
     $self->throw( -class => 'Bio::TestException',
                   -text  => $message );
 
-    print "Code within bar() below the throw that shouldn't be executed.\n";
+    print "Code within bar() below the throw that shouldn't be executed.\n" if $self->verbose;
 
 }