File Coverage

blib/lib/Test/Ping/Ties/PROTO.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::PROTO;
2              
3 15     15   79 use strict;
  15         25  
  15         486  
4 15     15   83 use warnings;
  15         31  
  15         418  
5              
6 15     15   72 use Net::Ping;
  15         26  
  15         655  
7 15     15   75 use Tie::Scalar;
  15         35  
  15         1952  
8              
9             our $VERSION = '0.04';
10              
11 15     15   75 sub TIESCALAR { return bless {}, shift; }
12 0     0   0 sub FETCH { return Test::Ping->_ping_object()->{'proto'}; }
13 7     7   2737 sub STORE { Test::Ping->_ping_object()->{'proto'} = $_[1]; }
14              
15             1;
16              
17             __END__