Lines Matching refs:text
92 my $text = "";
97 $text .= q{use Switch 'noimport'};
104 $text .= $pre . substr($source,$pos[2],$pos[18]-$pos[2]);
113 $text .= " " if $pos[0] < $pos[2];
114 $text .= substr($source,$pos[0],$pos[4]-$pos[0]);
124 $text .= $1.$2.'S_W_I_T_C_H: while (1) ';
142 $text .= $code . 'continue {last}';
150 $text .= $1 . ($keyword eq "default"
159 $text .= " " if $pos[0] < $pos[2];
160 $text .= "sub " if is_block $code;
161 $text .= filter_blocks($code,line(substr($source,0,$pos[0]),$line)) . ")";
169 $text .= " " if $pos[0] < $pos[2];
170 $text .= "$code)";
176 $text .= " " if $pos[0] < $pos[2];
177 $text .= "$code)";
185 $text .= " " if $pos[0] < $pos[2];
186 $text .= "$code)";
191 $text .= ' \\' if $2 eq '%';
192 $text .= " $code)";
212 $text .= "{ while (1) $code continue { goto C_A_S_E_$casecounter } last S_W_I_T_C_H; C_A_S_E_$casecounter: }";
218 $text .= $1;
220 $text;