use Test::More tests => 1;

{
   package ModuleToTest;
   use subs qw( open );
   use Errno qw( EPIPE );
   sub open {
      $! = EPIPE;
      return 0;
   }
}

use Module;

ok( !eval { Module->f(); 1 } );