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
01_load.t	1.05 KB	-r--r--r--	2014-12-27 11:48
02_function.t	8.86 KB	-r--r--r--	2014-12-27 11:48
03_class.t	2.61 KB	-r--r--r--	2014-12-27 11:48
04_thread.t	1.56 KB	-r--r--r--	2014-12-27 11:48
05_perlhook.t	5.25 KB	-r--r--r--	2014-12-27 11:48
11_hashassign.t	10.12 KB	-r--r--r--	2014-12-27 11:48
12_hashwarn.t	1.57 KB	-r--r--r--	2014-12-27 11:48

Rename

#!perl
use strict; use warnings;

use Test::More tests => 8;

# see that Hash::Util::FieldHash and Hash::Util load and export what
# they should

BEGIN {
    use_ok( 'Hash::Util');
    ok( defined( &Hash::Util::lock_keys), "Hash::Util::lock_keys found");
    ok( !defined( &Hash::Util::FieldHash::fieldhashes),
        "Hash::Util::FieldHash not loaded",
    );
}

package one;
use Test::More;
use Hash::Util qw( lock_keys);
BEGIN {
    ok( defined( &lock_keys), "lock_keys imported from Hash::Util");
}

use Hash::Util qw( fieldhashes);
BEGIN {
    ok( defined( &Hash::Util::FieldHash::fieldhashes),
        "Hash::Util::FieldHash loaded",
    );
    ok( defined( &fieldhashes),
        "fieldhashes imported from Hash::Util",
    );
}

package two;
use Test::More;
use Hash::Util::FieldHash qw( fieldhashes);
BEGIN {
    ok( defined( &fieldhashes),
        "fieldhashes imported from Hash::Util::FieldHash",
    );
}

use Hash::Util::FieldHash qw( :all);
BEGIN {
    ok( defined( &fieldhash),
        "fieldhash imported from Hash::Util::FieldHash via :all",
    );
}