File Coverage

blib/lib/Net/DNS/RR/DNAME.pm
Criterion Covered Total %
statement 32 32 100.0
branch 2 2 100.0
condition n/a
subroutine 11 11 100.0
pod 1 2 100.0
total 46 47 100.0


line stmt bran cond sub pod time code
1             package Net::DNS::RR::DNAME;
2              
3 1     1   7 use strict;
  1         2  
  1         40  
4 1     1   5 use warnings;
  1         2  
  1         44  
5             our $VERSION = (qw$Id: DNAME.pm 1896 2023-01-30 12:59:25Z willem $)[2];
6              
7 1     1   5 use base qw(Net::DNS::RR);
  1         1  
  1         98  
8              
9              
10             =head1 NAME
11              
12             Net::DNS::RR::DNAME - DNS DNAME resource record
13              
14             =cut
15              
16 1     1   7 use integer;
  1         2  
  1         5  
17              
18 1     1   35 use Net::DNS::DomainName;
  1         2  
  1         289  
19              
20              
21             sub _decode_rdata { ## decode rdata from wire-format octet string
22 1     1   2 my ( $self, @argument ) = @_;
23              
24 1         6 $self->{target} = Net::DNS::DomainName2535->decode(@argument);
25 1         2 return;
26             }
27              
28              
29             sub _encode_rdata { ## encode rdata as wire-format octet string
30 5     5   11 my ( $self, @argument ) = @_;
31              
32 5         8 my $target = $self->{target};
33 5         11 return $target->encode(@argument);
34             }
35              
36              
37             sub _format_rdata { ## format rdata portion of RR string.
38 2     2   3 my $self = shift;
39              
40 2         3 my $target = $self->{target};
41 2         8 return $target->string;
42             }
43              
44              
45             sub _parse_rdata { ## populate RR from rdata in argument list
46 1     1   2 my ( $self, @argument ) = @_;
47              
48 1         3 $self->target(@argument);
49 1         2 return;
50             }
51              
52              
53             sub target {
54 6     6 1 22 my ( $self, @value ) = @_;
55 6         12 for (@value) { $self->{target} = Net::DNS::DomainName2535->new($_) }
  2         13  
56 6 100       28 return $self->{target} ? $self->{target}->name : undef;
57             }
58              
59              
60 2     2 0 559 sub dname { return ⌖ } # uncoverable pod
61              
62              
63             1;
64             __END__