File Coverage

blib/lib/Test/Ping/Ties/SERVICE_CHECK.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Test::Ping::Ties::SERVICE_CHECK;
2             $Test::Ping::Ties::SERVICE_CHECK::VERSION = '0.204';
3 19     19   107 use strict;
  19         55  
  19         449  
4 19     19   80 use warnings;
  19         32  
  19         373  
5             # ABSTRACT: Service Check Tie variable to Test::Ping
6              
7 19     19   74 use Net::Ping;
  19         31  
  19         782  
8 19     19   115 use Test::Ping;
  19         38  
  19         387  
9 19     19   77 use Tie::Scalar;
  19         30  
  19         1847  
10              
11 20     20   9129 sub TIESCALAR { return bless {}, shift; }
12 2     2   274 sub FETCH { return Test::Ping->_ping_object()->{'econnrefused'}; }
13 7     7   2105 sub STORE { Test::Ping->_ping_object()->{'econnrefused'} = $_[1]; }
14              
15             1;
16              
17             __END__