File Coverage

blib/lib/Net/DNS/RR/KEY.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
path n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 18 18 100.0


line stmt bran path cond sub pod time code
1               package Net::DNS::RR::KEY;
2                
3 4       4   28 use strict;
  4           9  
  4           178  
4 4       4   20 use warnings;
  4           7  
  4           311  
5               our $VERSION = (qw$Id: KEY.pm 2002 2025-01-07 09:57:46Z willem $)[2];
6                
7 4       4   21 use base qw(Net::DNS::RR::DNSKEY);
  4           5  
  4           2521  
8                
9                
10               =head1 NAME
11                
12               Net::DNS::RR::KEY - DNS KEY resource record
13                
14               =cut
15                
16                
17               sub _defaults { ## specify RR attribute default values
18 4       4   8 my $self = shift;
19                
20 4           22 $self->algorithm(1);
21 4           38 $self->flags(0);
22 4           21 $self->protocol(3);
23 4           9 return;
24               }
25                
26                
27               1;
28               __END__