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   35 use strict;
  4         10  
  4         161  
4 4     4   31 use warnings;
  4         9  
  4         276  
5             our $VERSION = (qw$Id: KEY.pm 1896 2023-01-30 12:59:25Z willem $)[2];
6              
7 4     4   42 use base qw(Net::DNS::RR::DNSKEY);
  4         19  
  4         1979  
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   10 my $self = shift;
19              
20 4         37 $self->algorithm(1);
21 4         32 $self->flags(0);
22 4         28 $self->protocol(3);
23 4         11 return;
24             }
25              
26              
27             1;
28             __END__