File Coverage

blib/lib/Net/Whois/Object/PoeticForm.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::PoeticForm;
2              
3 1     1   83551 use strict;
  1         12  
  1         32  
4 1     1   6 use warnings;
  1         2  
  1         36  
5 1     1   6 use base qw/Net::Whois::Object/;
  1         1  
  1         662  
6              
7             #######################################################################################
8             # The following lines where auto-generated by 'perl whois_to_attribute.pl PoeticForm'
9              
10             # % This is the RIPE Database query service.
11             # % The objects are in RPSL format.
12             # %
13             # % The RIPE Database is subject to Terms and Conditions.
14             # % See http://www.ripe.net/db/support/db-terms-conditions.pdf
15             #
16             # poetic-form: [mandatory] [single] [primary/lookup key]
17             # descr: [optional] [multiple] [ ]
18             # admin-c: [mandatory] [multiple] [inverse key]
19             # remarks: [optional] [multiple] [ ]
20             # notify: [optional] [multiple] [inverse key]
21             # mnt-by: [mandatory] [multiple] [inverse key]
22             # created: [generated] [single] [ ]
23             # last-modified: [generated] [single] [ ]
24             # source: [mandatory] [single] [ ]
25             #
26             # % This query was served by the RIPE Database Query Service version 1.99 (ANGUS)
27             #
28             #
29             __PACKAGE__->attributes( 'primary', [ 'poetic_form' ] );
30             __PACKAGE__->attributes( 'mandatory', [ 'poetic_form', 'admin_c', 'mnt_by', 'source' ] );
31             __PACKAGE__->attributes( 'optional', [ 'descr', 'remarks', 'notify', 'created', 'last_modified' ] );
32             __PACKAGE__->attributes( 'single', [ 'poetic_form', 'created', 'last_modified', 'source' ] );
33             __PACKAGE__->attributes( 'multiple', [ 'descr', 'admin_c', 'remarks', 'notify', 'mnt_by' ] );
34              
35             # End of auto-generated lines
36             #######################################################################################
37              
38             =head1 NAME
39              
40             Net::Whois::Object::PoeticForm - an object representation of the RPSL PoeticForm block
41              
42             =head1 DESCRIPTION
43              
44             The poetic_form object contains a poetic_form that is submitted by a user. This object is
45             included in the database to show that engineers do have a sense of humour.
46              
47             =head1 METHODS
48              
49             =head2 B
50              
51             Constructor for the Net::Whois::Object::PoeticForm class
52              
53             =cut
54              
55             sub new {
56 1     1 1 4 my ( $class, @options ) = @_;
57              
58 1         2 my $self = bless {}, $class;
59 1         8 $self->_init(@options);
60              
61 1         3 return $self;
62             }
63              
64             =head2 B
65              
66             Accessor to the poetic_form attribute.
67             Accepts an optional poetic_form, always return the current poetic_form.
68              
69             =head2 B
70              
71             Accessor to the descr attribute.
72             Accepts an optional descr line to be added to the descr array,
73             always return the current descr array.
74              
75             =head2 B
76              
77             Accessor to the admin_c attribute.
78             Accepts an optional contact to be added to the admin_c array,
79             always return the current admin_c array.
80              
81             =head2 B
82              
83             Accessor to the remarks attribute.
84             Accepts an optional remark to be added to the remarks array,
85             always return the current remarks array.
86              
87             =head2 B
88              
89             Accessor to the notify attribute.
90             Accepts an optional notify value to be added to the notify array,
91             always return the current notify array.
92              
93             =head2 B
94              
95             Accessor to the mnt_by attribute.
96             Accepts an optional mnt_by value to be added to the mnt_by array,
97             always return the current mnt_by array.
98              
99             =head2 B
100              
101             Accessor to the changed attribute.
102             Accepts an optional changed value to be added to the changed array,
103             always return the current changed array.
104              
105             =head2 B
106              
107             Accessor to the source attribute.
108             Accepts an optional source, always return the current source.
109              
110             =cut
111              
112             1;