Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
to_load	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
01_Module-Load.t	1.43 KB	-r--r--r--	2014-12-27 11:48
02_Module-Load.t	8.84 KB	-r--r--r--	2014-12-27 11:48

Rename

### Module::Load test suite ###
BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir '../lib/Module/Load' if -d '../lib/Module/Load';
        unshift @INC, '../../..';
    }
}

BEGIN { chdir 't' if -d 't' }

use strict;
use lib qw[../lib to_load];
use Module::Load;
use Test::More 'no_plan';

### test loading files & modules
{   my @Map = (
        # module               flag diagnostic
        [q|Must::Be::Loaded|,   1,  'module'],
        [q|::Must::Be::Loaded|, 1,  'module'],
        [q|LoadMe.pl|,          0,  'file'  ],
        [q|LoadIt|,             1,  'ambiguous module'  ],
        [q|ToBeLoaded|,         0,  'ambiguous file'    ],
    );

for my $aref (@Map) {
        my($mod, $flag, $diag) = @$aref;

my $file = Module::Load::_to_file($mod, $flag);

eval { load $mod };

is( $@, '',                 qq[Loading $diag '$mod' $@] );
        ok( defined($INC{$file}),   qq[  '$file' found in \%INC] );
    }
}

### Test importing functions ###
{   my $mod     = 'TestModule';
    my @funcs   = qw[func1 func2];

eval { load $mod, @funcs };
    is( $@, '', qq[Loaded exporter module '$mod'] );

### test if import gets called properly
    ok( $mod->imported,                 "   ->import() was called" );

### test if functions get exported
    for my $func (@funcs) {
        ok( $mod->can($func),           "   $mod->can( $func )" );
        ok( __PACKAGE__->can($func),    "   we ->can ( $func )" );
    }
}