File Coverage

blib/lib/Scalar/IfDefined.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	29	29	100.0

package Scalar::IfDefined;

use 5.006;
use strict;
use warnings;

use Scalar::Util qw/blessed reftype/;

use Exporter 'import';
our @EXPORT_OK = qw/ifdef $ifdef lifdef/;


our $VERSION = '0.09';


sub ifdef(&$) {
    scalar &lifdef;
}


sub lifdef (&$) {
    my ($block, $scalar) = @_;
    return if not defined $scalar;
    return $block->($scalar) for $scalar;
}


our $ifdef = sub {
    my $obj = shift;
    my ($method, @args) = @_;

    return undef if not defined $obj;

    return $obj->$method(@args)   if blessed $obj or ifdef {$_ eq 'CODE'} reftype($method);
    return $obj->[$method]        if reftype $obj eq 'ARRAY';
    return $obj->{$method}        if reftype $obj eq 'HASH';
    return $obj->($method, @args) if reftype $obj eq 'CODE';

    die "Can't getdef on " . reftype $obj;
};



1; # End of Scalar::IfDefined

__END__