File Coverage

blib/lib/Net/DNS/RR/NS.pm
Criterion Covered Total %
statement 31 31 100.0
branch 2 2 100.0
condition n/a
subroutine 10 10 100.0
pod 1 1 100.0
total 44 44 100.0


line stmt bran cond sub pod time code
1             package Net::DNS::RR::NS;
2              
3 10     10   78 use strict;
  10         20  
  10         349  
4 10     10   51 use warnings;
  10         34  
  10         694  
5             our $VERSION = (qw$Id: NS.pm 1896 2023-01-30 12:59:25Z willem $)[2];
6              
7 10     10   71 use base qw(Net::DNS::RR);
  10         39  
  10         987  
8              
9              
10             =head1 NAME
11              
12             Net::DNS::RR::NS - DNS NS resource record
13              
14             =cut
15              
16 10     10   72 use integer;
  10         21  
  10         53  
17              
18 10     10   355 use Net::DNS::DomainName;
  10         22  
  10         3181  
19              
20              
21             sub _decode_rdata { ## decode rdata from wire-format octet string
22 564     564   1175 my ( $self, @argument ) = @_;
23              
24 564         1346 $self->{nsdname} = Net::DNS::DomainName1035->decode(@argument);
25 564         1261 return;
26             }
27              
28              
29             sub _encode_rdata { ## encode rdata as wire-format octet string
30 60     60   106 my ( $self, @argument ) = @_;
31              
32 60         81 my $nsdname = $self->{nsdname};
33 60         122 return $nsdname->encode(@argument);
34             }
35              
36              
37             sub _format_rdata { ## format rdata portion of RR string.
38 7     7   12 my $self = shift;
39              
40 7         10 my $nsdname = $self->{nsdname};
41 7         14 return $nsdname->string;
42             }
43              
44              
45             sub _parse_rdata { ## populate RR from rdata in argument list
46 62     62   123 my ( $self, @argument ) = @_;
47              
48 62         136 $self->nsdname(@argument);
49 62         147 return;
50             }
51              
52              
53             sub nsdname {
54 279     279 1 515 my ( $self, @value ) = @_;
55 279         452 for (@value) { $self->{nsdname} = Net::DNS::DomainName1035->new($_) }
  87         192  
56 279 100       816 return $self->{nsdname} ? $self->{nsdname}->name : undef;
57             }
58              
59              
60             1;
61             __END__