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/06_db_args.t
#!/usr/bin/perl use strict; BEGIN { $^W = 1 } use Test::More tests => 3; BEGIN { use_ok('Sub::Uplevel'); } sub get_caller_args { package DB; my @x = caller(1); return @DB::args; } sub addition { my $x; $x += $_ for @_; return $x; } sub wrap_addition { my @args = get_caller_args(); my $sum = uplevel 1, \&addition, @_; return ($sum, @args); } my ($sum, @args) = wrap_addition(1, 2, 3); is($sum, 6, "wrapper returned value correct"); is_deeply( \@args, [1, 2, 3], "wrapper returned args correct" );
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply