ACIL FM
Dark
Refresh
Current DIR:
/home/.cpan/build/Sub-Uplevel-0.2800-0/t
/
home
.cpan
build
Sub-Uplevel-0.2800-0
t
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
lib
-
chmod
Open
Rename
Delete
00-report-prereqs.dd
2.65 MB
chmod
View
DL
Edit
Rename
Delete
00-report-prereqs.t
5.45 MB
chmod
View
DL
Edit
Rename
Delete
01_die_check.t
458 B
chmod
View
DL
Edit
Rename
Delete
02_uplevel.t
4.46 MB
chmod
View
DL
Edit
Rename
Delete
03_nested_uplevels.t
1.64 MB
chmod
View
DL
Edit
Rename
Delete
04_honor_later_override.t
2.28 MB
chmod
View
DL
Edit
Rename
Delete
05_honor_prior_override.t
2.58 MB
chmod
View
DL
Edit
Rename
Delete
06_db_args.t
545 B
chmod
View
DL
Edit
Rename
Delete
07_uplevel_too_high.t
720 B
chmod
View
DL
Edit
Rename
Delete
08_exporter.t
310 B
chmod
View
DL
Edit
Rename
Delete
09_emptylist.t
516 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /home/.cpan/build/Sub-Uplevel-0.2800-0/t/03_nested_uplevels.t
#!/usr/bin/perl use strict; BEGIN { $^W = 1 } use Test::More; use Sub::Uplevel; package Wrap; use Sub::Uplevel; sub wrap { my ($n, $f, $depth, $up, @case) = @_; if ($n > 1) { $n--; return wrap( $n, $f, $depth, $up, @case ); } else { return uplevel( $up , $f, $depth, $up, @case ); } } package Call; sub recurse_call_check { my ($depth, $up, @case) = @_; if ( $depth ) { $depth--; my @result; push @result, recurse_call_check($depth, $up, @case, 'Call' ); for my $n ( 1 .. $up ) { push @result, Wrap::wrap( $n, \&recurse_call_check, $depth, $n, @case, $n == 1 ? "Wrap(Call)" : "Wrap(Call) x $n" ), ; } return @result; } else { my (@uplevel_callstack, @real_callstack); my $i = 0; while ( defined( my $caller = caller($i++) ) ) { push @uplevel_callstack, $caller; } $i = 0; while ( defined( my $caller = CORE::caller($i++) ) ) { push @real_callstack, $caller; } return [ join( q{, }, @case ), join( q{, }, reverse @uplevel_callstack ), join( q{, }, reverse @real_callstack ), ]; } } package main; my $depth = 4; my $up = 3; my $cases = 104; plan tests => $cases; my @results = Call::recurse_call_check( $depth, $up, 'Call' ); is( scalar @results, $cases, "Right number of cases" ); my $expected = shift @results; for my $got ( @results ) { is( $got->[1], $expected->[1], "Case: $got->[0]" ) or diag( "Real callers: $got->[2]" ); }
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply