File Coverage

blib/lib/Test/Ping/Ties/TIMEOUT.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::TIMEOUT;
2             # ABSTRACT: Timeout Tie variable to Test::Ping
3             $Test::Ping::Ties::TIMEOUT::VERSION = '0.210';
4 19     19   123 use strict;
  19         36  
  19         532  
5 19     19   112 use warnings;
  19         44  
  19         430  
6              
7 19     19   98 use Net::Ping;
  19         34  
  19         824  
8 19     19   128 use Test::Ping;
  19         44  
  19         494  
9 19     19   115 use Tie::Scalar;
  19         39  
  19         1998  
10              
11 20     20   1130 sub TIESCALAR { return bless {}, shift; }
12 31     31   653 sub FETCH { return Test::Ping->_ping_object()->{'timeout'}; }
13 3     3   664 sub STORE { Test::Ping->_ping_object()->{'timeout'} = $_[1]; }
14              
15             1;
16              
17             __END__