File Coverage

blib/lib/Net/DNS/ToolKit/Debug.pm
Criterion Covered Total %
statement 15 16 93.7
branch n/a
condition n/a
subroutine 5 6 83.3
pod n/a
total 20 22 90.9


line stmt bran cond sub pod time code
1             package Net::DNS::ToolKit::Debug;
2              
3             #use 5.006;
4 32     32   23992 use strict;
  32         298  
  32         1306  
5             #use diagnostics;
6             #use warnings;
7              
8 32     32   164 use AutoLoader qw(AUTOLOAD);
  32         60  
  32         190  
9 32     32   1069 use vars qw($VERSION @EXPORT_OK @ISA);
  32         59  
  32         2235  
10 32     32   171 use Net::DNS::Codes qw(:header :all);
  32         53  
  32         39418  
11 32         5356 use Net::DNS::ToolKit qw(
12             gethead
13             get1char
14             parse_char
15 32     32   205 );
  32         57  
16             require Exporter;
17             @ISA = qw(Exporter);
18              
19             $VERSION = do { my @r = (q$Revision: 0.03 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
20              
21             @EXPORT_OK = qw(
22             print_head
23             print_buf
24             );
25              
26 0     0     sub DESTROY {}
27              
28             1;
29             __END__