xref: /openbsd-src/gnu/usr.bin/perl/cpan/autodie/t/lib/Caller_helper.pm (revision d13be5d47e4149db2549a9828e244d59dbc43f15)

package Caller_helper;

our $line;

sub foo {
    use autodie;

    $line = __LINE__; open(my $fh, '<', "no_such_file_here");

    return;
}

1;