Файловый менеджер - Редактировать - /home/.cpan/build/NetAddr-IP-4.079-0/t/over-arr.t
�азад
use NetAddr::IP; use Test::More; my @addr = ( [ '10.0.0.0/24', '10.0.0.1/32' ], [ '192.168.0.0/24', '192.168.0.1/32' ], [ '127.0.0.1/32', '127.0.0.1/32' ] ); $| = 1; $tests = @addr; plan tests => $tests; SKIP: { skip "overload dereferencing not supported in version $] of Perl", $tests, unless ($overload::ops{dereferencing} && $overload::ops{dereferencing} =~ /\@\{\}/); for my $a (@addr) { my $ip = new NetAddr::IP $a->[0]; ok(@$ip[0]->cidr eq $a->[1],$a->[0]); } };
| ver. 1.4 |
Github
|
.
| PHP 8.2.29 | Генераци� �траницы: 0 |
proxy
|
phpinfo
|
�а�тройка