xref: /openbsd-src/gnu/usr.bin/perl/cpan/autodie/t/lib/my/pragma.pm (revision b8851fcc53cbe24fd20b090f26dd149e353f6174)
1*b8851fccSafresh1package my::pragma;
2*b8851fccSafresh1
3*b8851fccSafresh1require autodie;
4*b8851fccSafresh1use Import::Into qw(into);
5*b8851fccSafresh1
6*b8851fccSafresh1sub import {
7*b8851fccSafresh1    shift(@_);
8*b8851fccSafresh1    autodie->import::into(1, @_);
9*b8851fccSafresh1    return;
10*b8851fccSafresh1}
11*b8851fccSafresh1
12*b8851fccSafresh1sub dont_die {
13*b8851fccSafresh1    open(my $fd, '<', 'random-file');
14*b8851fccSafresh1    return $fd;
15*b8851fccSafresh1}
16*b8851fccSafresh1
17*b8851fccSafresh11;
18