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


line stmt bran cond sub pod time code
1             package Net::Whois::Object::Response;
2              
3 1     1   75351 use strict;
  1         11  
  1         30  
4 1     1   5 use warnings;
  1         3  
  1         26  
5 1     1   5 use base qw/Net::Whois::Object/;
  1         2  
  1         561  
6              
7             __PACKAGE__->attributes( 'mandatory', [ 'response' ] );
8             __PACKAGE__->attributes( 'optional', [ 'comment' ] );
9             __PACKAGE__->attributes( 'single', [ 'response' ] );
10             __PACKAGE__->attributes( 'multiple', [ 'comment' ] );
11              
12              
13             =head1 NAME
14              
15             Net::Whois::Object::Response - an object representation of the RPSL Response block
16              
17             =head1 DESCRIPTION
18              
19             output starting with the % sign is either a server response code or
20             an informational message. A comment contains a white space after the
21             % sign, while server messages start right after the % sign. Please
22             see Appendix A2 "RIPE Database response codes and messages" for more
23             information.
24              
25             * An empty line ("\n\n") is an object delimiter.
26              
27             * Two empty lines mean the end of a server response.
28              
29             =head1 METHODS
30              
31             =head2 B
32              
33             Constructor for the Net::Whois::Object::Response class
34              
35             =cut
36              
37             sub new {
38 1     1 1 4 my ( $class, @options ) = @_;
39              
40 1         3 my $self = bless {}, $class;
41 1         9 $self->_init(@options);
42              
43 1         3 return $self;
44             }
45              
46             =head2 B
47              
48             Accessor to the response attribute.
49             Accepts an optional response, always return the current response.
50              
51             =head2 B
52              
53             Accessor to the comment attribute.
54             Accepts an optional comment, always return the current comment.
55              
56             =cut
57              
58             1;