Searched refs:myref (Results 1 - 3 of 3) sorted by relevance

/openbsd-current/gnu/usr.bin/perl/dist/threads-shared/
H A Dshared.xs1528 _id(SV *myref)
1533 myref = SvRV(myref);
1534 if (SvMAGICAL(myref))
1535 mg_get(myref);
1536 if (SvROK(myref))
1537 myref = SvRV(myref);
1538 ssv = Perl_sharedsv_find(aTHX_ myref);
1546 _refcnt(SV *myref)
[all...]
/openbsd-current/gnu/usr.bin/perl/dist/Attribute-Handlers/t/
H A Dlinerep.t22 sub myref { $ref = shift; } subroutine
32 myref($referent);
/openbsd-current/gnu/usr.bin/perl/t/comp/
H A Dproto.t676 sub myref (\[$@%&*]) { print "# $_[0]\n"; return "$_[0]" }
678 print "not " unless myref($myvar) =~ /^SCALAR\(/;
680 print "not " unless myref($myvar=7) =~ /^SCALAR\(/;
682 print "not " unless myref(@myarray) =~ /^ARRAY\(/;
684 print "not " unless myref(%myhash) =~ /^HASH\(/;
686 print "not " unless myref(&mysub) =~ /^CODE\(/;
688 print "not " unless myref(*myglob) =~ /^GLOB\(/;

Completed in 107 milliseconds