Lines Matching refs:stmt
1821 my ($stmt) = @_;
1824 $stmt =~ s/(^|\n)./$1/g;
1825 $stmt =~ s/^\s*//;
1826 $stmt =~ s/\s*$//;
1828 my @stmt_lines = ($stmt =~ /\n/g);
1834 my ($stmt) = @_;
1836 my @stmt_lines = ($stmt =~ /\n/g);
1842 my ($stmt) = @_;
1844 $stmt =~ s/(^|\n)./$1/g;
1845 $stmt =~ s/^\s*{//;
1846 $stmt =~ s/}\s*$//;
1847 $stmt =~ s/^\s*//;
1848 $stmt =~ s/\s*$//;
1850 my @stmt_lines = ($stmt =~ /\n/g);
1851 my @stmt_statements = ($stmt =~ /;/g);