—
—
—
—
—
—
—
—
—

              
package Net::RDAP::Base;
use Net::RDAP::Event;
use Net::RDAP::ID;
use Net::RDAP::Link;
use Net::RDAP::Notice;
use Net::RDAP::Object::Autnum;
use Net::RDAP::Object::Domain;
use Net::RDAP::Object::Entity;
use Net::RDAP::Object::IPNetwork;
use Net::RDAP::Object::Nameserver;
use Net::RDAP::Remark;
use Net::RDAP::Variant;
use strict;
use warnings;
#
# Constructor method. Expects a hashref as an argument.
#
sub new {
    my ($package, $args, $document_url, $parent) = @_;
    my %self = %{$args};
    $self{_parent} = $parent if ($parent);
    $self{_document_url} = $document_url if ($document_url);
    return bless(\%self, $package);
}
#
# Returns a (potentially empty) array of C<$class> objects
# generated from the hashrefs in C<$ref>, which is
# expected to be a reference to an array.
#
# This should not be used directly.
#
sub objects {
    my ($self, $class, $ref) = @_;
    my @list;
    my $document_url = $self->document_url;
    if (defined($ref) && 'ARRAY' eq ref($ref)) {
        foreach my $item (@{$ref}) {
            push(@list, $class->new($item, $document_url, $self));
        }
    }
    return @list;
}
HideShow 21 lines of Pod
=pod
=head1 NAME
Net::RDAP::Base - the base module for many L<Net::RDAP>:: modules.
=head1 DESCRIPTION
You don't use C<Net::RDAP::Base> directly, instead, various other
modules extend it.
=head1 METHODS
=head2 Language
    $lang = $object->lang;
Returns the language identifier for this object, or C<undef>.
=cut
sub lang { $_[0]->{'lang'} }
HideShow 10 lines of Pod
=pod
=head2 Links
    @links = $object->links;
Returns a (potentially empty) array of L<Net::RDAP::Link> objects.
=cut
sub links { $_[0]->objects('Net::RDAP::Link', $_[0]->{'links'}) }
HideShow 11 lines of Pod
=pod
=head2 "Self" Link
    $self = $object->self;
Returns a L<Net::RDAP::Link> object corresponding to the C<self>
link of this object (if one is available).
=cut
sub self { (grep { 'self' eq $_->rel } $_[0]->links)[0] }
HideShow 12 lines of Pod
=pod
=head2 DOCUMENT URL
    $url = $object->document_url;
This method returns a L<URI> object representing the URL of the document that
this object appears in. This is helpful when converting relative URLs (which
might appear in links) into absolute URLs.
=cut
sub document_url {
    my $self = shift;
    my $url = $self->{_document_url};
    return ($url->isa('URI') ? $url : URI->new($url)) if ($url);
}
HideShow 11 lines of Pod
=pod
=head2 PARENT OBJECT
    $parent = $object->parent;
Returns the object in which this object is embedded, or C<undef> if this object
is the topmost object in the RDAP response.
=cut
sub parent { $_[0]->{_parent} }
HideShow 10 lines of Pod
=pod
=head2 TOPMOST OBJECT
    $top = $object->top;
Returns the topmost object in the RDAP response.
=cut
sub top {
    my $self = shift;
    return $self->parent || $self;
}
HideShow 15 lines of Pod
=pod
=head2 OBJECT CHAIN
    @chain = $object->chain;
Returns an array containing the hierarchy of objects that enclose this object.
So for example, the registrar entity of a nameserver object of a domain name
will have a chain that looks like
C<[Net::RDAP::Object::Entity, Net::RDAP::Object::Nameserver, Net::RDAP::Object::Domain]>.
If the object is the topmost object of the RDAP response, the array will only
contain that object.
=cut
sub chain {
    my $self = shift;
    my $parent = $self->parent;
    if (!$parent) {
        return $self;
    } else {
        return ($self, $parent->chain);
    }
}
HideShow 10 lines of Pod
=pod
=head1 C<TO_JSON()>
C<Net::RDAP::Base> provides a C<TO_JSON()> so that any RDAP object can be
serialized back into JSON if your JSON serializer (L<JSON>, L<JSON::XS>, etc)
is configured with the C<convert_blessed> option.
=cut
sub TO_JSON {
    my $self = shift;
    my %hash = %{$self};
    delete($hash{_document_url});
    delete($hash{_parent});
    return \%hash;
}
HideShow 9 lines of Pod
=pod
=head1 COPYRIGHT
Copyright 2018-2023 CentralNic Ltd, 2024-2025 Gavin Brown. For licensing information,
please see the C<LICENSE> file in the L<Net::RDAP> distribution.
=cut
1;