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   31 use strict;
  4         9  
  4         222  
4 4     4   21 use warnings;
  4         9  
  4         435  
5             our $VERSION = (qw$Id: KEY.pm 2002 2025-01-07 09:57:46Z willem $)[2];
6              
7 4     4   28 use base qw(Net::DNS::RR::DNSKEY);
  4         11  
  4         2323  
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         33 $self->algorithm(1);
21 4         30 $self->flags(0);
22 4         26 $self->protocol(3);
23 4         10 return;
24             }
25              
26              
27             1;
28             __END__