Raw content of Bio::Tools::SeqAnal #------------------------------------------------------------------------------- # PACKAGE : Bio::Tools::SeqAnal # PURPOSE : To provide a base class for different sequence analysis tools. # AUTHOR : Steve Chervitz (sac@bioperl.org) # CREATED : 27 Mar 1998 # REVISION: $Id: SeqAnal.pm,v 1.12 2002/10/22 07:38:46 lapp Exp $ # STATUS : Alpha # # For documentation, run this module through pod2html # (preferably from Perl v5.004 or better). #------------------------------------------------------------------------------- package Bio::Tools::SeqAnal; use Bio::Root::Object (); use Bio::Root::Global qw(:std); use strict; use vars qw($ID $VERSION @ISA); @ISA = qw( Bio::Root::Object ); $ID = 'Bio::Tools::SeqAnal'; $VERSION = 0.011; ## POD Documentation: =head1 NAME Bio::Tools::SeqAnal - Bioperl sequence analysis base class. =head1 SYNOPSIS =head2 Object Creation This module is an abstract base class. Perl will let you instantiate it, but it provides little functionality on its own. This module should be used via a specialized subclass. See L<_initialize()|_initialize> for a description of constructor parameters. require Bio::Tools::SeqAnal; To run and parse a new report: $hit = new Bio::Tools::SeqAnal ( -run => \%runParams, -parse => 1); To parse an existing report: $hit = new Bio::Tools::SeqAnal ( -file => 'filename.data', -parse => 1); To run a report without parsing: $hit = new Bio::Tools::SeqAnal ( -run => \%runParams ); To read an existing report without parsing: $hit = new Bio::Tools::SeqAnal ( -file => 'filename.data', -read => 1); =head1 INSTALLATION This module is included with the central Bioperl distribution: http://bio.perl.org/Core/Latest ftp://bio.perl.org/pub/DIST Follow the installation instructions included in the README file. =head1 DESCRIPTION Bio::Tools::SeqAnal.pm is a base class for specialized sequence analysis modules such as B<Bio::Tools::Blast> and B<Bio::Tools::Fasta>. It provides some basic data and functionalities that are not unique to a specialized module such as: =over 4 =item * reading raw data into memory. =item * storing name and version of the program. =item * storing name of the query sequence. =item * storing name and version of the database. =item * storing & determining the date on which the analysis was performed. =item * basic file manipulations (compress, uncompress, delete). =back Some of these functionalities (reading, file maipulation) are inherited from B<Bio::Root::Object>, from which Bio::Tools::SeqAnal.pm derives. =head1 RUN, PARSE, and READ A SeqAnal.pm object can be created using one of three modes: run, parse, or read. MODE DESCRIPTION ----- ----------- run Run a new sequence analysis report. New results can then be parsed or saved for analysis later. parse Parse the data from a sequence analysis report loading it into the SeqAnal.pm object. read Read in data from an existing raw analysis report without parsing it. In the future, this may also permit persistent SeqAnal.pm objects. This mode is considered experimental. The mode is set by supplying switches to the constructor, see L<_initialize()|_initialize>. A key feature of SeqAnal.pm is the ability to access raw data in a generic fashion. Regardless of what sequence analysis method is used, the raw data always need to be read into memory. The SeqAnal.pm class utilizes the L<Bio::Root::Object::read()|Bio::Root::Object> method inherited from B<Bio::Root::Object> to permit the following: =over 4 =item * read from a file or STDIN. =item * read a single record or a stream containing multiple records. =item * specify a record separator. =item * store all input data in memory or process the data stream as it is being read. =back By permitting the parsing of data as it is being read, each record can be analyzed as it is being read and saved or discarded as necessary. This can be useful when cruching through thousands of reports. For examples of this, see the L<parse()|parse> methods defined in B<Bio::Tools::Blast> and B<Bio::Tools::Fasta>. =head2 Parsing & Running Parsing and running of sequence analysis reports must be implemented for each specific subclass of SeqAnal.pm. No-op stubs ("virtual methods") are provided here for the L<parse()|parse> and L<run()|run> methods. See B<Bio::Tools::Blast> and B<Bio::Tools::Fasta> for examples. =head1 DEPENDENCIES Bio::Tools::SeqAnal.pm is a concrete class that inherits from B<Bio::Root::Object>. This module also makes use of a number of functionalities inherited from B<Bio::Root::Object> (file manipulations such as reading, compressing, decompressing, deleting, and obtaining date. =head1 FEEDBACK =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 of the Bioperl mailing lists. Your participation is much appreciated. bioperl-l@bioperl.org - General discussion http://bio.perl.org/MailList.html - About the mailing lists =head2 Reporting Bugs Report bugs to the Bioperl bug tracking system to help us keep track the bugs and their resolution. Bug reports can be submitted via email or the web: bioperl-bugs@bio.perl.org http://bugzilla.bioperl.org/ =head1 AUTHOR Steve Chervitz, sac@bioperl.org See the L<FEEDBACK | FEEDBACK> section for where to send bug reports and comments. =head1 VERSION Bio::Tools::SeqAnal.pm, 0.011 =head1 COPYRIGHT Copyright (c) 1998 Steve Chervitz. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO http://bio.perl.org/Projects/modules.html - Online module documentation http://bio.perl.org/Projects/Blast/ - Bioperl Blast Project http://bio.perl.org/ - Bioperl Project Homepage =cut # ## ### #### END of main POD documentation. ### ## # =head1 APPENDIX Methods beginning with a leading underscore are considered private and are intended for internal use by this module. They are B<not> considered part of the public interface and are described here for documentation purposes only. =cut ############################################################################## ## CONSTRUCTOR ## ############################################################################## =head2 _initialize Usage : n/a; automatically called by Bio::Root::Object::new() Purpose : Calls private methods to extract the raw report data, : Calls superclass constructor first (Bio::Root::Object.pm). Returns : string containing the make parameter value. Argument : Named parameters (TAGS CAN BE ALL UPPER OR ALL LOWER CASE). : The SeqAnal.pm constructor only processes the following : parameters passed from new() : -RUN => hash reference for named parameters to be used : for running a sequence analysis program. : These are dereferenced and passed to the run() method. : -PARSE => boolean, : -READ => boolean, : : If -RUN is HASH ref, the run() method will be called with the : dereferenced hash. : If -PARSE is true, all parameters passed from new() are passed : to the parse() method. This occurs after the run method call : to enable combined running + parsing. : If -READ is true, all parameters passed from new() are passed : to the read() method. : Either -PARSE or -READ should be true, not both. Comments : Does not calls _rearrange() to handle parameters since only : a few are required and there may be potentially many. See Also : B<Bio::Root::Object::new()>, B<Bio::Root::Object::_rearrange()> =cut #----------------- sub _initialize { #----------------- my( $self, %param ) = @_; my $make = $self->SUPER::_initialize(%param); my($read, $parse, $runparam) = ( ($param{-READ}||$param{'-read'}), ($param{-PARSE}||$param{'-parse'}), ($param{-RUN}||$param{'-run'}) ); # $self->_rearrange([qw(READ PARSE RUN)], @param); # Issue: How to keep all the arguments for running the analysis # separate from other arguments needed for parsing the results, etc? # Solution: place all the run arguments in a separate hash. $self->run(%$runparam) if ref $runparam eq 'HASH'; if($parse) { $self->parse(%param); } elsif($read) { $self->read(%param) } $make; } #-------------- sub destroy { #-------------- my $self=shift; $DEBUG==2 && print STDERR "DESTROYING $self ${\$self->name}"; undef $self->{'_rawData'}; $self->SUPER::destroy; } ############################################################################### # ACCESSORS ############################################################################### # The mode of the SeqAnal object is no longer explicitly set. # This simplifies the interface somewhat. ##---------------------------------------------------------------------- #=head2 mode() # Usage : $object->mode(); # : # Purpose : Set/Get the mode for the sequence analysis object. # : # Returns : String # : # Argument : n/a # : # : # Comments : The mode specifies how much detail to extract from the # : sequence analysis report. There are three modes: # : # : 'parse' -- Parse the sequence analysis output data. # : # : 'read' -- Reads in the raw report but does not # : attempt to parse it. Useful when you just # : want to work with the output as-is # : (e.g., create HTML-formatted output). # : # : 'run' -- Generates a new report. # : # : Allowable modes are defined by the exported package global array # : @SeqAnal_modes. # #See Also : _set_mode() #=cut ##---------------------------------------------------------------------- #sub mode { # my $self = shift; # if(@_) { $self->{'_mode'} = lc(shift); } # $self->{'_mode'}; #} # =head2 best Usage : $object->best(); Purpose : Set/Get the indicator for processing only the best match. Returns : Boolean (1 | 0) Argument : n/a =cut #---------- sub best { #---------- my $self = shift; if(@_) { $self->{'_best'} = shift; } $self->{'_best'}; } =head2 _set_db_stats Usage : $object->_set_db_stats(<named parameters>); Purpose : Set stats about the database searched. Returns : String Argument : named parameters: : -LETTERS => <int> (number of letters in db) : -SEQS => <int> (number of sequences in db) =cut #------------------- sub _set_db_stats { #------------------- my ($self, %param) = @_; $self->{'_db'} ||= $param{-NAME} || ''; $self->{'_dbRelease'} = $param{-RELEASE} || ''; ($self->{'_dbLetters'} = $param{-LETTERS} || 0) =~ s/,//g; ($self->{'_dbSeqs'} = $param{-SEQS} || 0) =~ s/,//g; } =head2 database Usage : $object->database(); Purpose : Set/Get the name of the database searched. Returns : String Argument : n/a =cut #--------------- sub database { #--------------- my $self = shift; if(@_) { $self->{'_db'} = shift; } $self->{'_db'}; } =head2 database_release Usage : $object->database_release(); Purpose : Set/Get the release date of the queried database. Returns : String Argument : n/a =cut #----------------------- sub database_release { #----------------------- my $self = shift; if(@_) { $self->{'_dbRelease'} = shift; } $self->{'_dbRelease'}; } =head2 database_letters Usage : $object->database_letters(); Purpose : Set/Get the number of letters in the queried database. Returns : Integer Argument : n/a =cut #---------------------- sub database_letters { #---------------------- my $self = shift; if(@_) { $self->{'_dbLetters'} = shift; } $self->{'_dbLetters'}; } =head2 database_seqs Usage : $object->database_seqs(); Purpose : Set/Get the number of sequences in the queried database. Returns : Integer Argument : n/a =cut #------------------ sub database_seqs { #------------------ my $self = shift; if(@_) { $self->{'_dbSeqs'} = shift; } $self->{'_dbSeqs'}; } =head2 set_date Usage : $object->set_date([<string>]); Purpose : Set the name of the date on which the analysis was performed. Argument : The optional string argument ca be the date or the : string 'file' in which case the date will be obtained from : the report file Returns : String Throws : Exception if no date is supplied and no file exists. Comments : This method attempts to set the date in either of two ways: : 1) using data passed in as an argument, : 2) using the Bio::Root::Utilities.pm file_date() method : on the output file. : Another way is to extract the date from the contents of the : raw output data. Such parsing will have to be specialized : for different seq analysis reports. Override this method : to create such custom parsing code if desired. See Also : L<date()|date>, B<Bio::Root::Object::file_date()> =cut #--------------- sub set_date { #--------------- my $self = shift; my $date = shift; my ($file); if( !$date and ($file = $self->file)) { # If no date is passed and a file exists, determine date from the file. # (provided by superclass Bio::Root::Object.pm) eval { $date = $self->SUPER::file_date(-FMT => 'd m y'); }; if($@) { $date = 'UNKNOWN'; $self->warn("Can't set date of report."); } } $self->{'_date'} = $date; } =head2 date Usage : $object->date(); Purpose : Get the name of the date on which the analysis was performed. Returns : String Argument : n/a Comments : This method is not a combination set/get, it only gets. See Also : L<set_date()|set_date> =cut #---------- sub date { my $self = shift; $self->{'_date'}; } #---------- =head2 length Usage : $object->length(); Purpose : Set/Get the length of the query sequence (number of monomers). Returns : Integer Argument : n/a Comments : Developer note: when using the built-in length function within : this module, call it as CORE::length(). =cut #------------ sub length { #------------ my $self = shift; if(@_) { $self->{'_length'} = shift; } $self->{'_length'}; } =head2 program Usage : $object->program(); Purpose : Set/Get the name of the sequence analysis (BLASTP, FASTA, etc.) Returns : String Argument : n/a =cut #------------- sub program { #------------- my $self = shift; if(@_) { $self->{'_prog'} = shift; } $self->{'_prog'}; } =head2 program_version Usage : $object->program_version(); Purpose : Set/Get the version number of the sequence analysis program. : (e.g., 1.4.9MP, 2.0a19MP-WashU). Returns : String Argument : n/a =cut #--------------------- sub program_version { #--------------------- my $self = shift; if(@_) { $self->{'_progVersion'} = shift; } $self->{'_progVersion'}; } =head2 query Usage : $name = $object->query(); Purpose : Get the name of the query sequence used to generate the report. Argument : n/a Returns : String Comments : Equivalent to $object->name(). =cut #-------- sub query { my $self = shift; $self->name; } #-------- =head2 query_desc Usage : $object->desc(); Purpose : Set/Get the description of the query sequence for the analysis. Returns : String Argument : n/a =cut #-------------- sub query_desc { #-------------- my $self = shift; if(@_) { $self->{'_qDesc'} = shift; } $self->{'_qDesc'}; } =head2 display Usage : $object->display(<named parameters>); Purpose : Display information about Bio::Tools::SeqAnal.pm data members. : Overrides Bio::Root::Object::display(). Example : $object->display(-SHOW=>'stats'); Argument : Named parameters: -SHOW => 'file' | 'stats' : -WHERE => filehandle (default = STDOUT) Returns : n/a Status : Experimental See Also : L<_display_stats()|_display_stats>, L<_display_file()|_display_file>, B<Bio::Root::Object::display()> =cut #--------------- sub display { #--------------- my( $self, %param ) = @_; $self->SUPER::display(%param); my $OUT = $self->fh(); $self->show =~ /file/i and $self->_display_file($OUT); 1; } =head2 _display_file Usage : n/a; called automatically by display() Purpose : Print the contents of the raw report file. Example : n/a Argument : one argument = filehandle object. Returns : true (1) Status : Experimental See Also : L<display()|display> =cut #------------------ sub _display_file { #------------------ my( $self, $OUT) = @_; print $OUT scalar($self->read); 1; } =head2 _display_stats Usage : n/a; called automatically by display() Purpose : Display information about Bio::Tools::SeqAnal.pm data members. : Prints the file name, program, program version, database name, : database version, query name, query length, Example : n/a Argument : one argument = filehandle object. Returns : printf call. Status : Experimental See Also : B<Bio::Root::Object::display()> =cut #-------------------- sub _display_stats { #-------------------- my( $self, $OUT ) = @_; printf( $OUT "\n%-15s: %s\n", "QUERY NAME", $self->query ||'UNKNOWN' ); printf( $OUT "%-15s: %s\n", "QUERY DESC", $self->query_desc || 'UNKNOWN'); printf( $OUT "%-15s: %s\n", "LENGTH", $self->length || 'UNKNOWN'); printf( $OUT "%-15s: %s\n", "FILE", $self->file || 'STDIN'); printf( $OUT "%-15s: %s\n", "DATE", $self->date || 'UNKNOWN'); printf( $OUT "%-15s: %s\n", "PROGRAM", $self->program || 'UNKNOWN'); printf( $OUT "%-15s: %s\n", "VERSION", $self->program_version || 'UNKNOWN'); printf( $OUT "%-15s: %s\n", "DB-NAME", $self->database || 'UNKNOWN'); printf( $OUT "%-15s: %s\n", "DB-RELEASE", ($self->database_release || 'UNKNOWN')); printf( $OUT "%-15s: %s\n", "DB-LETTERS", ($self->database_letters) ? $self->database_letters : 'UNKNOWN'); printf( $OUT "%-15s: %s\n", "DB-SEQUENCES", ($self->database_seqs) ? $self->database_seqs : 'UNKNOWN'); } ##################################################################################### ## VIRTUAL METHODS ## ##################################################################################### =head1 VIRTUAL METHODS =head2 parse Usage : $object->parse( %named_parameters ) Purpose : Parse a raw sequence analysis report. Returns : Integer (number of sequence analysis reports parsed). Argument : Named parameters. Throws : Exception: virtual method not defined. : Propagates any exception thrown by read() Status : Virtual Comments : This is virtual method that should be overridden to : parse a specific type of data. See Also : B<Bio::Root::Object::read()> =cut #--------- sub parse { #--------- my ($self, @param) = @_; $self->throw("Virtual method parse() not defined ${ref($self)} objects."); # The first step in parsing is reading in the data: $self->read(@param); } =head2 run Usage : $object->run( %named_parameters ) Purpose : Run a sequence analysis program on one or more sequences. Returns : n/a : Run mode should be configurable to return a parsed object or : the raw results data. Argument : Named parameters: Throws : Exception: virtual method not defined. Status : Virtual =cut #-------- sub run { #-------- my ($self, %param) = @_; $self->throw("Virtual method run() not defined ${ref($self)} objects."); } 1; __END__ ##################################################################################### # END OF CLASS # ##################################################################################### =head1 FOR DEVELOPERS ONLY =head2 Data Members Information about the various data members of this module is provided for those wishing to modify or understand the code. Two things to bear in mind: =over 4 =item 1 Do NOT rely on these in any code outside of this module. All data members are prefixed with an underscore to signify that they are private. Always use accessor methods. If the accessor doesn't exist or is inadequate, create or modify an accessor (and let me know, too!). =item 2 This documentation may be incomplete and out of date. It is easy for these data member descriptions to become obsolete as this module is still evolving. Always double check this info and search for members not described here. =back An instance of Bio::Tools::SeqAnal.pm is a blessed reference to a hash containing all or some of the following fields: FIELD VALUE -------------------------------------------------------------- _file Full path to file containing raw sequence analysis report. _mode Affects how much detail to extract from the raw report. Future mode will also distinguish 'running' from 'parsing' THE FOLLOWING MAY BE EXTRACTABLE FROM THE RAW REPORT FILE: _prog Name of the sequence analysis program. _progVersion Version number of the program. _db Database searched. _dbRelease Version or date of the database searched. _dbLetters Total number of letters in the database. _dbSequences Total number of sequences in the database. _query Name of query sequence. _length Length of the query sequence. _date Date on which the analysis was performed. INHERITED DATA MEMBERS _name From Bio::Root::Object.pm. String representing the name of the query sequence. Typically obtained from the report file. _parent From Bio::Root::Object.pm. This member contains a reference to the object to which this seq anal report belongs. Optional & experimenta. (E.g., a protein object could create and own a Blast object.) =cut 1;