File Coverage

blib/lib/Perinci/Result/Util.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	14	14	100.0
condition	12	12	100.0
subroutine	4	4	100.0
pod	1	1	100.0
total	49	49	100.0

package Perinci::Result::Util;

use 5.010001;
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
                       is_env_res
               );

our $VERSION = '0.02'; # VERSION
our $DATE = '2014-08-16'; # DATE

sub is_env_res {
    my $res = shift;

    return 0 unless ref($res) eq 'ARRAY';
    return 0 unless @$res <= 4;

    # check status
    return 0 unless defined($res->[0]) && $res->[0] =~ /\A[0-9]{1,3}\z/
        && $res->[0] >= 100 && $res->[0] < 599;

    # check message
    return 0 unless !ref($res->[1]);
    if (defined $res->[1]) {
        return 0 unless $res->[1] =~ /[A-Za-z]/;
    }

    # check result metadata
    return 0 if defined($res->[3]) && ref($res->[3]) ne 'HASH';

    1;
}

1;
# ABSTRACT: Utilities related to enveloped result

__END__