Make Time::HiRes a mandatory dependency

Author: Leont

lib/TAP/Base.pm

@@ -18,10 +18,7 @@ Version 3.51_01
 
 our $VERSION = '3.51_01';
 
-use constant GOT_TIME_HIRES => do {
-    eval 'use Time::HiRes qw(time);';
-    $@ ? 0 : 1;
-};
+use Time::HiRes qw(time);
 
 =head1 SYNOPSIS
 
@@ -119,7 +116,7 @@ Return true if the time returned by get_time is high resolution (i.e. if Time::H
 
 =cut
 
-sub time_is_hires { return GOT_TIME_HIRES }
+sub time_is_hires { return 1 }
 
 =head3 C<get_times>
 

lib/Test/Harness.pm

@@ -14,16 +14,14 @@ use TAP::Parser::Source              ();
 use TAP::Parser::SourceHandler::Perl ();
 
 use Text::ParseWords qw(shellwords);
+use Time::HiRes 'time';
 
 use Config;
 use base 'Exporter';
 
 # $ML $Last_ML_Print
 
-BEGIN {
-    eval q{use Time::HiRes 'time'};
-    our $has_time_hires = !$@;
-}
+our $has_time_hires = 1;
 
 =head1 NAME