File Coverage

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


line stmt bran cond sub pod time code
1             package Net::DNS::RR::KEY;
2              
3 4     4   27 use strict;
  4         7  
  4         146  
4 4     4   25 use warnings;
  4         9  
  4         274  
5             our $VERSION = (qw$Id: KEY.pm 1896 2023-01-30 12:59:25Z willem $)[2];
6              
7 4     4   27 use base qw(Net::DNS::RR::DNSKEY);
  4         10  
  4         1854  
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         27 $self->algorithm(1);
21 4         26 $self->flags(0);
22 4         25 $self->protocol(3);
23 4         8 return;
24             }
25              
26              
27             1;
28             __END__