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

Diff of /FigKernelPackages/FIGO.pm

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

revision 1.11, Mon Feb 26 22:21:38 2007 UTC revision 1.12, Tue Feb 27 08:31:50 2007 UTC
# Line 709  Line 709 
709    
710  sub genome {  sub genome {
711      my($self) = @_;      my($self) = @_;
712        my $figO = $self->{_figO};
713      $self->id =~ /^fig\|(\d+\.\d+)/;      $self->id =~ /^fig\|(\d+\.\d+)/;
714      return $1;      return new GenomeO($figO,$1);
715  }  }
716    
717    
# Line 741  Line 741 
741      return scalar $fig->feature_location($self->id);      return scalar $fig->feature_location($self->id);
742  }  }
743    
744    sub contig {
745        my($self) = @_;
746    
747        my $figO = $self->{_figO};
748        my $loc      = $self->location;
749        my $genomeID = $self->genome->id;
750        return ($loc =~ /^(\S+)_\d+_\d+$/) ? new ContigO($figO,$genomeID,$1) : undef;
751    }
752    
753    sub begin {
754        my($self) = @_;
755    
756        my $loc = $self->location;
757        return ($loc =~ /^\S+_(\d+)_\d+$/) ? $1 : undef;
758    }
759    
760    sub end {
761        my($self) = @_;
762    
763        my $loc = $self->location;
764        return ($loc =~ /^\S+_\d+_(\d+)$/) ? $1 : undef;
765    }
766    
767  =head3 dna_seq  =head3 dna_seq
768    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3