autodie_test_module.pm revision 1.1.1.1 
1package main;
2use strict;
3use warnings;
4
5# Calls open, while still in the main package.  This shouldn't
6# be autodying.
7sub leak_test {
8    return open(my $fh, '<', $_[0]);
9}
10
11package autodie_test_module;
12
13# This should be calling CORE::open
14sub your_open {
15    return open(my $fh, '<', $_[0]);
16}
17
181;
19