1package autodie_skippy;
2use strict;
3use warnings;
4use autodie;
5use parent qw(autodie::skip);
6
7# This should skip upwards to the caller.
8
9sub fail_open {
10    open(my $fh, '<', 'this_file_had_better_not_exist');
11}
12
13package autodie_unskippy;
14use autodie;
15
16# This should not skip upwards.
17
18sub fail_open {
19    open(my $fh, '<', 'this_file_had_better_not_exist');
20}
21
221;
23