Lines Matching refs:stmt
51 my $stmt = ""; # Current Perl statement
94 my ($stmt) = @_; # Statement
97 if ($stmt =~ /^package\s+([\w:]+)/)
114 my ($stmt) = @_; # Statement
117 if ($stmt =~ /^sub\s+([\w:]+)/)
134 my ($stmt) = @_;
137 $stmt =~ s/^(my|our|local)\s+//;
140 $stmt =~ s/\s*=.*//;
143 @vars = ($stmt =~ /[\$\@\%]([\w:]+)\b/g);
204 ($stmt = $line) =~ s/#.*//;
205 $stmt =~ s/^\s*//;
206 $stmt =~ s/\s*$//;
209 next unless ($stmt);
213 if ($var_continues or ($stmt =~/^my\b/)
214 or ($stmt =~/^our\b/) or ($stmt =~/^local\b/))
217 $var_continues = ($stmt !~ /;$/);
220 foreach $var (VarNames($stmt))
235 elsif ($stmt =~/^package\b/)
238 $package_name = PackageName($stmt);
255 elsif ($stmt =~/^sub\b/)
266 MakeTag(SubName($stmt), "s", (!$is_pkg), $file, $line);