xref: /openbsd/gnu/usr.bin/perl/cpan/autodie/t/lib/my/pragma.pm (revision 73471bf0)

package my::pragma;

require autodie;
use Import::Into qw(into);

sub import {
    shift(@_);
    autodie->import::into(1, @_);
    return;
}

sub dont_die {
    open(my $fd, '<', 'random-file');
    return $fd;
}

1;