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             # ABSTRACT: HiRes Tie variable to Test::Ping
3             $Test::Ping::Ties::HIRES::VERSION = '0.210';
4 19     19   125 use strict;
  19         39  
  19         544  
5 19     19   96 use warnings;
  19         38  
  19         467  
6              
7 19     19   89 use Net::Ping;
  19         33  
  19         1133  
8 19     19   122 use Tie::Scalar;
  19         32  
  19         1832  
9              
10 20     20   1133 sub TIESCALAR { return bless {}, shift; }
11 5     5   984 sub FETCH { return $Net::Ping::hires; }
12 3     3   1586 sub STORE { $Net::Ping::hires = $_[1]; }
13              
14             1;
15              
16             __END__