Lines Matching refs:stmt
1766 my ($stmt) = @_;
1769 $stmt =~ s/(^|\n)./$1/g;
1770 $stmt =~ s/^\s*//;
1771 $stmt =~ s/\s*$//;
1773 my @stmt_lines = ($stmt =~ /\n/g);
1779 my ($stmt) = @_;
1781 my @stmt_lines = ($stmt =~ /\n/g);
1787 my ($stmt) = @_;
1789 $stmt =~ s/(^|\n)./$1/g;
1790 $stmt =~ s/^\s*{//;
1791 $stmt =~ s/}\s*$//;
1792 $stmt =~ s/^\s*//;
1793 $stmt =~ s/\s*$//;
1795 my @stmt_lines = ($stmt =~ /\n/g);
1796 my @stmt_statements = ($stmt =~ /;/g);