10 my @impls = qw<Time::HiRes sleep>;
12 for my $impl (@impls) {
13 my $desc = "$impl-based usleep()";
15 local $SIG{__WARN__} = sub {
16 my $msg = join ' ', @_;
17 if ($msg !~ /Subroutine main::usleep redefined/) {
22 VPIT::TestHelpers->import(usleep => [ $impl ]);
26 eval 'defined &main::usleep';
28 ok $has_usleep, "$desc was imported";
29 my $ret = usleep(100);
30 pass "$desc did sleep";
31 diag "$desc actually slept $ret microseconds";