-my $num;
-
-BEGIN {
- skipall 'This Scope::Upper isn\'t thread safe' unless SU_THREADSAFE;
- plan tests => ($num = 30);
- defined and diag "Using threads $_" for $threads::VERSION;
- if (eval "use Time::HiRes; 1") {
- defined and diag "Using Time::HiRes $_" for $Time::HiRes::VERSION;
- *usleep = \&Time::HiRes::usleep;
- } else {
- diag 'Using fallback usleep';
- *usleep = sub {
- my $s = int($_[0] / 2.5e5);
- sleep $s if $s;
- };
- }
-}