One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/YAML-LibYAML-0.89-0/t/

View File Name : api.t

use FindBin '$Bin';
use lib $Bin;
use TestYAML tests => 20;

package A;
use YAML::XS;

package B;
use YAML::XS();

package C;
use YAML::XS('DumpFile', 'LoadFile');

package D;
use YAML::XS ':all';

package E;
use YAML::XS('Dump', 'LoadFile');

package main;

ok defined(&A::Dump), 'Dump is exported by default';
ok defined(&A::Load), 'Load is exported by default';
ok not(defined(&A::DumpFile)), 'DumpFile is not exported by default';
ok not(defined(&A::LoadFile)), 'LoadFile is not exported by default';

ok not(defined(&B::Dump)), 'Dump is not exported for ()';
ok not(defined(&B::Load)), 'Load is not exported for ()';
ok not(defined(&B::DumpFile)), 'DumpFile is not exported for ()';
ok not(defined(&B::LoadFile)), 'LoadFile is not exported for ()';

ok not(defined(&C::Dump)), 'Dump is not exported for qw(LoadFile DumpFile)';
ok not(defined(&C::Load)), 'Load is not exported for qw(LoadFile DumpFile)';
ok defined(&C::DumpFile), 'DumpFile is exportable';
ok defined(&C::LoadFile), 'LoadFile is exportable';

ok defined(&D::Dump), 'Dump is exported for :all';
ok defined(&D::Load), 'Load is exported for :all';
ok defined(&D::DumpFile), 'DumpFile is exported for :all';
ok defined(&D::LoadFile), 'LoadFile is exported for :all';

ok defined(&E::Dump), 'Dump is exported for qw(LoadFile Dump)';
ok not(defined(&E::Load)), 'Load is not exported for qw(LoadFile Dump)';
ok not(defined(&E::DumpFile)), 'DumpFile is exported for qw(LoadFile Dump)';
ok defined(&E::LoadFile), 'LoadFile is not exported for qw(LoadFile Dump)';