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             $Test::Ping::Ties::SOURCE_VERIFY::VERSION = '0.204';
3 19     19   104 use strict;
  19         31  
  19         475  
4 19     19   77 use warnings;
  19         30  
  19         457  
5             # ABSTRACT: Source Verify Tie variable to Test::Ping
6              
7 19     19   74 use Net::Ping;
  19         27  
  19         628  
8 19     19   84 use Tie::Scalar;
  19         28  
  19         1409  
9              
10 20     20   812 sub TIESCALAR { return bless {}, shift; }
11 2     2   523 sub FETCH { return $Net::Ping::source_verify; }
12 1     1   425 sub STORE { $Net::Ping::source_verify = $_[1]; }
13              
14             1;
15              
16             __END__