| Subject: | M:S can corrupt line numbers for unrelated parts of the file, take 2 |
$ cat lineno2
#!perl
use warnings;
use strict;
use Method::Signatures;
{
my $uniq = 0;
method fresh_name() {
$self->prefix . $uniq++
}
} # this is line 13
method prefix() {
$self->{prefix}
}
my $aref = [];
my $oops = %{ $aref };
print "got $oops\n";
__END__
$ perl lineno2
Not a HASH reference at lineno2 line 13.
This line number is bogus. Line 13 is "}"; the actual error is on line
20. Corrupted line numbers make debugging runtime errors unnecessarily
interesting.