Home
last modified time | relevance | path

Searched refs:refaddr (Results 1 – 25 of 28) sorted by relevance

12

/openbsd-src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/
H A Drefaddr.t8 use Scalar::Util qw(refaddr);
17 is(refaddr($v), undef, "not " . (defined($v) ? "'$v'" : "undef"));
26 is( refaddr($r), $addr, $n);
30 is( refaddr($r), $addr, "blessed with overload $n");
46 ok(refaddr($xy) == refaddr($y));
47 ok(refaddr($xb) == refaddr($b));
48 ok(refaddr($x{$y}));
49 ok(refaddr($x{$b}));
53 ok(refaddr($z));
59 my $r = refaddr($a);
[all …]
H A Duniqnum.t315 use Scalar::Util qw( refaddr );
322 refaddr $ret[0] == refaddr $nums[0] &&
323 refaddr $ret[1] == refaddr $nums[2],
H A Dgetmagic-once.t6 use Scalar::Util qw(blessed reftype refaddr);
36 ok refaddr($var);
/openbsd-src/gnu/usr.bin/perl/lib/
H A Doverloading.t6 use builtin qw(refaddr);
34 is( 0 + $x, refaddr($x), "no numification" );
35 is( cos($x), cos(refaddr($x)), "no cosinusfication" );
41 is( 0 + $x, refaddr($x), "no numification" );
42 is( cos($x), cos(refaddr($x)), "no cosinusfication" );
68 is( 0 + $x, refaddr($x), "no numification" );
69 is( cos($x), cos(refaddr($x)), "no cosinusfication" );
82 is( 0 + $x, refaddr($x), "no numification" );
89 is( 0 + $x, refaddr($x), "no numification" );
103 is( 0 + $x, refaddr($x), "no numification" );
[all …]
H A Dbuiltin.t99 use builtin qw( refaddr reftype blessed );
104 is(refaddr($arr), $arr+0, 'refaddr yields same as ref in numeric context');
105 is(refaddr("not a ref"), undef, 'refaddr yields undef for non-reference');
121 is(prototype(\&builtin::refaddr), '$', 'refaddr prototype');
634 for my $func (qw(is_bool is_weak blessed refaddr reftype ceil floor is_tainted
/openbsd-src/gnu/usr.bin/perl/cpan/Tie-RefHash/lib/Tie/
H A DRefHash.pm95 *refaddr = sub { goto \&Scalar::Util::refaddr }
99 *refaddr = sub {
173 …%{ $self->[0] } = map +(Scalar::Util::refaddr($_->[0]) => $_), (values(%{ $self->[0] }), @{ $extra…
179 my $kstr = Scalar::Util::refaddr($k);
195 $s->[0]{Scalar::Util::refaddr($k)} = [$k, $v];
206 ? (delete($s->[0]{Scalar::Util::refaddr($k)}) || [])->[1]
212 (ref $k) ? exists($s->[0]{Scalar::Util::refaddr($k)}) : exists($s->[1]{$k});
/openbsd-src/gnu/usr.bin/perl/t/lib/warnings/
H A Dbuiltin63 use builtin qw(blessed refaddr reftype);
64 my ($blessed, $refaddr, $reftype) = (\&blessed, \&refaddr, \&reftype);
67 refaddr($ref);
70 &refaddr($ref);
73 $refaddr->($ref);
77 refaddr($ref);
80 &refaddr($ref);
83 $refaddr->($ref);
/openbsd-src/gnu/usr.bin/perl/t/porting/
H A Dpodcheck.t15 use builtin 'refaddr';
707 my $addr = refaddr $_[0];
735 my $addr = refaddr $self;
767 my $addr = refaddr $self;
863 my $addr = refaddr $self;
910 my $addr = refaddr $self;
921 my $addr = refaddr $self;
931 my $addr = refaddr $self;
963 my $addr = refaddr $self;
985 my $addr = refaddr
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/Math-BigRat/t/
H A Dbinv-mbr.t
H A Dnew-mbr.t
/openbsd-src/gnu/usr.bin/perl/ext/Hash-Util-FieldHash/t/
H A D02_function.t4 use builtin qw(refaddr);
21 is id( $ref), refaddr( $ref), "id is refaddr";
106 my $refaddr = refaddr($key);
107 is $id, $refaddr, "key is refaddr";
/openbsd-src/gnu/usr.bin/perl/lib/unicore/
H A Dmktables25 use builtin qw(refaddr);
1508 return pack 'J', refaddr $addr;
1868 my $addr = pack 'J', refaddr $self;
1963 my $addr = pack 'J', refaddr $self;
1995 my $addr = pack 'J', refaddr $_addr;
2016 return $field->{pack 'J', refaddr $addr};
2026 $field->{pack 'J', refaddr $self} = $value;
2331 my $addr = pack 'J', refaddr $self;
2659 my $addr = pack 'J', refaddr $self;
2917 my $addr = pack 'J', refaddr
[all...]
/openbsd-src/gnu/usr.bin/perl/dist/threads-shared/lib/threads/
H A Dshared.pm9 use Scalar::Util qw(reftype refaddr blessed);
104 my $addr = refaddr($item);
147 if ($addr == refaddr($$item)) {
340 C<refaddr()> (see L<Scalar::Util>). Otherwise, returns C<undef>.
601 Using C<refaddr()> is unreliable for testing
607 use Scalar::Util qw(refaddr);
610 # Otherwise, use refaddr().
611 my $addr1 = is_shared($ref1) || refaddr($ref1);
612 my $addr2 = is_shared($ref2) || refaddr($ref2);
/openbsd-src/gnu/usr.bin/perl/t/class/
H A Dconstruct.t33 is($obj+0, builtin::refaddr($obj), 'numified object');
/openbsd-src/gnu/usr.bin/perl/cpan/JSON-PP/lib/JSON/
H A DPP.pm398 if ( refaddr( $obj ) eq refaddr( $results[0] ) ) {
411 if ( refaddr( $obj ) eq refaddr( $result ) ) {
/openbsd-src/gnu/usr.bin/perl/t/perf/
H A Dopcount.t754 test_opcount(0, "builtin::refaddr is replaced with direct opcode",
755 sub { builtin::refaddr([]); },
758 refaddr => 1,
/openbsd-src/gnu/usr.bin/perl/dist/Safe/
H A DSafe.pm4 use Scalar::Util qw(reftype refaddr);
400 next if ++$OID{refaddr $item} > 1;
/openbsd-src/usr.sbin/hostapd/
H A Dparse.y165 %type <v.reflladdr> refaddr, lladdr, randaddr, frmactionaddr, frmmatchaddr
917 | refaddr
995 refaddr : '&' FROM
/openbsd-src/gnu/usr.bin/perl/cpan/File-Temp/lib/File/
H A DTemp.pm1184 return refaddr($_[0]);
/openbsd-src/gnu/usr.bin/perl/dist/Data-Dumper/
H A DDumper.pm129 pack "J", Scalar::Util::refaddr(shift);
/openbsd-src/gnu/usr.bin/perl/regen/
H A Dopcodes595 refaddr refaddr ck_null fsT1
/openbsd-src/gnu/usr.bin/perl/lib/B/
H A DOp_private.pm125 $bits{$_}{2} = 'OPpENTERSUB_HASTARG' for qw(ceil entersub floor goto refaddr reftype rv2cv);
153 $bits{$_}{4} = 'OPpTARGET_MY' for qw(abs add atan2 ceil chdir chmod chomp chown chr chroot concat cos crypt divide emptyavhv exec exp flock floor getpgrp getppid getpriority hex i_add i_divide i_modulo i_multiply i_negate i_subtract index int kill left_shift length link log mkdir modulo multiconcat multiply nbit_and nbit_or nbit_xor ncomplement negate oct ord pow push rand refaddr reftype rename right_shift rindex rmdir schomp scomplement setpgrp setpriority sin sleep sqrt srand stringify subtract symlink system time undef unlink unshift utime wait waitpid);
510 $bits{refaddr}{0} = $bf[0];
869 OPpENTERSUB_HASTARG => [qw(ceil entersub floor goto refaddr reftype rv2cv)],
910 OPpTARGET_MY => [qw(abs add atan2 ceil chdir chmod chomp chown chr chroot concat cos crypt divide emptyavhv exec exp flock floor getpgrp getppid getpriority hex i_add i_divide i_modulo i_multiply i_negate i_subtract index int kill left_shift length link log mkdir modulo multiconcat multiply nbit_and nbit_or nbit_xor ncomplement negate oct ord pow push rand refaddr reftype rename right_shift rindex rmdir schomp scomplement setpgrp setpriority sin sleep sqrt srand stringify subtract symlink system time undef unlink unshift utime wait waitpid)],
/openbsd-src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/
H A DListUtil.xs1756 refaddr(sv) in refaddr() function
/openbsd-src/gnu/usr.bin/perl/cpan/Math-BigInt/lib/Math/
H A DBigInt.pm25 use Scalar::Util qw< blessed refaddr >;
2119 $zv = $LIB -> _copy($zv) if refaddr($x) eq refaddr($z);
/openbsd-src/gnu/usr.bin/perl/pod/
H A Dperl588delta.pod684 Fix pure-perl version of C<refaddr> to avoid blessing an un-blessed reference

12