File Coverage

blib/lib/Data/Check/Structure.pm

Criterion	Covered	Total	%
statement	129	129	100.0
branch	53	68	77.9
condition	37	50	74.0
subroutine	12	12	100.0
pod	10	10	100.0
total	241	269	89.5

package Data::Check::Structure;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-11-08'; # DATE
our $DIST = 'Data-Check-Structure'; # DIST
our $VERSION = '0.050'; # VERSION

use strict;
#use warnings;

use Exporter 'import';
our @EXPORT_OK = qw(
                       is_aoa
                       is_aoaos
                       is_aoh
                       is_aohos
                       is_aos
                       is_hoa
                       is_hoaos
                       is_hoh
                       is_hohos
                       is_hos
               );

our $errstr = '';

sub is_aos {
    my ($data, $opts) = @_;
    $opts ||= {};
    my $max = $opts->{max};

    return 0 unless ref($data) eq 'ARRAY';
    for my $i (0..@$data-1) {
        last if defined($max) && $i >= $max;
        my $ref = ref($data->[$i]);
        do { $errstr = "not aos: array element [$i] not scalar ($ref)"; return 0 } if $ref;
    }
    $errstr = '';
    1;
}

sub is_aoa {
    my ($data, $opts) = @_;
    $opts ||= {};
    my $max = $opts->{max};

    return 0 unless ref($data) eq 'ARRAY';
    for my $i (0..@$data-1) {
        last if defined($max) && $i >= $max;
        my $ref = ref($data->[$i]);
        do { $errstr = "not aoa: array element [$i] not array ($ref)"; return 0 } unless $ref eq 'ARRAY';
    }
    $errstr = '';
    1;
}

sub is_aoaos {
    my ($data, $opts) = @_;
    $opts ||= {};
    my $max = $opts->{max};

    return 0 unless ref($data) eq 'ARRAY';
    my $aos_opts = {max=>$max};
    for my $i (0..@$data-1) {
        last if defined($max) && $i >= $max;
        do { $errstr = "not aoaos: element [$i]".($errstr ? ": $errstr" : " not aos"); return 0 } unless is_aos($data->[$i], $aos_opts);
    }
    $errstr = '';
    1;
}

sub is_aoh {
    my ($data, $opts) = @_;
    $opts ||= {};
    my $max = $opts->{max};

    return 0 unless ref($data) eq 'ARRAY';
    for my $i (0..@$data-1) {
        last if defined($max) && $i >= $max;
        my $ref = ref($data->[$i]);
        do { $errstr = "not aoh: element [$i] not hash ($ref)"; return 0 } unless $ref eq 'HASH';
    }
    $errstr = '';
    1;
}

sub is_aohos {
    my ($data, $opts) = @_;
    $opts ||= {};
    my $max = $opts->{max};

    return 0 unless ref($data) eq 'ARRAY';
    my $hos_opts = {max=>$max};
    for my $i (0..@$data-1) {
        last if defined($max) && $i >= $max;
        do { $errstr = "not aohos: element [$i]".($errstr ? ": $errstr" : " not hos"); return 0 } unless is_hos($data->[$i], $hos_opts);
    }
    $errstr = '';
    1;
}

sub is_hos {
    my ($data, $opts) = @_;
    $opts ||= {};
    my $max = $opts->{max};

    return 0 unless ref($data) eq 'HASH';
    my $i = 0;
    for my $k (keys %$data) {
        last if defined($max) && ++$i >= $max;
        my $ref = ref($data->{$k});
        do { $errstr = "not hos: value for key '$k' not scalar ($ref)"; return 0 } if $ref;
    }
    $errstr = '';
    1;
}

sub is_hoa {
    my ($data, $opts) = @_;
    $opts ||= {};
    my $max = $opts->{max};

    return 0 unless ref($data) eq 'HASH';
    my $i = 0;
    for my $k (keys %$data) {
        last if defined($max) && ++$i >= $max;
        my $ref = ref($data->{$k});
        do { $errstr = "not hoa: value for key '$k' not array ($ref)"; return 0 } unless $ref eq 'ARRAY';
    }
    $errstr = '';
    1;
}

sub is_hoaos {
    my ($data, $opts) = @_;
    $opts ||= {};
    my $max = $opts->{max};

    return 0 unless ref($data) eq 'HASH';
    my $i = 0;
    for my $k (keys %$data) {
        last if defined($max) && ++$i >= $max;
        do { $errstr = "not hoaos: value for key '$k'".($errstr ? ": $errstr" : " not aos"); return 0 } unless is_aos($data->{$k});
    }
    $errstr = '';
    1;
}

sub is_hoh {
    my ($data, $opts) = @_;
    $opts ||= {};
    my $max = $opts->{max};

    return 0 unless ref($data) eq 'HASH';
    my $i = 0;
    for my $k (keys %$data) {
        last if defined($max) && ++$i >= $max;
        my $ref = ref($data->{$k});
        do { $errstr = "not hoh: value for key '$k' not hash ($ref)"; return 0 } unless $ref eq 'HASH';
    }
    $errstr = '';
    1;
}

sub is_hohos {
    my ($data, $opts) = @_;
    $opts ||= {};
    my $max = $opts->{max};

    return 0 unless ref($data) eq 'HASH';
    my $i = 0;
    for my $k (keys %$data) {
        last if defined($max) && ++$i >= $max;
        do { $errstr = "not hohos: value for key '$k'".($errstr ? ": $errstr" : " not hos"); return 0 } unless is_hos($data->{$k});
    }
    $errstr = '';
    1;
}

1;
# ABSTRACT: Check structure of data

__END__