~ubuntu-branches/ubuntu/trusty/bioperl/trusty

« back to all changes in this revision

Viewing changes to Bio/Tools/Match.pm

  • Committer: Package Import Robot
  • Author(s): Charles Plessy
  • Date: 2013-09-22 13:39:48 UTC
  • mfrom: (3.1.11 sid)
  • Revision ID: package-import@ubuntu.com-20130922133948-c6z62zegjyp7ztou
Tags: 1.6.922-1
* New upstream release.
* Replaces and Breaks grinder (<< 0.5.3-3~) because of overlaping contents.
  Closes: #722910
* Stop Replacing and Breaking bioperl ( << 1.6.9 ): not needed anymore. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
85
85
package Bio::Tools::Match;
86
86
use strict;
87
87
 
88
 
use Bio::SeqFeature::Annotated;
 
88
use Bio::SeqFeature::Generic;
89
89
use Bio::Annotation::SimpleValue;
90
90
 
91
91
use base qw(Bio::Root::Root Bio::Root::IO);
164
164
    # Frequency of sites per nucleotide=32.347243
165
165
    
166
166
    my ($matrix_id, $start, $strand, $core_score, $matrix_score, $seq) = $line =~ /^\s(\S+)\s+\|\s+(\d+)\s+\(([+-])\)\s+\|\s+(\S+)\s+\|\s+(\S+)\s+\|\s+(\S+)/;
167
 
    my $feat = Bio::SeqFeature::Annotated->new(
 
167
    my $feat = Bio::SeqFeature::Generic->new(
168
168
        -seq_id => $self->{found_seq_id},
169
169
        -start  => $start, 
170
170
        -end    => $start + length($seq) - 1,