Lines Matching refs:stmt
1457 my ($stmt) = @_;
1460 $stmt =~ s/(^|\n)./$1/g;
1461 $stmt =~ s/^\s*//;
1462 $stmt =~ s/\s*$//;
1464 my @stmt_lines = ($stmt =~ /\n/g);
1470 my ($stmt) = @_;
1472 my @stmt_lines = ($stmt =~ /\n/g);
1478 my ($stmt) = @_;
1480 $stmt =~ s/(^|\n)./$1/g;
1481 $stmt =~ s/^\s*{//;
1482 $stmt =~ s/}\s*$//;
1483 $stmt =~ s/^\s*//;
1484 $stmt =~ s/\s*$//;
1486 my @stmt_lines = ($stmt =~ /\n/g);
1487 my @stmt_statements = ($stmt =~ /;/g);