Lines Matching refs:ref
358 my $s = "$r1 ". ref($r1) . " $r2 " . ref($r2);
412 my $ref = \$x;
413 tie $x, 'Overlay', $ref, $x;
419 #print "WILL EXTERNAL UNTIE $ref\n";
420 untie $$ref;
434 my ($ref, $val) = @_;
435 return bless [ $ref, $val ], $pkg;
441 my ($ref, $val) = @$self;
442 #print "WILL INTERNAL UNITE $ref\n";
444 untie $$ref;