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

package Caller_helper;

our $line;

sub foo {
    use autodie;

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

    return;
}

1;