Bio/ClusterIO.pm

   1 #
   2 # BioPerl module for Bio::ClusterIO.pm
   3 #
   4 # Please direct questions and support issues to <bioperl-l@bioperl.org>
   5 #
   6 # Cared for by Andrew Macgregor <andrew@anatomy.otago.ac.nz>
   7 #
   8 # Copyright Andrew Macgregor, Jo-Ann Stanton, David Green
   9 # Molecular Embryology Group, Anatomy & Structural Biology, University of Otago
  10 # http://anatomy.otago.ac.nz/meg
  11 #
  12 # You may distribute this module under the same terms as perl itself
  13 #
  14 # _history
  15 #
  16 # May 7, 2002 - changed from UniGene.pm to more generic ClusterIO.pm
  17 # by Andrew Macgregor
  18 #
  19 # April 17, 2002 - Initial implementation by Andrew Macgregor
  20 # POD documentation - main docs before the code
  21
  22 =head1 NAME
  23
  24 Bio::ClusterIO - Handler for Cluster Formats
  25
  26 =head1 SYNOPSIS
  27
  28   #NB: This example is unigene specific
  29
  30   use Bio::ClusterIO;
  31
  32   $stream  = Bio::ClusterIO->new('-file' => "Hs.data",
  33                                  '-format' => "unigene");
  34   # note: we quote -format to keep older perl's from complaining.
  35
  36   while ( my $in = $stream->next_cluster() ) {
  37       print $in->unigene_id() . "\n";
  38       while ( my $sequence = $in->next_seq() ) {
  39           print $sequence->accession_number() . "\n";
  40       }
  41   }
  42   # Parsing errors are printed to STDERR.
  43
  44 =head1 DESCRIPTION
  45
  46 The ClusterIO module works with the ClusterIO format module to read
  47 various cluster formats such as NCBI UniGene.
  48
  49
  50 =head1 CONSTRUCTORS
  51
  52 =head2 Bio::ClusterIO-E<gt>new()
  53
  54    $str = Bio::ClusterIO->new(-file => 'filename',
  55                               -format=>$format);
  56
  57 The new() class method constructs a new Bio::ClusterIO object.  The
  58 returned object can be used to retrieve or print cluster
  59 objects. new() accepts the following parameters:
  60
  61 =over 4
  62
  63 =item -file
  64
  65 A file path to be opened for reading.
  66
  67 =item -format
  68
  69 Specify the format of the file.  Supported formats include:
  70
  71    unigene              *.data  UniGene build files.
  72    dbsnp                *.xml   dbSNP XML files
  73
  74 If no format is specified and a filename is given, then the module
  75 will attempt to deduce it from the filename.  If this is unsuccessful,
  76 the main UniGene build format is assumed.
  77
  78 The format name is case insensitive.  'UNIGENE', 'UniGene' and
  79 'unigene' are all supported, as are dbSNP, dbsnp, and DBSNP
  80
  81 =back
  82
  83 =head1 OBJECT METHODS
  84
  85 See below for more detailed summaries.  The main methods are:
  86
  87 =head2 $cluster = $str-E<gt>next_cluster()
  88
  89 Fetch the next cluster from the stream.
  90
  91
  92 =head2 TIEHANDLE(), READLINE(), PRINT()
  93
  94 These I've left in here because they were in the SeqIO
  95 module. Feedback appreciated. There they provide the tie interface.
  96 See L<perltie> for more details.
  97
  98 =head1 FEEDBACK
  99
 100 =head2 Mailing Lists
 101
 102 User feedback is an integral part of the evolution of this
 103 and other Bioperl modules. Send your comments and suggestions preferably
 104  to one of the Bioperl mailing lists.
 105 Your participation is much appreciated.
 106
 107   bioperl-l@bioperl.org                  - General discussion
 108   http://bioperl.org/wiki/Mailing_lists  - About the mailing lists
 109
 110 =head2 Support
 111
 112 Please direct usage questions or support issues to the mailing list:
 113
 114 I<bioperl-l@bioperl.org>
 115
 116 rather than to the module maintainer directly. Many experienced and
 117 reponsive experts will be able look at the problem and quickly
 118 address it. Please include a thorough description of the problem
 119 with code and data examples if at all possible.
 120
 121 =head2 Reporting Bugs
 122
 123 Report bugs to the Bioperl bug tracking system to help us keep track
 124 the bugs and their resolution.  Bug reports can be submitted via the
 125 web:
 126
 127   https://redmine.open-bio.org/projects/bioperl/
 128
 129 =head1 AUTHOR - Andrew Macgregor
 130
 131 Email andrew@anatomy.otago.ac.nz
 132
 133 =head1 APPENDIX
 134
 135 The rest of the documentation details each of the object
 136 methods. Internal methods are usually preceded with a _
 137
 138 =cut
 139
 140 #'
 141 # Let the code begin...
 142
 143 package Bio::ClusterIO;
 144
 145 use strict;
 146
 147
 148 use base qw(Bio::Root::Root Bio::Root::IO);
 149
 150
 151
 152 =head2 new
 153
 154  Title   : new
 155  Usage   : Bio::ClusterIO->new(-file => $filename, -format => 'format')
 156  Function: Returns a new cluster stream
 157  Returns : A Bio::ClusterIO::Handler initialised with the appropriate format
 158  Args    : -file => $filename
 159            -format => format
 160
 161 =cut
 162
 163
 164 my $entry = 0;
 165
 166 sub new {
 167     my ($caller,@args) = @_;
 168     my $class = ref($caller) || $caller;
 169
 170     # or do we want to call SUPER on an object if $caller is an
 171     # object?
 172     if( $class =~ /Bio::ClusterIO::(\S+)/ ) {
 173         my ($self) = $class->SUPER::new(@args);
 174         $self->_initialize(@args);
 175         return $self;
 176     } else {
 177
 178         my %param = @args;
 179         @param{ map { lc $_ } keys %param } = values %param; # lowercase keys
 180         my $format = $param{'-format'} ||
 181             $class->_guess_format( $param{-file} || $ARGV[0] );
 182         $format = "\L$format";  # normalize capitalization to lower case
 183
 184         return unless( $class->_load_format_module($format) );
 185         return "Bio::ClusterIO::$format"->new(@args);
 186     }
 187 }
 188
 189
 190 # _initialize is chained for all ClusterIO classes
 191
 192 sub _initialize {
 193     my($self, @args) = @_;
 194     # initialize the IO part
 195     $self->_initialize_io(@args);
 196 }
 197
 198 =head2 next_cluster
 199
 200  Title   : next_cluster
 201  Usage   : $cluster = $stream->next_cluster()
 202  Function: Reads the next cluster object from the stream and returns it.
 203  Returns : a L<Bio::ClusterI> compliant object
 204  Args    : none
 205
 206
 207 =cut
 208
 209 sub next_cluster {
 210    my ($self, $seq) = @_;
 211    $self->throw("Sorry, you cannot read from a generic Bio::ClusterIO object.");
 212 }
 213
 214 =head2 cluster_factory
 215
 216  Title   : cluster_factory
 217  Usage   : $obj->cluster_factory($newval)
 218  Function: Get/set the object factory to use for creating the cluster
 219            objects.
 220  Example :
 221  Returns : a L<Bio::Factory::ObjectFactoryI> compliant object
 222  Args    : on set, new value (a L<Bio::Factory::ObjectFactoryI>
 223            compliant object or undef, optional)
 224
 225
 226 =cut
 227
 228 sub cluster_factory{
 229     my $self = shift;
 230
 231     return $self->{'cluster_factory'} = shift if @_;
 232     return $self->{'cluster_factory'};
 233 }
 234
 235 =head2 object_factory
 236
 237  Title   : object_factory
 238  Usage   : $obj->object_factory($newval)
 239  Function: This is an alias to cluster_factory with a more generic name.
 240  Example :
 241  Returns : a L<Bio::Factory::ObjectFactoryI> compliant object
 242  Args    : on set, new value (a L<Bio::Factory::ObjectFactoryI>
 243            compliant object or undef, optional)
 244
 245
 246 =cut
 247
 248 sub object_factory{
 249     return shift->cluster_factory(@_);
 250 }
 251
 252 =head2 _load_format_module
 253
 254  Title   : _load_format_module
 255  Usage   : *INTERNAL ClusterIO stuff*
 256  Function: Loads up (like use) a module at run time on demand
 257  Example :
 258  Returns :
 259  Args    :
 260
 261 =cut
 262
 263 sub _load_format_module {
 264   my ($self,$format) = @_;
 265   my $module = "Bio::ClusterIO::" . $format;
 266   my $ok;
 267
 268   eval {
 269       $ok = $self->_load_module($module);
 270   };
 271   if ( $@ ) {
 272     print STDERR <<END;
 273 $self: could not load $format - for more details on supported formats please see the ClusterIO docs
 274 Exception $@
 275 END
 276   ;
 277   }
 278   return $ok;
 279 }
 280
 281 =head2 _guess_format
 282
 283  Title   : _guess_format
 284  Usage   : $obj->_guess_format($filename)
 285  Function: guess format based on file suffix
 286  Example :
 287  Returns : guessed format of filename (lower case)
 288  Args    :
 289  Notes   : formats that _filehandle() will guess include unigene and dbsnp
 290
 291 =cut
 292
 293 sub _guess_format {
 294    my $class = shift;
 295    return unless $_ = shift;
 296    return 'unigene'   if /\.(data)$/i;
 297    return 'dbsnp'     if /\.(xml)$/i;
 298 }
 299
 300 sub DESTROY {
 301     my $self = shift;
 302
 303     $self->close();
 304 }
 305
 306 # I need some direction on these!! The module works so I haven't fiddled with them!
 307
 308 sub TIEHANDLE {
 309     my ($class,$val) = @_;
 310     return bless {'seqio' => $val}, $class;
 311 }
 312
 313 sub READLINE {
 314   my $self = shift;
 315   return $self->{'seqio'}->next_seq() unless wantarray;
 316   my (@list, $obj);
 317   push @list, $obj while $obj = $self->{'seqio'}->next_seq();
 318   return @list;
 319 }
 320
 321 sub PRINT {
 322   my $self = shift;
 323   $self->{'seqio'}->write_seq(@_);
 324 }
 325
 326 1;
 327