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              
3 15     15   78 use strict;
  15         202  
  15         514  
4 15     15   85 use warnings;
  15         29  
  15         403  
5              
6 15     15   83 use Net::Ping;
  15         67  
  15         820  
7 15     15   80 use Tie::Scalar;
  15         27  
  15         1569  
8              
9             our $VERSION = '0.01';
10              
11 15     15   72 sub TIESCALAR { return bless {}, shift; }
12 4     4   674 sub FETCH { return $Net::Ping::hires; }
13 3     3   2278 sub STORE { $Net::Ping::hires = $_[1]; }
14              
15             1;
16              
17             __END__