File Coverage

blib/lib/Alzabo/Utils.pm

Criterion	Covered	Total	%
statement	6	10	60.0
branch			n/a
condition	0	12	0.0
subroutine	2	6	33.3
pod	0	4	0.0
total	8	32	25.0

package Alzabo::Utils;

use strict;

use Scalar::Util qw( blessed reftype );


sub safe_can
{
    return blessed( $_[0] ) && $_[0]->can( $_[1] );
}

sub safe_isa
{
    return blessed( $_[0] ) && $_[0]->isa( $_[1] );
}

sub is_arrayref
{
    return defined $_[0] && ref $_[0] && reftype $_[0] eq 'ARRAY';
}

sub is_hashref
{
    return defined $_[0] && ref $_[0] && ( ! blessed $_[0] ) && reftype $_[0] eq 'HASH';
}


1;

__END__