File Coverage

blib/lib/Bio/JBrowse/FeatureStream/Filter.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	4	4	100.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	1	1	100.0
total	31	33	93.9

package Bio::JBrowse::FeatureStream::Filter;
BEGIN {
  $Bio::JBrowse::FeatureStream::Filter::AUTHORITY = 'cpan:RBUELS';
}
{
  $Bio::JBrowse::FeatureStream::Filter::VERSION = '0.1';
}
# ABSTRACT: filter another stream using a subroutine
use strict;
use warnings;

use base 'Bio::JBrowse::FeatureStream';



sub new {
    my ( $class, $stream, $filter_sub ) = @_;

    my $self;
    my @buffer;
    return $self = bless sub {
        return shift @buffer || do {
            while( !@buffer && ( my $f = $stream->() ) ) {
                push @buffer, $self->_apply_filter( $filter_sub, $f );
            }
            shift @buffer;
        };
    }, $class;
}

sub _apply_filter {
    my ( $self, $filter_sub, $feature ) = @_;

    return $feature if $filter_sub->( $feature );
    return map $self->_apply_filter( $filter_sub, $_ ),
               @{ $feature->{subfeatures} || [] };
}

1;

__END__