File Coverage

blib/lib/Test/Ping/Ties/HIRES.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Test::Ping::Ties::HIRES;
2             $Test::Ping::Ties::HIRES::VERSION = '0.204';
3 19     19   116 use strict;
  19         30  
  19         433  
4 19     19   76 use warnings;
  19         25  
  19         374  
5             # ABSTRACT: HiRes Tie variable to Test::Ping
6              
7 19     19   72 use Net::Ping;
  19         29  
  19         617  
8 19     19   86 use Tie::Scalar;
  19         25  
  19         1729  
9              
10 20     20   865 sub TIESCALAR { return bless {}, shift; }
11 5     5   767 sub FETCH { return $Net::Ping::hires; }
12 3     3   1221 sub STORE { $Net::Ping::hires = $_[1]; }
13              
14             1;
15              
16             __END__