File Coverage

blib/lib/Test/Ping/Ties/PORT.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::PORT;
2              
3 15     15   229 use strict;
  15         33  
  15         679  
4 15     15   84 use warnings;
  15         27  
  15         476  
5              
6 15     15   76 use Net::Ping;
  15         30  
  15         703  
7 15     15   83 use Tie::Scalar;
  15         29  
  15         1861  
8              
9             our $VERSION = '0.01';
10              
11 15     15   112 sub TIESCALAR { return bless {}, shift; }
12 0     0   0 sub FETCH { return Test::Ping->_ping_object()->{'port_num'}; }
13 11     11   3411 sub STORE { Test::Ping->_ping_object()->{'port_num'} = $_[1]; }
14              
15             1;
16              
17             __END__