Lines Matching refs:stmt
1492 my ($stmt) = @_;
1495 $stmt =~ s/(^|\n)./$1/g;
1496 $stmt =~ s/^\s*//;
1497 $stmt =~ s/\s*$//;
1499 my @stmt_lines = ($stmt =~ /\n/g);
1505 my ($stmt) = @_;
1507 my @stmt_lines = ($stmt =~ /\n/g);
1513 my ($stmt) = @_;
1515 $stmt =~ s/(^|\n)./$1/g;
1516 $stmt =~ s/^\s*{//;
1517 $stmt =~ s/}\s*$//;
1518 $stmt =~ s/^\s*//;
1519 $stmt =~ s/\s*$//;
1521 my @stmt_lines = ($stmt =~ /\n/g);
1522 my @stmt_statements = ($stmt =~ /;/g);