?????????? ????????? - ??????????????? - /home/.cpan/build/Test-Deep-1.204-0/t/memory.t
???????
use strict; use warnings; use Test::Tester; use Test::More; BEGIN { require Scalar::Util; if (grep /^weaken$/, @Scalar::Util::EXPORT_FAIL) { plan(skip_all => "no weak refs in this version of perl"); exit(0); } }use lib 't/lib'; use Std; use Scalar::Util qw( isweak weaken); sub left { my $ref = shift; eq_deeply($ref, []); return "left"; } sub right { my $ref = shift; eq_deeply([], $ref); return "right"; } my @subs = (\&left, \&right); for my $sub (@subs) { my $ref = []; my $weak = $ref; weaken($weak); my $side = &$sub($ref, []); $ref = 1; ok((! $weak), "$side didn't capture") || diag "weak = $weak"; }
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????