File Coverage

blib/lib/Net/Whois/Object/Response.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	18	18	100.0

package Net::Whois::Object::Response;

use strict;
use warnings;
use base qw/Net::Whois::Object/;

__PACKAGE__->attributes( 'mandatory',   [ 'response' ] );
__PACKAGE__->attributes( 'optional',    [ 'comment' ] );
__PACKAGE__->attributes( 'single',      [ 'response' ] );
__PACKAGE__->attributes( 'multiple',    [ 'comment' ] );


=head1 NAME

Net::Whois::Object::Response - an object representation of the RPSL Response block

=head1 DESCRIPTION

output starting with the % sign is either a server response code or
an informational message. A comment contains a white space after the
% sign, while server messages start right after the % sign. Please
see Appendix A2 "RIPE Database response codes and messages" for more
information.

* An empty line ("\n\n") is an object delimiter.

* Two empty lines mean the end of a server response.

=head1 METHODS

=head2 B

Constructor for the Net::Whois::Object::Response class

=cut

sub new {
    my ( $class, @options ) = @_;

    my $self = bless {}, $class;
    $self->_init(@options);

    return $self;
}

=head2 B

Accessor to the response attribute.
Accepts an optional response, always return the current response.

=head2 B

Accessor to the comment attribute.
Accepts an optional comment, always return the current comment.

=cut

1;