[Gmod-schema-cmts] schema/chado/chaos-xml/lib/Bio/Chaos ChaosGraph.pm,1.2,1.3 Root.pm,1.2,1.3

[Chris M. <cmu...@us...>]

Update of /cvsroot/gmod/schema/chado/chaos-xml/lib/Bio/Chaos
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1216/lib/Bio/Chaos

Modified Files:
	ChaosGraph.pm Root.pm 
Log Message:
added verbose option

Index: ChaosGraph.pm
===================================================================
RCS file: /cvsroot/gmod/schema/chado/chaos-xml/lib/Bio/Chaos/ChaosGraph.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ChaosGraph.pm	18 Aug 2004 23:39:04 -0000	1.2
--- ChaosGraph.pm	18 Oct 2004 20:49:35 -0000	1.3
***************
*** 597,600 ****
--- 597,601 ----
      my $self = shift;
      my $f = shift;
+ 
      my ($left, $right) = @_;
      if (!$left) {
***************
*** 619,622 ****
--- 620,627 ----
      my $island_name = 'contig-'.$f->get_name.'-'.$left.'-'.$right;
      my $island_uniquename = 'contig-'.$f->get_uniquename.'-'.$left.'-'.$right;
+     if ($self->verbose) {
+         logtime();
+         printf STDERR "Making island $island_name\n";
+     }
      my $island =
        $self->new_feature(
***************
*** 1003,1006 ****
--- 1008,1018 ----
  }
  
+ sub logtime {
+     my $t = time;
+     my $lt = localtime $t;
+     printf "$t $lt : ";
+ }
+ 
+ 
  1;
  
***************
*** 1068,1071 ****
--- 1080,1084 ----
  sub depth { &{shift @_}('depth')}
  
+ 
  1;
  

Index: Root.pm
===================================================================
RCS file: /cvsroot/gmod/schema/chado/chaos-xml/lib/Bio/Chaos/Root.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Root.pm	8 Jul 2004 23:12:44 -0000	1.2
--- Root.pm	18 Oct 2004 20:49:35 -0000	1.3
***************
*** 70,73 ****
--- 70,80 ----
  }
  
+ sub verbose {
+     my $self = shift;
+     $self->{_verbose} = shift if @_;
+     return $self->{_verbose};
+ }
+ 
+ 
  sub freak {
      my $self = shift;