File Coverage

blib/lib/DTL/Fast/Tag/Load.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	29	30	96.6

package DTL::Fast::Tag::Load;
use strict; use utf8; use warnings FATAL => 'all';

use DTL::Fast::Template;
$DTL::Fast::TAG_HANDLERS{'load'} = __PACKAGE__;

sub new
{
    my $proto = shift;
    my $parameter = shift;

    $parameter =~ s/(^\s+|['"]+|\s+$)//gs;
    my @modules = split /\s+/, $parameter;

    foreach my $module (@modules)
    {
        if( not $DTL::Fast::LOADED_MODULES{$module} )
        {
            require Module::Load;
            Module::Load::load $module;
            $DTL::Fast::LOADED_MODULES{$module} = time;
        }
    }

    return;
}

1;