gistfile1.pl

  
  my @fwd_intensity = $intensities->
    features( -seqid => $scaff, -type => 'fwd link intensity',
	      -start => $end,
	      -end   => $end,
	    );
  warn Dumper @fwd_intensity if $verbose > 1;
  exit;
  

__END__ 

Gives...

Use of uninitialized value in length at /homes/dbolser/perl5/lib/perl5/Bio/DB/SeqFeature/Store/DBI/mysql.pm line 1060, <I> line 2.
$VAR1 = bless( {
                 'source' => 'dundee',
                 'stop' => '2098000',
                 'store' => bless( {
                                     'dumpdir' => '/local/tmp',
                                     'settings_cache' => {
                                                           'serializer' => 'Storable',
                                                           'compress' => '1',
                                                           'autoindex' => '1',
                                                           'index_subfeatures' => '1'
                                                         },
                                     'namespace' => undef,
                                     'seqfeatureclass' => 'Bio::DB::SeqFeature',
                                     'writeable' => undef,
                                     'is_temp' => undef,
                                     'dbh' => bless( {}, 'DBI::db' ),
                                     'class_loaded' => {
                                                         'Bio::DB::SeqFeature' => 1
                                                       }
                                   }, 'Bio::DB::SeqFeature::Store::DBI::mysql' ),
                 'primary_id' => '1609357',
                 'ref' => 'PGSC0003DMB000000037',
                 'name' => undef,
                 'is_circular' => 0,
                 'score' => '514',
                 'phase' => undef,
                 'strand' => 0,
                 'type' => 'fwd link intensity',
                 'attributes' => {
                                   'dmbes' => [
                                                '1'
                                              ],
                                   'x20wgs' => [
                                                 '1'
                                               ],
                                   'load_id' => [],
                                   'rhbes' => [
                                                '1'
                                              ],
                                   'Note' => [
                                               'PGSC0003DMB000001237'
                                             ]
                                 },
                 'start' => '2097001'
               }, 'Bio::DB::SeqFeature' );