Lines Matching refs:stmt
1187 my ($stmt) = @_;
1190 $stmt =~ s/(^|\n)./$1/g;
1191 $stmt =~ s/^\s*//;
1192 $stmt =~ s/\s*$//;
1194 my @stmt_lines = ($stmt =~ /\n/g);
1200 my ($stmt) = @_;
1202 my @stmt_lines = ($stmt =~ /\n/g);
1208 my ($stmt) = @_;
1210 $stmt =~ s/(^|\n)./$1/g;
1211 $stmt =~ s/^\s*{//;
1212 $stmt =~ s/}\s*$//;
1213 $stmt =~ s/^\s*//;
1214 $stmt =~ s/\s*$//;
1216 my @stmt_lines = ($stmt =~ /\n/g);
1217 my @stmt_statements = ($stmt =~ /;/g);