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