File Coverage

lib/Scope/UndefSafe.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	30	30	100.0

package Scope::UndefSafe;
use strict;
use warnings;
use utf8;

our $VERSION = "0.04";

use Exporter qw/import/;
our @EXPORT_OK = qw/let apply/;

sub let (&$; &) {
    my ($func, $value) = @_;

    if (defined $value) {
        local $_ = $value;
        return $func->();
    }

    return undef;
}

sub apply (&$; &) {
    my ($func, $value) = @_;
    let(\&$func, $value);
    return $value;
}

1;
__END__