File Coverage

blib/lib/Net/DNSBL/Utilities.pm
Criterion Covered Total %
statement 124 128 96.8
branch 57 68 83.8
condition 22 29 75.8
subroutine 19 19 100.0
pod 10 10 100.0
total 232 254 91.3


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package Net::DNSBL::Utilities;
4 22     22   44347 use strict;
  22         38  
  22         816  
5             #use diagnostics;
6              
7 22         1594 use File::SafeDO qw(
8             DO
9             doINCLUDE
10 22     22   18426 );
  22         824386  
11 22         3746 use vars qw(
12             $VERSION @ISA @EXPORT_OK *UDP
13             $A1271 $A1272 $A1273 $A1274 $A1275 $A1276 $A1277
14             $SKIP_POSIX $SKIP_NetAddrIP $AuthBit $RABit
15 22     22   118 );
  22         44  
16             $A1271 = $A1272 = $A1273 = $A1274 = $A1275 = 0;
17             $AuthBit = $SKIP_POSIX = $SKIP_NetAddrIP = 0;
18 22     22   4576 use AutoLoader 'AUTOLOAD';
  22         8071  
  22         165  
19             require Exporter;
20             @ISA = qw(Exporter);
21              
22             $VERSION = do { my @r = (q$Revision: 0.10 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
23              
24             *DO = \&File::SafeDO::DO;
25             *doINCLUDE = \&File::SafeDO::doINCLUDE;
26              
27             @EXPORT_OK = qw(
28             s_response
29             not_found
30             write_stats
31             bystat
32             statinit
33             cntinit
34             DO
35             doINCLUDE
36             open_udpNB
37             list2NetAddr
38             matchNetAddr
39             list2hash
40             A1271
41             A1272
42             A1273
43             A1274
44             A1275
45             A1276
46             A1277
47             list_countries
48             setAUTH
49             setRA
50             );
51              
52 22         2324 use Net::DNS::Codes qw(
53             BITS_QUERY
54             QR
55             NXDOMAIN
56             C_IN
57             AA
58             RA
59 22     22   8130 );
  22         10288  
60 22         1498 use Net::DNS::ToolKit 0.16 qw(
61             newhead
62 22     22   5583 );
  22         1057782  
63 22     22   6664 use Net::DNS::ToolKit::RR;
  22         30187  
  22         1102  
64             #use Net::DNS::ToolKit::Debug qw(
65             # print_head
66             # print_buf
67             #);
68              
69             # used a lot, create once per session
70             *UDP = \getprotobyname('udp');
71              
72             1;
73             __END__