File Coverage

blib/lib/Sys/SigAction/Alarm.pm
Criterion Covered Total %
statement 17 17 100.0
branch 2 2 100.0
condition 2 3 66.6
subroutine 6 6 100.0
pod 0 2 0.0
total 27 30 90.0


line stmt bran cond sub pod time code
1              
2             package Sys::SigAction::Alarm;
3             require 5.005;
4 6     6   48238 use strict;
  6         12  
  6         263  
5             #use warnings;
6 6     6   1340 use vars qw( @ISA @EXPORT_OK );
  6         9  
  6         523  
7             require Exporter;
8             @ISA = qw( Exporter );
9             @EXPORT_OK = qw( ssa_alarm );
10 6     6   6123 my $have_hires = scalar eval 'use Time::HiRes; Time::HiRes::ualarm(0); 1;';
  6         14286  
  6         33  
11 6     6   1012 use POSIX qw( INT_MAX ceil ) ;
  6         8358  
  6         33  
12             my $hrworks;
13             sub ssa_alarm($)
14             {
15 14     14 0 37 my $secs = shift;
16             #print print "secs=$secs\n";
17              
18 14 100 66     421 if ( $hrworks and ($secs le (INT_MAX()/1_000_000.0) ) )
19             {
20 13         150 Time::HiRes::ualarm( $secs * 1_000_000 );
21             }
22             else
23             {
24 1         31 alarm( ceil( $secs ) );
25             }
26             }
27              
28 2     2 0 1382 sub hires_works { return $hrworks; }; #test support
29              
30             $hrworks = 1; 1;