[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.599, Tue Jun 12 20:46:57 2007 UTC revision 1.600, Mon Jun 25 19:41:45 2007 UTC
# Line 1  Line 1 
1    # -*- perl -*-
2  #  ########################################################################
3  # Copyright (c) 2003-2006 University of Chicago and Fellowship  # Copyright (c) 2003-2006 University of Chicago and Fellowship
4  # for Interpretations of Genomes. All Rights Reserved.  # for Interpretations of Genomes. All Rights Reserved.
5  #  #
# Line 14  Line 14 
14  # at info@ci.uchicago.edu or the Fellowship for Interpretation of  # at info@ci.uchicago.edu or the Fellowship for Interpretation of
15  # Genomes at veronika@thefig.info or download a copy from  # Genomes at veronika@thefig.info or download a copy from
16  # http://www.theseed.org/LICENSE.TXT.  # http://www.theseed.org/LICENSE.TXT.
17  #  ########################################################################
18    
19  package FIG;  package FIG;
20    
# Line 14383  Line 14383 
14383  }  }
14384    
14385    
14386    =head3 is_viral
14387    
14388    usage: $fig->is_viral($genome)
14389    
14390    Returns true iff the genome is viral
14391    
14392    =cut
14393    
14394    sub is_viral :Scalar {
14395        my($self,$genome) = @_;
14396    
14397        return ($self->taxonomy_of($genome) =~ /^Vir/) ? 1 : 0;
14398    }
14399    
14400    
14401  =head3 is_environmental  =head3 is_environmental
14402    
14403  usage: $fig->is_environmental($genome)  usage: $fig->is_environmental($genome)

Legend:
Removed from v.1.599  
changed lines
  Added in v.1.600

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3