[Bioperl-guts-l] bioperl-live/Bio/Tools/Run WrapperBase.pm, 1.25, 1.26

Senduran Balasubramaniam sendu at dev.open-bio.org
Thu Jan 4 11:55:18 EST 2007


Update of /home/repository/bioperl/bioperl-live/Bio/Tools/Run
In directory dev.open-bio.org:/tmp/cvs-serv14924/Bio/Tools/Run

Modified Files:
	WrapperBase.pm 
Log Message:
added quiet() method

Index: WrapperBase.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Tools/Run/WrapperBase.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** WrapperBase.pm	17 Oct 2006 09:08:09 -0000	1.25
--- WrapperBase.pm	4 Jan 2007 16:55:15 -0000	1.26
***************
*** 363,366 ****
--- 363,384 ----
  }
  
+ =head2 quiet
+ 
+  Title   : quiet
+  Usage   : $factory->quiet(1);
+            if ($factory->quiet()) { ... }
+  Function: Get/set the quiet state. Can be used by wrappers to control if
+            program output is printed to the console or not.
+  Returns : boolean
+  Args    : none to get, boolean to set
+ 
+ =cut
+ 
+ sub quiet {
+     my $self = shift;
+     if (@_) { $self->{quiet} = shift }
+     return $self->{quiet} || 0;
+ }
+ 
  sub DESTROY {
      my $self= shift;



More information about the Bioperl-guts-l mailing list