File Coverage

blib/lib/Test/Ping/Ties/SERVICE_CHECK.pm
Criterion Covered Total %
statement 14 15 93.3
branch n/a
condition n/a
subroutine 6 7 85.7
pod n/a
total 20 22 90.9


line stmt bran cond sub pod time code
1             package Test::Ping::Ties::SERVICE_CHECK;
2              
3 15     15   83 use strict;
  15         28  
  15         585  
4 15     15   77 use warnings;
  15         24  
  15         356  
5              
6 15     15   869 use Net::Ping;
  15         30  
  15         735  
7 15     15   93 use Tie::Scalar;
  15         25  
  15         2084  
8              
9             our $VERSION = '0.01';
10              
11 15     15   8458 sub TIESCALAR { return bless {}, shift; }
12 0     0   0 sub FETCH { return Test::Ping->_ping_object()->{'econnrefused'}; }
13 6     6   5331 sub STORE { Test::Ping->_ping_object()->{'econnrefused'} = $_[1]; }
14              
15             1;
16              
17             __END__