use strict;
# 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 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 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",
);
}
done_testing;