File Coverage

lib/Test/Chai/Util/Property.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	20	20	100.0
condition	12	15	80.0
subroutine	8	8	100.0
pod	0	1	0.0
total	72	76	94.7

package Test::Chai::Util::Property;
use strict;
use warnings;
use utf8;

use Exporter qw/import/;
our @EXPORT_OK = qw/has_property/;

use List::MoreUtils qw/any/;
use Scalar::Util qw/looks_like_number blessed/;

sub has_property {
    my ($name, $obj) = @_;

    return 0 unless defined $obj;

    if (ref $obj eq 'ARRAY') {
        return 0 unless looks_like_number($name);
        return 1 if 0 <= $name && $name < @$obj;
        return 0;
    }

    elsif (ref $obj eq 'HASH' || blessed($obj)) {
        return 0 unless defined $name;
        return 1 if any { $_ eq $name } keys(%$obj);
        return 0;
    }

    elsif (looks_like_number($name)) {
        return 1 if 0 <= $name && $name < length $obj;
        return 0;
    }

    elsif ($name eq 'length' && defined $obj && !ref $obj) {
        return 1;
    }

    return 0;
}

1;