[Bioperl-guts-l] bioperl-live/Bio/CodonUsage IO.pm,1.6,1.7

[Brian Osborne]

Update of /home/repository/bioperl/bioperl-live/Bio/CodonUsage
In directory dev.open-bio.org:/tmp/cvs-serv26691/Bio/CodonUsage

Modified Files:
	IO.pm 
Log Message:
Correct POD and code

Index: IO.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/CodonUsage/IO.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** IO.pm	21 Apr 2006 13:12:19 -0000	1.6
--- IO.pm	21 Apr 2006 22:02:35 -0000	1.7
***************
*** 16,28 ****
  =head1 SYNOPSIS
  
!         use Bio::CodonUsage::IO;
  
!         ##read in a codon usage file
!         my $io = Bio::CodonUsage::IO->new(-file => "in");
!         my $cut = $io->next_data();
  
!         ##write it out again
!         my $out = Bio::CodonUsage::IO->new(-file => ">out");
!         $out->write_data($cut);
  
  =head1 DESCRIPTION
--- 16,28 ----
  =head1 SYNOPSIS
  
!   use Bio::CodonUsage::IO;
  
!   ## read in a codon usage file
!   my $io = Bio::CodonUsage::IO->new(-file => "in");
!   my $cut = $io->next_data();
  
!   ## write it out again
!   my $out = Bio::CodonUsage::IO->new(-file => ">out");
!   $out->write_data($cut);
  
  =head1 DESCRIPTION
***************
*** 31,36 ****
  of codon usage tables. These tables can initially be retrieved using
  Bio::DB::CUTG. At present only this format is supported for read/write. 
- You can also find CUTG codon tables here:
- ftp://ftp.ebi.ac.uk/pub/databases/cutg.
  
  Reading a CUTG will return a Bio::CodonUsage::Table object. 
--- 31,34 ----
***************
*** 47,51 ****
  =head2 Mailing Lists
  
- 
  User feedback is an integral part of the evolution of this and other
  Bioperl modules. Send your comments and suggestions preferably to one
--- 45,48 ----
***************
*** 79,82 ****
--- 76,80 ----
  package Bio::CodonUsage::IO;
  use Bio::Root::IO;
+ use Bio::CodonUsage::Table;
  use vars qw(@ISA);
  
***************
*** 113,117 ****
  	my $cut = $self->_parse;
  	return $cut;
! 	}
  
  =head2  write_data
--- 111,115 ----
  	my $cut = $self->_parse;
  	return $cut;
! }
  
  =head2  write_data
***************
*** 225,228 ****
--- 223,228 ----
  }
  
+ 1;
  
+ __END__