1package Caller_helper;
2
3our $line;
4
5sub foo {
6    use autodie;
7
8    $line = __LINE__; open(my $fh, '<', "no_such_file_here");
9
10    return;
11}
12
131;
14