Lines Matching refs:in
6 # require 5.001; # Well, it coredumps anyway undef DB in 5.000 (not now)
317 my $in = shift;
318 if ($in eq 'unctrl' or $in eq 'quote') {
319 $unctrl = $in;
404 my $in = shift;
406 $in = \&$in; # Hard reference...
408 my $gv = Devel::Peek::CvGV($in) or return;
423 print( (' ' x $off) . "&$s in $place\n" );
460 print "String space: $TotalStrings bytes in $Strings strings.\n";