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
|
use strict;
use warnings;
use Test::More tests => 4;
use Eval::LineNumbers 'eval_line_numbers';
my $line_expected = __LINE__ + 3;
my ($line, $file) = eval eval_line_numbers <<'EOF';
(__LINE__, __FILE__)
EOF
is($file, __FILE__, 'file matches');
is($line, $line_expected, 'line number matches');
sub evaluator
{
eval eval_line_numbers(@_)
}
$line_expected = __LINE__ + 3;
($line, $file) = evaluator(1, <<'EOF');
(__LINE__, __FILE__)
EOF
is($file, __FILE__, 'file matches with call level 1');
is($line, $line_expected, 'line number matches with call level 1');
|
