File Coverage

blib/lib/Net/DNS/RR/CNAME.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::CNAME;
2              
3 4     4   41 use strict;
  4         10  
  4         160  
4 4     4   22 use warnings;
  4         18  
  4         310  
5             our $VERSION = (qw$Id: CNAME.pm 1896 2023-01-30 12:59:25Z willem $)[2];
6              
7 4     4   28 use base qw(Net::DNS::RR);
  4         15  
  4         431  
8              
9              
10             =head1 NAME
11              
12             Net::DNS::RR::CNAME - DNS CNAME resource record
13              
14             =cut
15              
16 4     4   34 use integer;
  4         13  
  4         26  
17              
18 4     4   172 use Net::DNS::DomainName;
  4         25  
  4         1448  
19              
20              
21             sub _decode_rdata { ## decode rdata from wire-format octet string
22 31     31   125 my ( $self, @argument ) = @_;
23              
24 31         102 $self->{cname} = Net::DNS::DomainName1035->decode(@argument);
25 31         96 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         9 my $cname = $self->{cname};
33 5         11 return $cname->encode(@argument);
34             }
35              
36              
37             sub _format_rdata { ## format rdata portion of RR string.
38 2     2   4 my $self = shift;
39              
40 2         3 my $cname = $self->{cname};
41 2         4 return $cname->string;
42             }
43              
44              
45             sub _parse_rdata { ## populate RR from rdata in argument list
46 1     1   3 my ( $self, @argument ) = @_;
47              
48 1         2 $self->cname(@argument);
49 1         3 return;
50             }
51              
52              
53             sub cname {
54 6     6 1 25 my ( $self, @value ) = @_;
55 6         16 for (@value) { $self->{cname} = Net::DNS::DomainName1035->new($_) }
  2         6  
56 6 100       33 return $self->{cname} ? $self->{cname}->name : undef;
57             }
58              
59              
60             1;
61             __END__