Lines Matching refs:out
13 my $out;
27 $out .= $_;
28 do_output($out);
38 $out .= $1."\n";
40 $out .= $_;
49 $out .= displayData($indent, 0, \@strucdata);
50 $out .= "\n$indent};\n";
51 do_output($out);
57 $out = $_;
184 my $out = "";
194 if($out =~ /\n\s*$/s) {
195 $out .= $item."\n".$indent;
197 $out .= "\n".$indent.$item."\n".$indent;
206 if($out =~ /\n\s*$/s) {
207 $out =~ s/\n\s*$/\n/;
208 $out .= $item."\n".$indent;
210 $out .= "\n".$item."\n".$indent;
219 $out .= $indent;
224 $out .= ", ";
227 $out .= "\n";
231 $out .= $indent;
242 $out .= displayData("$indent ", $depth+1, $item);
244 $out .= "{\n".displayData("$indent ", $depth+1, $item)."\n".$indent."}";
250 $out .= "\n$indent";
252 $out .= $item;
256 return $out;
260 my $out = shift;
262 $out =~ s/\s+\n/\n/g;
263 print $out;
