10 my @impls = qw<Time::HiRes select sleep>;
14 for my $impl (@impls) {
15 my $desc = "$impl-based usleep()";
17 local $SIG{__WARN__} = sub {
18 my $msg = join ' ', @_;
19 if ($msg !~ /Subroutine main::usleep redefined/) {
24 VPIT::TestHelpers->import(usleep => [ $impl ]);
28 eval 'defined &main::usleep';
30 ok $has_usleep, "$desc was imported";
31 my $ret = usleep($duration);
32 cmp_ok $ret, '>=', $duration, "$desc did sleep";
33 diag "$desc actually slept $ret microseconds";