File Coverage

blib/lib/Template/Plugin/ScalarUtil.pm

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

package Template::Plugin::ScalarUtil;
BEGIN {
  $Template::Plugin::ScalarUtil::AUTHORITY = 'cpan:AJGB';
}
{
  $Template::Plugin::ScalarUtil::VERSION = '1.121160';
}
# ABSTRACT: Scalar::Util plugin for Template-Toolkit

use strict;
use warnings;

use base qw( Template::Plugin );

use Scalar::Util qw();


{
    no strict 'refs';

    do {
        my $func = $_;

        my $call = Scalar::Util->can($func)
            or die "$func not exported by Scalar::Util";

        *{__PACKAGE__ ."::$func"} = sub {
            shift @_;

            $call->(@_);
        }
    } for qw(
        blessed dualvar reftype tainted
        openhandle refaddr isvstring looks_like_number
    );

};

1;

__END__