File Coverage

blib/lib/List/Range/Search/Liner.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	25	25	100.0

package List::Range::Search::Liner;
use strict;
use warnings;

use Class::Accessor::Lite ro => [qw/ranges/];

sub new {
    my ($class, $set) = @_;
    return bless {
        ranges => $set->ranges,
    } => $class;
}

sub find {
    my ($self, $value) = @_;

    for my $range (@{ $self->{ranges} }) {
        return $range if $range->includes($value)
    }

    # not found
    return undef; ## no critic
}

1;
__END__