Lines Matching refs:proto
35 my $proto = shift;
37 while ($proto =~ /\S/) {
40 push(@out, $1 . "{\$_[$n]}"), next if $proto =~ s/^\s*\\([\@%\$\&])//;
41 push(@out, "\$_[$n]"), next if $proto =~ s/^\s*([*\$&])//;
42 push(@out, "\@_[$n..\$#_]"), last if $proto =~ s/^\s*(;\s*)?\@//;
43 $seen_semi = 1, $n--, next if $proto =~ s/^\s*;//; # XXXX ????
44 die "Unknown prototype letters: \"$proto\"";
90 my($name, $code, $sref, $real_proto, $proto, $core, $call);
100 $proto = prototype $sref;
105 $proto = eval { prototype "CORE::$name" };
109 if not defined $proto;
113 if (defined $proto) {
114 $real_proto = " ($proto)";
117 $proto = '@';
123 my @protos = fill_protos($proto);