File Coverage

blib/lib/List/AllUtils/Null.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	23	36	63.8
condition			n/a
subroutine	8	8	100.0
pod	5	5	100.0
total	79	92	85.8

package List::AllUtils::Null;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2021-04-01'; # DATE
our $DIST = 'List-AllUtils-Null'; # DIST
our $VERSION = '0.002'; # VERSION

use strict;
use warnings;

use Exporter 'import';
our @EXPORT_OK = qw(max maxstr min minstr sum);

sub sum(@) {
    return undef unless @_;
    my $s = 0;
    for (@_) {
        return undef unless defined;
        $s += $_;
    }
    $s;
}

sub min (@) {
    return undef unless @_;
    my $min = shift;
    return undef unless defined $min;
    for (@_) {
        return undef unless defined;
        $_ < $min and $min = $_;
    }
    $min;
}

sub max (@) {
    return undef unless @_;
    my $max = shift;
    return undef unless defined $max;
    for (@_) {
        return undef unless defined;
        $_ > $max and $max = $_;
    }
    $max;
}

sub minstr (@) {
    return undef unless @_;
    my $min = shift;
    return undef unless defined $min;
    for (@_) {
        return undef unless defined;
        $_ lt $min and $min = $_;
    }
    $min;
}

sub maxstr (@) {
    return undef unless @_;
    my $max = shift;
    return undef unless defined $max;
    for (@_) {
        return undef unless defined;
        $_ gt $max and $max = $_;
    }
    $max;
}

1;
# ABSTRACT: List subroutines that treat undef as contagious unknown, like null in SQL

__END__