101 lines
2.1 KiB
Perl
101 lines
2.1 KiB
Perl
|
package Zonemaster::LDNS::RRList;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use overload '<=>' => \&do_compare, 'cmp' => \&do_compare, '""' => \&to_string;
|
||
|
|
|
||
|
|
sub do_compare {
|
||
|
|
my ( $self, $other, $swapped ) = @_;
|
||
|
|
|
||
|
|
return $self->compare( $other );
|
||
|
|
}
|
||
|
|
|
||
|
|
sub to_string {
|
||
|
|
my ( $self ) = @_;
|
||
|
|
|
||
|
|
return $self->string;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|
||
|
|
|
||
|
|
=head1 NAME
|
||
|
|
|
||
|
|
Zonemaster::LDNS::RRList - class representing lists of resource records.
|
||
|
|
|
||
|
|
=head1 SYNOPSIS
|
||
|
|
|
||
|
|
my $rrlist = Zonemaster::LDNS::RRList->new( $rrs_aref );
|
||
|
|
|
||
|
|
=head1 CLASS METHODS
|
||
|
|
|
||
|
|
=over
|
||
|
|
|
||
|
|
=item new()
|
||
|
|
|
||
|
|
Creates a new empty L<Zonemaster::LDNS::RRList> object.
|
||
|
|
|
||
|
|
=item new($rrs)
|
||
|
|
|
||
|
|
Creates a new L<Zonemaster::LDNS::RRList> object for the given resource records.
|
||
|
|
|
||
|
|
Takes a reference to an array of L<Zonemaster::LDNS::RR> objects.
|
||
|
|
|
||
|
|
Returns a L<Zonemaster::LDNS::RRList> object.
|
||
|
|
|
||
|
|
=back
|
||
|
|
|
||
|
|
=head1 INSTANCE METHODS
|
||
|
|
|
||
|
|
=over
|
||
|
|
|
||
|
|
=item count()
|
||
|
|
|
||
|
|
Returns the number of RRs in the list.
|
||
|
|
|
||
|
|
=item compare($other)
|
||
|
|
|
||
|
|
Compares two L<Zonemaster::LDNS::RRList>. The order of L<Zonemaster::LDNS::RR> objects in the list does not matter.
|
||
|
|
The TTL field is ignored, and the comparison of domain names is case insensitive.
|
||
|
|
|
||
|
|
Returns an integer, where 0 indicates equality.
|
||
|
|
|
||
|
|
=item get($pos)
|
||
|
|
|
||
|
|
my $rr = Zonemaster::LDNS::RRList->get( 0 );
|
||
|
|
|
||
|
|
Retrieves the RR in the given position from the list.
|
||
|
|
|
||
|
|
Takes an integer.
|
||
|
|
|
||
|
|
Returns a L<Zonemaster::LDNS::RR> object, or C<undef> if there was no RR.
|
||
|
|
|
||
|
|
=item push($rr)
|
||
|
|
|
||
|
|
Pushes an RR onto the list.
|
||
|
|
|
||
|
|
=item pop()
|
||
|
|
|
||
|
|
Pops an RR off the list.
|
||
|
|
|
||
|
|
=item is_rrset()
|
||
|
|
|
||
|
|
Returns true or false depending on if the list is an RRset or not.
|
||
|
|
|
||
|
|
Note that the underlying LDNS function appears to have a bug as the comparison of the owner name field is case sensitive. See https://github.com/NLnetLabs/ldns/pull/251.
|
||
|
|
|
||
|
|
=item string()
|
||
|
|
|
||
|
|
Returns a string with the list of RRs in presentation format.
|
||
|
|
|
||
|
|
=item do_compare($other)
|
||
|
|
|
||
|
|
Calls the XS C<compare> method with the arguments it needs, rather than the ones overloading gives.
|
||
|
|
|
||
|
|
=item to_string
|
||
|
|
|
||
|
|
Calls the XS C<string> method with the arguments it needs, rather than the ones overloading gives. Functionally identical to L<string()> from the
|
||
|
|
Perl level, except for being a tiny little bit slower.
|
||
|
|
|
||
|
|
=back
|