39 lines
798 B
Perl
39 lines
798 B
Perl
|
package Zonemaster::LDNS::RR::TXT;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use parent 'Zonemaster::LDNS::RR';
|
||
|
|
|
||
|
|
sub txtdata() {
|
||
|
|
my ($rr) = @_;
|
||
|
|
|
||
|
|
return join( "", map { substr($rr->rdf($_ - 1), 1) } 1..$rr->rd_count() );
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|
||
|
|
|
||
|
|
=head1 NAME
|
||
|
|
|
||
|
|
Zonemaster::LDNS::RR::TXT - Type TXT record
|
||
|
|
|
||
|
|
=head1 DESCRIPTION
|
||
|
|
|
||
|
|
A subclass of L<Zonemaster::LDNS::RR>, so it has all the methods of that class available in addition to the ones documented here.
|
||
|
|
|
||
|
|
=head1 METHODS
|
||
|
|
|
||
|
|
=over
|
||
|
|
|
||
|
|
=item txtdata()
|
||
|
|
|
||
|
|
Returns the concatenation of all the strings composing the data of the resource record.
|
||
|
|
|
||
|
|
For example, if a TXT resource record has the following presentation format:
|
||
|
|
|
||
|
|
txt.test.example. 3600 IN TXT "I " "am " "split up in " "lit" "tle pieces"
|
||
|
|
|
||
|
|
then C<txtdata()> returns the string C<"I am split up in little pieces">.
|
||
|
|
|
||
|
|
=back
|