/dports/converters/p5-Cpanel-JSON-XS/Cpanel-JSON-XS-4.27/XS/ |
H A D | Type.pm | 241 *weaken = sub($) { die 'Scalar::Util is required for weaken' }; 278 my $weaken; 282 $weaken = 1; 287 $scalar_weaken = $weaken; 291 $array_weaken = $weaken; 295 $hash_weaken = $weaken; 301 weaken $type->[0] if $scalar_weaken; 302 weaken $type->[1] if $array_weaken; 303 weaken $type->[2] if $hash_weaken; 319 weaken $type; [all …]
|
/dports/lang/perl5.34/perl-5.34.0/cpan/Scalar-List-Utils/t/ |
H A D | weak.t | 9 use Test::More ((grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) and !$ENV{PERL_CORE}) 13 Scalar::Util->import(qw(weaken unweaken isweak)); 27 weaken($y); 48 weaken($y); 63 weaken($y->{Self}); 83 weaken($x->{Ref}); 97 weaken($y); 110 weaken($b); 116 weaken($x->{Y} = \$a); 130 weaken($y); [all …]
|
/dports/lang/perl5.30/perl-5.30.3/cpan/Scalar-List-Utils/t/ |
H A D | weak.t | 9 use Test::More ((grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) and !$ENV{PERL_CORE}) 13 Scalar::Util->import(qw(weaken unweaken isweak)); 27 weaken($y); 48 weaken($y); 63 weaken($y->{Self}); 83 weaken($x->{Ref}); 97 weaken($y); 110 weaken($b); 116 weaken($x->{Y} = \$a); 130 weaken($y); [all …]
|
/dports/lang/perl5.32/perl-5.32.1/cpan/Scalar-List-Utils/t/ |
H A D | weak.t | 9 use Test::More ((grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) and !$ENV{PERL_CORE}) 13 Scalar::Util->import(qw(weaken unweaken isweak)); 27 weaken($y); 48 weaken($y); 63 weaken($y->{Self}); 83 weaken($x->{Ref}); 97 weaken($y); 110 weaken($b); 116 weaken($x->{Y} = \$a); 130 weaken($y); [all …]
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/cpan/Scalar-List-Utils/t/ |
H A D | weak.t | 9 use Test::More ((grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) and !$ENV{PERL_CORE}) 13 Scalar::Util->import(qw(weaken unweaken isweak)); 27 weaken($y); 48 weaken($y); 63 weaken($y->{Self}); 83 weaken($x->{Ref}); 97 weaken($y); 110 weaken($b); 116 weaken($x->{Y} = \$a); 130 weaken($y); [all …]
|
/dports/devel/p5-Glib-Object-Introspection/Glib-Object-Introspection-0.049/t/ |
H A D | boxed.t | 19 weaken $boxed; 46 weaken $boxed; 60 weaken $boxed; 76 weaken $boxed; 90 weaken $boxed; 92 weaken $copy; 104 weaken $boxed; 106 weaken $copy; 112 weaken $boxed; 118 weaken $boxed; [all …]
|
/dports/lang/p5-Scalar-List-Utils/Scalar-List-Utils-1.60/t/ |
H A D | weak.t | 8 use Scalar::Util qw(weaken unweaken isweak); 23 weaken($y); 44 weaken($y); 59 weaken($y->{Self}); 79 weaken($x->{Ref}); 93 weaken($y); 106 weaken($b); 112 weaken($x->{Y} = \$a); 126 weaken($y); 153 eval { weaken($b) };
|
/dports/devel/p5-Task-Weaken/Task-Weaken-1.06/t/ |
H A D | 02_weaken.t | 20 ok( defined(&weaken), '->import(weaken) worked' ); 45 weaken($y); 56 weaken($y); 63 weaken($y->{Self}); 76 weaken($x->{Ref}); 84 weaken($y); 92 weaken($b); 98 weaken($x->{Y} = \$a);
|
/dports/net/p5-Mojo-RabbitMQ-Client/Mojo-RabbitMQ-Client-0.3.1/lib/Mojo/RabbitMQ/Client/ |
H A D | Channel.pm | 34 weaken $self; 56 weaken $self; 218 weaken $self; 247 weaken $self; 281 weaken $self; 335 weaken $self; 363 weaken $self; 393 weaken $self; 421 weaken $self; 446 weaken $self; [all …]
|
/dports/devel/p5-AnyEvent-Gearman/AnyEvent-Gearman-0.10/lib/AnyEvent/Gearman/Client/ |
H A D | Connection.pm | 20 weaken($self); 52 weaken $self; 75 weaken $self; 87 weaken $self; 101 weaken $self; 112 Scalar::Util::weaken($self); 126 weaken $self; 140 weaken $self;
|
/dports/devel/p5-WeakRef/WeakRef-0.01/ |
H A D | test.pl | 50 weaken($y); 93 weaken($y); 119 weaken($y->{Self}); 147 weaken($x->{Ref}); 164 weaken($y); 180 weaken($b); 186 weaken($x->{Y} = \$a);
|
/dports/textproc/p5-PDF-Builder/PDF-Builder-3.023/lib/PDF/Builder/ |
H A D | Outline.pm | 36 weaken $self->{' api'}; 37 weaken $self->{'Parent'} if defined $parent; 38 weaken $self->{'Prev'} if defined $prev; 47 weaken $self->{'Parent'}; 55 weaken $self->{'Prev'}; 63 weaken $self->{'Next'}; 73 weaken $self->{'First'}; 83 weaken $self->{'Last'};
|
/dports/lang/perl5.34/perl-5.34.0/dist/Storable/t/ |
H A D | weak.t | 24 Scalar::Util->import(qw(weaken isweak)); 25 if (grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) { 49 weaken $s1->[1]; 53 weaken $s0->[0]; 57 weaken $w->[0]; 70 weaken $o->[0]; 150 weaken($foo->[1][0][0] = $foo->[1]);
|
/dports/lang/perl5.32/perl-5.32.1/dist/Storable/t/ |
H A D | weak.t | 24 Scalar::Util->import(qw(weaken isweak)); 25 if (grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) { 49 weaken $s1->[1]; 53 weaken $s0->[0]; 57 weaken $w->[0]; 70 weaken $o->[0]; 150 weaken($foo->[1][0][0] = $foo->[1]);
|
/dports/devel/p5-Storable/Storable-3.25/t/ |
H A D | weak.t | 24 Scalar::Util->import(qw(weaken isweak)); 25 if (grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) { 49 weaken $s1->[1]; 53 weaken $s0->[0]; 57 weaken $w->[0]; 70 weaken $o->[0]; 150 weaken($foo->[1][0][0] = $foo->[1]);
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/dist/Storable/t/ |
H A D | weak.t | 24 Scalar::Util->import(qw(weaken isweak)); 25 if (grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) { 49 weaken $s1->[1]; 53 weaken $s0->[0]; 57 weaken $w->[0]; 70 weaken $o->[0]; 150 weaken($foo->[1][0][0] = $foo->[1]);
|
/dports/www/rt44/rt-4.4.5/lib/RT/ |
H A D | Action.pm | 103 Scalar::Util::weaken($self->{'ScripActionObj'}); 104 Scalar::Util::weaken($self->{'ScripObj'}); 105 Scalar::Util::weaken($self->{'TemplateObj'}); 106 Scalar::Util::weaken($self->{'TicketObj'}); 107 Scalar::Util::weaken($self->{'TransactionObj'});
|
/dports/www/rt50/rt-5.0.2/lib/RT/ |
H A D | Action.pm | 103 Scalar::Util::weaken($self->{'ScripActionObj'}); 104 Scalar::Util::weaken($self->{'ScripObj'}); 105 Scalar::Util::weaken($self->{'TemplateObj'}); 106 Scalar::Util::weaken($self->{'TicketObj'}); 107 Scalar::Util::weaken($self->{'TransactionObj'});
|
/dports/devel/p5-Devel-Cycle/Devel-Cycle-1.12/t/ |
H A D | Devel-Cycle.t | 9 use Scalar::Util qw(weaken isweak); 35 # now fix them with weaken and make sure that gets noticed 37 weaken($test->{george}->{phyllis}); 39 is($counter,2,'found two cycles in $test after weaken()'); 49 is($counter, 4, 'found four cycles (including weakened ones) in $test after weaken()'); 52 weaken($test->{fred}[3]); 54 is($counter,0,'found no cycles in $test after second weaken()'); 58 is($counter,4,'found four cycles (including weakened ones) in $test after second weaken()');
|
/dports/devel/p5-constant-defer/constant-defer-6/t/ |
H A D | constant-defer.t | 82 Scalar::Util::weaken($x); 95 Scalar::Util::weaken ($orig_code); 263 Scalar::Util::weaken ($subr); 292 Scalar::Util::weaken ($subr); 293 Scalar::Util::weaken ($objref); 319 Scalar::Util::weaken ($cancode); 341 Scalar::Util::weaken ($coderef); 369 Scalar::Util::weaken ($runner);
|
/dports/www/p5-WWW-Scripter/WWW-Scripter-0.032/t/ |
H A D | dustbin-man.t | 8 use Scalar::Util 'weaken'; 13 weaken $res; 24 weaken $w; 25 weaken $doc;
|
/dports/devel/p5-Moose/Moose-2.2201/t/cmop/ |
H A D | anon_class_create_init.t | 35 Scalar::Util::weaken($meta); 49 Scalar::Util::weaken($meta); 63 Scalar::Util::weaken($meta); 81 Scalar::Util::weaken($submeta); 90 Scalar::Util::weaken($meta); 118 weaken => 0, 122 "anon classes can be told not to weaken"); 137 weaken => 1, 143 Scalar::Util::weaken($meta);
|
/dports/net-p2p/p5-Net-BitTorrent/Net-BitTorrent-0.052/lib/Net/BitTorrent/ |
H A D | Peer.pm | 423 { weaken $self; 428 weaken $self; 434 { weaken $self; 874 weaken $self; 956 weaken $self; 1035 weaken $self; 1063 weaken $self; 1070 weaken $self; 1132 weaken $self; 1163 weaken $self; [all …]
|
/dports/lang/perl5.30/perl-5.30.3/dist/Storable/t/ |
H A D | weak.t | 24 Scalar::Util->import(qw(weaken isweak)); 25 if (grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) { 49 weaken $s1->[1]; 53 weaken $s0->[0]; 57 weaken $w->[0]; 70 weaken $o->[0];
|
/dports/devel/p5-Data-Visitor/Data-Visitor-0.31/t/ |
H A D | weak.t | 12 use Scalar::Util qw(isweak weaken); 19 weaken($ref->{foo}); 23 my $v = Data::Visitor->new( weaken => 1 ); 35 weaken($ref->{foo}); 40 my $v = Data::Visitor->new( weaken => 1 );
|