File Coverage

blib/lib/Test/Ping/Ties/BIND.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 30 30 100.0


line stmt bran cond sub pod time code
1             package Test::Ping::Ties::BIND;
2             $Test::Ping::Ties::BIND::VERSION = '0.204';
3 19     19   104 use strict;
  19         34  
  19         442  
4 19     19   76 use warnings;
  19         28  
  19         380  
5             # ABSTRACT: Bind Tie variable to Test::Ping
6              
7 19     19   12948 use Net::Ping;
  19         539345  
  19         1164  
8 19     19   166 use Test::Ping;
  19         39  
  19         402  
9 19     19   9518 use Tie::Scalar;
  19         10089  
  19         434  
10 19     19   112 use Carp;
  19         38  
  19         1978  
11              
12 20     20   1812 sub TIESCALAR { return bless {}, shift; }
13 1     1   1393 sub FETCH { carp 'Usage: $p->bind($local_addr)'; }
14 1     1   484 sub STORE { Test::Ping->_ping_object()->bind( $_[1] ); }
15              
16             1;
17              
18             __END__