File Coverage

blib/lib/Test/Ping/Ties/SOURCE_VERIFY.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 7 71.4
pod n/a
total 18 22 81.8


line stmt bran cond sub pod time code
1             package Test::Ping::Ties::SOURCE_VERIFY;
2              
3 15     15   81 use strict;
  15         24  
  15         514  
4 15     15   75 use warnings;
  15         25  
  15         524  
5              
6 15     15   69 use Net::Ping;
  15         25  
  15         721  
7 15     15   73 use Tie::Scalar;
  15         29  
  15         1643  
8              
9             our $VERSION = '0.01';
10              
11 15     15   82 sub TIESCALAR { return bless {}, shift; }
12 0     0     sub FETCH { return $Net::Ping::source_verify; }
13 0     0     sub STORE { $Net::Ping::source_verify = $_[1]; }
14              
15             1;
16              
17             __END__