File Coverage

blib/lib/Array/RealSpan.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	6	8	75.0
condition	4	9	44.4
subroutine	7	7	100.0
pod	3	3	100.0
total	53	60	88.3

package Array::RealSpan;
our $AUTHORITY = 'cpan:GENE';

# ABSTRACT: Map real number ranges to labels or objects

our $VERSION = '0.0101';

use strict;
use warnings;
use Carp qw(croak);

use Moo;


has _ranges => (
    is      => 'rw',
    default => sub { [] },
);


sub set_range {
    my ( $self, $start, $end, $label ) = @_;

    croak('set_range() should be called with 3 values.')
        unless defined $start && defined $end && defined $label;
    croak("set_range() called with bad indices: $start, $end")
        if $end <= $start;

    push @{ $self->_ranges }, [ $start, $end, $label ];
}


sub get_range {
    my ( $self, $label ) = @_;
    my $get_range;
    for my $range ( @{ $self->_ranges } ) {
        if ( $label eq $range->[2] ) {
            $get_range = [ $range->[0], $range->[1] ];
            last;
        }
    }
    return $get_range;
}


sub lookup {
    my ( $self, $number ) = @_;
    my $lookup;
    for my $range ( @{ $self->_ranges } ) {
        if ( $number >= $range->[0] && $number < $range->[1] ) {
            $lookup = $range->[2];
            last;
        }
    }
    return $lookup;
}

1;

__END__