view release on metacpan or  search on metacpan

lib/Scalar/IfDefined.pm  view on Meta::CPAN

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;
}