File Coverage

blib/lib/Test/Deep/ArrayEachNotEmpty.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	4	100.0
condition	3	3	100.0
subroutine	10	10	100.0
pod	0	4	0.0
total	44	48	91.6

package Test::Deep::ArrayEachNotEmpty;
use strict;
use warnings;
use utf8;

use parent qw/Test::Deep::ArrayEach/;

use Exporter qw/import/;

our $VERSION = "0.01";
our @EXPORT  = qw/array_each_not_empty/;

sub descend {
    my ($self, $got) = @_;

    return if _is_empty_array($got);
    return $self->SUPER::descend($got);
}

sub renderExp {
    my ($self, $exp) = @_;

    return $self->SUPER::renderExp($exp) . ' with not empty';
}

sub renderGot {
    my ($self, $got) = @_;

    return 'Empty array' if _is_empty_array($got);
    return $self->SUPER::renderGot($got);
}

sub _is_empty_array {
    my $value = shift;

    return ref $value eq 'ARRAY' && !@$value;
}

sub array_each_not_empty {
    my $expect = shift;

    return Test::Deep::ArrayEachNotEmpty->new($expect);
}

1;
__END__