THRESHHOLD_TEST: for my $i ( 0 .. 1 ) {
for my $j ( 0 .. 1 ) {
for my $k ( 0 .. 1 ) {
if ($k) {
my $null = $i + $j + $k;
}
}
}
}
sub add_line_numbers {
my $contents = prefilter(shift);
my $with_varnames = prefilter(shift);
my @contents;
my $line_num = 1;
foreach my $i ( 0 .. $#$contents ) {
my ( $line, $line_with_vars )
= ( $contents->[$i], $with_varnames->[$i] );
chomp $line_with_vars;
if ( $line =~ /^#line\s+([0-9]+)/ ) {
$line_num = $1;
next;
}
push @contents => {
line => $line_num,
key => munge_line($line),
code => $line_with_vars,
};
$line_num++;
}
return postfilter( \@contents );
}
1;