File Coverage

blib/lib/Test/Ping/Ties/TIMEOUT.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::TIMEOUT;
2              
3 15     15   86 use strict;
  15         26  
  15         523  
4 15     15   86 use warnings;
  15         30  
  15         387  
5              
6 15     15   74 use Net::Ping;
  15         25  
  15         811  
7 15     15   93 use Tie::Scalar;
  15         27  
  15         2094  
8              
9             our $VERSION = '0.03';
10              
11 15     15   64 sub TIESCALAR { return bless {}, shift; }
12 39     39   407 sub FETCH { return Test::Ping->_ping_object()->{'timeout'}; }
13 2     2   32 sub STORE { Test::Ping->_ping_object()->{'timeout'} = $_[1]; }
14              
15             1;
16              
17             __END__