1package my::pragma;
2
3require autodie;
4use Import::Into qw(into);
5
6sub import {
7    shift(@_);
8    autodie->import::into(1, @_);
9    return;
10}
11
12sub dont_die {
13    open(my $fd, '<', 'random-file');
14    return $fd;
15}
16
171;
18