1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More;
7use Test::Identity;
8
9no warnings 'once';
10$Future::IO::IMPL = "TestImplementation";
11require Future::IO;
12
13{
14   package TestImplementation;
15   sub sleep { return "TestFuture" }
16}
17
18is( Future::IO->sleep(123), "TestFuture", 'override before require still works' );
19
20done_testing;
21