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

package Caller_helper;

our $line;

sub foo {
    use autodie;

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

    return;
}

1;