Lines Matching refs:out
36 my ($n, $isref, @out, @out1, $seen_semi) = -1;
39 push(@out1,[$n,@out]) if $seen_semi;
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*)?\@//;
46 push(@out1,[$n+1,@out]);
58 my (@out, @argv, $n);
62 push @out, "$ {else}if (\@_ == $n) {\n";
64 push @out,
67 push @out, <<EOC;
71 return join '', @out;