Lines Matching refs:subname
298 my(@subnames, $subname, %proto, %package);
316 print $out "# end of $last_package\::$subname\n1;\n"
318 $subname = $1;
320 if ($subname =~ s/(.*):://){
325 my $fq_subname = "$this_package\::$subname";
329 my($lname, $sname) = ($subname, substr($subname,0,$maxflen-3));
375 if ($subname) {
376 print $out @cache,"1;\n# end of $last_package\::$subname\n";
420 my($subname) = $fqs;
421 $subname =~ s/.*:://;
424 print $ts "sub $subname $proto{$fqs};\n";