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             # ABSTRACT: Bind Tie variable to Test::Ping
3             $Test::Ping::Ties::BIND::VERSION = '0.210';
4 19     19   139 use strict;
  19         39  
  19         547  
5 19     19   96 use warnings;
  19         41  
  19         461  
6              
7 19     19   14816 use Net::Ping;
  19         601780  
  19         1337  
8 19     19   176 use Test::Ping;
  19         54  
  19         482  
9 19     19   10351 use Tie::Scalar;
  19         11546  
  19         566  
10 19     19   147 use Carp;
  19         44  
  19         2406  
11              
12 20     20   1537 sub TIESCALAR { return bless {}, shift; }
13 1     1   1478 sub FETCH { carp 'Usage: $p->bind($local_addr)'; }
14 1     1   469 sub STORE { Test::Ping->_ping_object()->bind( $_[1] ); }
15              
16             1;
17              
18             __END__