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/07_uplevel_too_high.t
#!/usr/bin/perl use strict; BEGIN { $^W = 1 } use Test::More tests => 5; BEGIN { $Sub::Uplevel::CHECK_FRAMES = 1; use_ok('Sub::Uplevel'); } sub show_caller { return scalar caller; } sub wrap_show_caller { my $uplevel = shift; return uplevel $uplevel, \&show_caller; } my $warning = ''; local $SIG{__WARN__} = sub { $warning = shift }; my $caller = wrap_show_caller(1); is($caller, 'main', "wrapper returned correct caller"); is( $warning, '', "don't warn if ordinary uplevel" ); $warning = ''; $caller = wrap_show_caller(2); my $file = __FILE__; is($caller, undef, "wrapper returned correct caller"); like( $warning, qr/uplevel 2 is more than the caller stack/, "warn if too much uplevel" );
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply