Advanced File Manager

✏️ Mengedit: 01basic.t

#!/usr/bin/perl

use Test::More tests => 31;

BEGIN { use_ok 'Sub::Identify', ':all' }

my $expected_pureperl = $0 =~ m/pureperl/ + 0;
is($Sub::Identify::IsPurePerl, $expected_pureperl, "pure-perl Sub::Identify flag is $expected_pureperl");

sub buffy { }
sub vamp::spike { }
*slayer = *buffy;
*human::william = \&vamp::spike;

is( sub_name( \&sub_name ), 'sub_name' );
is( sub_name( \&buffy ), 'buffy' );
is( sub_name( \&vamp::spike ), 'spike' );
is( sub_name( \&slayer ), 'buffy' );
is( sub_name( \&human::william ), 'spike' );

is( stash_name( \&stash_name ), 'Sub::Identify' );
is( stash_name( \&buffy ), 'main' );
is( stash_name( \&vamp::spike ), 'vamp' );
is( stash_name( \&slayer ), 'main' );
is( stash_name( \&human::william ), 'vamp' );

is( sub_fullname( \&sub_fullname ), 'Sub::Identify::sub_fullname' );
is( sub_fullname( \&buffy ), 'main::buffy' );
is( sub_fullname( \&vamp::spike ), 'vamp::spike' );
is( sub_fullname( \&slayer ), 'main::buffy' );
is( sub_fullname( \&human::william ), 'vamp::spike' );

is( join('*', get_code_info( \&sub_fullname )), 'Sub::Identify*sub_fullname' );
is( join('*', get_code_info( \&buffy )), 'main*buffy' );
is( join('*', get_code_info( \&vamp::spike )), 'vamp*spike' );
is( join('*', get_code_info( \&slayer )), 'main*buffy' );
is( join('*', get_code_info( \&human::william )), 'vamp*spike' );

sub xander;
sub vamp::drusilla;
is( sub_name( \&xander ), 'xander', 'undefined subroutine' );
is( sub_fullname( \&xander ), 'main::xander', 'undefined subroutine' );
is( join('*', get_code_info( \&xander )), 'main*xander', 'undefined subroutine' );
is( sub_name( \&vamp::drusilla ), 'drusilla', 'undefined subroutine' );
is( sub_fullname( \&vamp::drusilla ), 'vamp::drusilla', 'undefined subroutine' );

is( sub_name( sub {} ), '__ANON__' );
my $anon = sub {};
is( stash_name( $anon ), 'main' );
is( sub_fullname( $anon ), 'main::__ANON__' );
is( join('*', get_code_info( sub { 'ah non' } )), 'main*__ANON__' );

❌ Batal

Nama	Ukuran	Dimodifikasi	Permission	Aksi
📎 01basic-pureperl.t	77 B	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 01basic.t	1.9 KB	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 02errors.t	559 B	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 03proto.t	249 B	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 04codelocation-pureperl.t	83 B	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 04codelocation.t	496 B	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 05constant-pureperl.t	80 B	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 05constant.t	305 B	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 06codelocxs-pureperl.t	81 B	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 06codelocxs.t	419 B	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 20attributes.t	561 B	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 21attributes-pureperl.t	104 B	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 30signatures.t	2.3 KB	2022-02-11 17:04	0644	✏️ Edit ⬇
📎 pod.t	149 B	2022-02-11 17:04	0644	✏️ Edit ⬇

📂 Advanced File Manager

✏️ Mengedit: 01basic.t

✍️ Rename: