File Coverage

blib/lib/Net/Whois/Object/Poem.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::Poem;
2              
3 1     1   73391 use strict;
  1         14  
  1         29  
4 1     1   5 use warnings;
  1         2  
  1         26  
5 1     1   5 use base qw/Net::Whois::Object/;
  1         2  
  1         569  
6              
7             #######################################################################################
8             # The following lines where auto-generated by 'perl whois_to_attribute.pl Poem'
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             # poem: [mandatory] [single] [primary/lookup key]
17             # descr: [optional] [multiple] [ ]
18             # form: [mandatory] [single] [inverse key]
19             # text: [mandatory] [multiple] [ ]
20             # author: [optional] [multiple] [inverse key]
21             # remarks: [optional] [multiple] [ ]
22             # notify: [optional] [multiple] [inverse key]
23             # mnt-by: [mandatory] [single] [inverse key]
24             # changed: [mandatory] [multiple] [ ]
25             # created: [generated] [single] [ ]
26             # last-modified: [generated] [single] [ ]
27             # source: [mandatory] [single] [ ]
28             #
29             # % This query was served by the RIPE Database Query Service version 1.79.2 (DB-4)
30             #
31             #
32             __PACKAGE__->attributes( 'primary', [ 'poem' ] );
33             __PACKAGE__->attributes( 'mandatory', [ 'poem', 'form', 'text', 'mnt_by', 'changed', 'source' ] );
34             __PACKAGE__->attributes( 'optional', [ 'descr', 'author', 'remarks', 'notify', 'created', 'last_modified' ] );
35             __PACKAGE__->attributes( 'single', [ 'poem', 'form', 'mnt_by', 'created', 'last_modified', 'source' ] );
36             __PACKAGE__->attributes( 'multiple', [ 'descr', 'text', 'author', 'remarks', 'notify', 'changed' ] );
37              
38             # End of auto-generated lines
39             #######################################################################################
40              
41             =head1 NAME
42              
43             Net::Whois::Object::Poem - an object representation of the RPSL Poem block
44              
45             =head1 DESCRIPTION
46              
47             The poem object contains a poem that is submitted by a user. This object is
48             included in the database to show that engineers do have a sense of humour.
49              
50             =head1 METHODS
51              
52             =head2 B
53              
54             Constructor for the Net::Whois::Object::Poem class
55              
56             =cut
57              
58             sub new {
59 1     1 1 4 my ( $class, @options ) = @_;
60              
61 1         4 my $self = bless {}, $class;
62 1         9 $self->_init(@options);
63              
64 1         3 return $self;
65             }
66              
67             =head2 B
68              
69             Accessor to the descr attribute.
70             Accepts an optional descr line to be added to the descr array,
71             always return the current descr array.
72              
73             =head2 B
74              
75             Accessor to the text attribute.
76             Accepts an optional text line to be added to the text array,
77             always return the current text array.
78              
79             =head2 B
80              
81             Accessor to the admin_c attribute.
82             Accepts an optional contact to be added to the admin_c array,
83             always return the current admin_c array.
84              
85             =head2 B
86              
87             Accessor to the author attribute.
88             Accepts an optional author to be added to the author array,
89             always return the current author array.
90              
91             =head2 B
92              
93             Accessor to the remarks attribute.
94             Accepts an optional remark to be added to the remarks array,
95             always return the current remarks array.
96              
97             =head2 B
98              
99             Accessor to the notify attribute.
100             Accepts an optional notify value to be added to the notify array,
101             always return the current notify array.
102              
103             =head2 B
104              
105             Accessor to the mnt_by attribute.
106             Accepts an optional mnt_by value to be added to the mnt_by array,
107             always return the current mnt_by array.
108              
109             =head2 B
110              
111             Accessor to the changed attribute.
112             Accepts an optional changed value to be added to the changed array,
113             always return the current changed array.
114              
115             =head2 B
116              
117             Accessor to the source attribute.
118             Accepts an optional source, always return the current source.
119              
120             =head2 B
121              
122             Accessor to the form attribute.
123             Accepts an optional form, always return the current form.
124             This attribute specifies the identifier of a registered poem type.
125              
126             =head2 B
127              
128             Accessor to the poem attribute.
129             Accepts an optional poem, always return the current poem.
130              
131             =cut
132              
133             1;