File Coverage

blib/lib/Set/IntSpan/Util.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	6	10	60.0
condition	9	16	56.2
subroutine	5	5	100.0
pod	1	1	100.0
total	48	61	78.6

package Set::IntSpan::Util;

use 5.010001;
use strict;
use warnings;

use Exporter 'import';

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2022-01-10'; # DATE
our $DIST = 'Set-IntSpan-Util'; # DIST
our $VERSION = '0.001'; # VERSION

our @EXPORT_OK = qw(intspans2str);

sub intspans2str {
    require Set::IntSpan;

    my $opts = ref($_[0]) eq 'HASH' ? shift : {};
    $opts->{dash} //= "-";
    $opts->{comma} //= ", ";

    my @sets = Set::IntSpan->new(@_)->sets;
    my @res;
    for my $set (@sets) {
        my $min = $set->min;
        my $max = $set->max;
        my ($smin, $smax);
        if (!defined($min)) {
            $smin = "-Inf";
        }
        if (!defined($max)) {
            $smax = defined $min ? "Inf" : "+Inf";
        }
        if (defined $min && defined $max && $min == $max) {
            push @res, $min;
        } else {
            push @res, ($smin // $min) . $opts->{dash} . ($smax // $max);
        }
    }
    join($opts->{comma}, @res);
}

1;
# ABSTRACT: Utility routines related to integer spans

__END__