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