Lines Matching refs:stmt
1773 my ($stmt) = @_;
1776 $stmt =~ s/(^|\n)./$1/g;
1777 $stmt =~ s/^\s*//;
1778 $stmt =~ s/\s*$//;
1780 my @stmt_lines = ($stmt =~ /\n/g);
1786 my ($stmt) = @_;
1788 my @stmt_lines = ($stmt =~ /\n/g);
1794 my ($stmt) = @_;
1796 $stmt =~ s/(^|\n)./$1/g;
1797 $stmt =~ s/^\s*{//;
1798 $stmt =~ s/}\s*$//;
1799 $stmt =~ s/^\s*//;
1800 $stmt =~ s/\s*$//;
1802 my @stmt_lines = ($stmt =~ /\n/g);
1803 my @stmt_statements = ($stmt =~ /;/g);