1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#line 1
package Test::Name::FromLine;
use strict;
use warnings;
our $VERSION = '0.08';
use Test::Builder;
use File::Slurp;
our %filecache;
no warnings 'redefine';
my $ORIGINAL_ok = \&Test::Builder::ok;
*Test::Builder::ok = sub {
$_[2] ||= do {
my ($package, $filename, $line) = caller($Test::Builder::Level);
my $file = $filecache{$filename} ||= [ read_file($filename) ];
my $lnum = $line;
$line = $file->[$lnum-1];
$line =~ s{^\s+|\s+$}{}g;
"L$lnum: $line";
};
goto &$ORIGINAL_ok;
};
1;
__END__
=encoding utf8
#line 65
|
