File Coverage

blib/lib/Test/Ping/Ties/BIND.pm
Criterion Covered Total %
statement 16 18 88.8
branch n/a
condition n/a
subroutine 6 8 75.0
pod n/a
total 22 26 84.6


line stmt bran cond sub pod time code
1             package Test::Ping::Ties::BIND;
2              
3 15     15   90 use strict;
  15         27  
  15         481  
4 15     15   78 use warnings;
  15         32  
  15         881  
5              
6 15     15   25547 use Net::Ping;
  15         1033647  
  15         1288  
7 15     15   15986 use Tie::Scalar;
  15         9322  
  15         401  
8 15     15   102 use Carp;
  15         35  
  15         2204  
9              
10             our $VERSION = '0.01';
11              
12 15     15   77 sub TIESCALAR { return bless {}, shift; }
13 0     0     sub FETCH { carp 'Usage: $p->bind($local_addr)'; }
14 0     0     sub STORE { Test::Ping->_ping_object()->bind( $_[1] ); }
15              
16             1;
17              
18             __END__