File Coverage

blib/lib/List/AllUtils/ContainsNull.pm

Criterion	Covered	Total	%
statement	64	64	100.0
branch	34	38	89.4
condition			n/a
subroutine	8	8	100.0
pod	5	5	100.0
total	111	115	96.5

package List::AllUtils::ContainsNull;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2021-07-05'; # DATE
our $DIST = 'List-AllUtils-Null'; # DIST
our $VERSION = '0.004'; # VERSION

use strict;
use warnings;

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

sub sum(@) {
    my $contains_null = 0;
    return (undef, 0) unless @_;
    my $sum;
    for (@_) {
        unless (defined) { $contains_null = 1; next }
        if (defined $sum) { $sum += $_ } else { $sum = $_ }
    }
    ($sum, $contains_null);
}

sub min (@) {
    my $contains_null = 0;
    return (undef, 0) unless @_;
    my $min;
    for (@_) {
        unless (defined) { $contains_null = 1; next }
        if (defined $min) { $min = $_ if $_ < $min } else { $min = $_ }
    }
    ($min, $contains_null);
}

sub max (@) {
    my $contains_null = 0;
    return (undef, 0) unless @_;
    my $max;
    for (@_) {
        unless (defined) { $contains_null = 1; next }
        if (defined $max) { $max = $_ if $_ > $max } else { $max = $_ }
    }
    ($max, $contains_null);
}

sub minstr (@) {
    my $contains_null = 0;
    return (undef, 0) unless @_;
    my $min;
    for (@_) {
        unless (defined) { $contains_null = 1; next }
        if (defined $min) { $min = $_ if $_ lt $min } else { $min = $_ }
    }
    ($min, $contains_null);
}

sub maxstr (@) {
    my $contains_null = 0;
    return (undef, 0) unless @_;
    my $max;
    for (@_) {
        unless (defined) { $contains_null = 1; next }
        if (defined $max) { $max = $_ if $_ gt $max } else { $max = $_ }
    }
    ($max, $contains_null);
}

1;
# ABSTRACT: List subroutines that return additional result: "contains-null/not"

__END__