File Coverage

lib/Net/Netid.pm
Criterion Covered Total %
statement 25 27 92.5
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 34 36 94.4


line stmt bran cond sub pod time code
1             #!perl
2             #
3             # The copyright notice and plain old documentation (POD)
4             # are at the end of this file.
5             #
6             package Net::Netid;
7            
8 1     1   1569 use strict;
  1         3  
  1         42  
9 1     1   29 use 5.001;
  1         3  
  1         77  
10 1     1   6 use warnings;
  1         2  
  1         36  
11 1     1   6 use warnings::register;
  1         2  
  1         130  
12            
13 1     1   1147 use attributes qw(reftype);
  1         1564  
  1         10  
14 1     1   80 use File::Spec;
  1         2  
  1         25  
15 1     1   1049 use IO::Socket;
  1         26014  
  1         219  
16            
17 1     1   2092 use Proc::Command;
  1         1294  
  1         50  
18 1     1   981 use Data::Str2Num qw(str2int);
  0            
  0            
19            
20             #####
21             # Connect up with the event log.
22             #
23             use vars qw( $VERSION $DATE $FILE);
24             $VERSION = '0.02';
25             $DATE = '2003/07/27';
26             $FILE = __FILE__;
27            
28             use vars qw(@ISA @EXPORT_OK);
29             require Exporter;
30             @ISA=('Exporter');
31             @EXPORT_OK = qw(&netid &ipid &net2dot &dot2net &net2num &ip2dot &dot2dec &clean_ip_str
32             &clean_netid &clean_ipid &clean_ip2dot);
33            
34             use SelfLoader;
35            
36             1
37            
38             __DATA__