File Coverage

blib/lib/Test/Ping/Ties/SOURCE_VERIFY.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::SOURCE_VERIFY;
2             # ABSTRACT: Source Verify Tie variable to Test::Ping
3             $Test::Ping::Ties::SOURCE_VERIFY::VERSION = '0.210';
4 19     19   126 use strict;
  19         37  
  19         591  
5 19     19   94 use warnings;
  19         35  
  19         447  
6              
7 19     19   220 use Net::Ping;
  19         43  
  19         799  
8 19     19   114 use Tie::Scalar;
  19         34  
  19         1865  
9              
10 20     20   1100 sub TIESCALAR { return bless {}, shift; }
11 2     2   366 sub FETCH { return $Net::Ping::source_verify; }
12 1     1   701 sub STORE { $Net::Ping::source_verify = $_[1]; }
13              
14             1;
15              
16             __END__