File Coverage

blib/lib/Net/DNS/ToolKit/Utilities.pm
Criterion Covered Total %
statement 28 29 96.5
branch 3 4 75.0
condition n/a
subroutine 9 10 90.0
pod 1 1 100.0
total 41 44 93.1


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2             package Net::DNS::ToolKit::Utilities;
3              
4 1     1   725 use strict;
  1         2  
  1         36  
5             #use diagnostics;
6              
7 1     1   5 use vars qw($VERSION @ISA @EXPORT_OK $ID);
  1         1  
  1         122  
8              
9             $VERSION = do { my @r = (q$Revision: 0.05 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
10              
11 1     1   865 use AutoLoader 'AUTOLOAD';
  1         1374  
  1         5  
12              
13 1     1   26 use Config;
  1         2  
  1         39  
14 1     1   769 use IO::Socket;
  1         29350  
  1         3  
15 1         175 use Net::DNS::Codes qw(
16             T_ANY
17             T_A
18             T_TXT
19             T_MX
20             T_NS
21             T_SOA
22             T_PTR
23             T_CNAME
24             C_IN
25             NS_PACKETSZ
26             QUERY
27             NOERROR
28             BITS_QUERY
29             RD
30 1     1   1335 );
  1         1430  
31 1         99 use Net::DNS::ToolKit qw(
32             put16
33             get16
34             gethead
35             newhead
36             get_ns
37 1     1   598 );
  1         2  
38 1     1   537 use Net::DNS::ToolKit::RR;
  1         2  
  1         81  
39            
40             $ID = time % 65536; # unique for now
41              
42             require Exporter;
43             @ISA = qw(Exporter);
44              
45             @EXPORT_OK = qw(
46             id
47             question
48             revIP
49             query
50             dns_udpsend
51             dns_udpresp
52             dns_ans
53             dns_ns
54             dns_ptr
55             rlook_send
56             rlook_rcv
57             );
58              
59             # autoload declarations
60              
61 0     0   0 sub DESTROY{};
62              
63             1;
64             __END__