cpan/autodie/t/autodie_test_module.pm

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