File Coverage

blib/lib/List/Range/Set.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	8	8	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	40	40	100.0

package List::Range::Set;
use strict;
use warnings;
use utf8;

use parent qw/List::Range/;

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

sub new {
    my ($class, $name, $ranges) = @_;
    my ($lower, $upper);
    for my $range (@$ranges) {
        $lower = $range->lower unless defined $lower;
        $lower = $range->lower if $range->lower < $lower;
        $upper = $range->upper unless defined $upper;
        $upper = $range->upper if $range->upper > $upper;
    }
    my $self = $class->SUPER::new(name => $name, lower => $lower, upper => $upper);
    $self->{ranges} = $ranges;
    return $self;
}

1;
__END__