File Coverage

blib/lib/Bio/JBrowse/FeatureStream.pm

Criterion	Covered	Total	%
statement	7	17	41.1
branch	0	6	0.0
condition			n/a
subroutine	3	4	75.0
pod			n/a
total	10	27	37.0

package Bio::JBrowse::FeatureStream;
BEGIN {
  $Bio::JBrowse::FeatureStream::AUTHORITY = 'cpan:RBUELS';
}
{
  $Bio::JBrowse::FeatureStream::VERSION = '0.1';
}
use strict;
use warnings;

my %must_flatten =
   map { $_ => 1 }
   qw( name id start end score strand description note );
# given a hashref like {  tagname => [ value1, value2 ], ... }
# flatten it to numbered tagnames like { tagname => value1, tagname2 => value2 }
sub _flatten_multivalues {
    my ( $self, $h ) = @_;
    my %flattened;

    for my $key ( keys %$h ) {
        my $v = $h->{$key};
        if( @$v == 1 ) {
            $flattened{ $key } = $v->[0];
        }
        elsif( $must_flatten{ lc $key } ) {
            for( my $i = 0; $i < @$v; $i++ ) {
                $flattened{ $key.($i ? $i+1 : '')} = $v->[$i];
            }
        } else {
            $flattened{ $key } = $v;
        }
    }

    return \%flattened;
}

1;

__END__