File Coverage

blib/lib/Net/DNS/RR/X25.pm
Criterion Covered Total %
statement 30 30 100.0
branch 2 2 100.0
condition n/a
subroutine 11 11 100.0
pod 2 2 100.0
total 45 45 100.0


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