File Coverage

blib/lib/Net/Whois/Object/Limerick.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::Limerick;
2              
3 1     1   60869 use strict;
  1         11  
  1         24  
4 1     1   4 use warnings;
  1         2  
  1         22  
5 1     1   4 use base qw/Net::Whois::Object/;
  1         1  
  1         463  
6              
7             # RIPE: Deprecated
8             #
9             #
10             # limerick: [mandatory] [single] [primary/look-up key]
11             # descr: [optional] [multiple] [ ]
12             # text: [mandatory] [multiple] [ ]
13             # admin-c: [mandatory] [multiple] [inverse key]
14             # author: [mandatory] [multiple] [inverse key]
15             # remarks: [optional] [multiple] [ ]
16             # notify: [optional] [multiple] [inverse key]
17             # mnt-by: [mandatory] [multiple] [inverse key]
18             # changed: [mandatory] [multiple] [ ]
19             # source: [mandatory] [single] [ ]
20              
21             __PACKAGE__->attributes( 'primary', [ 'limerick' ] );
22             __PACKAGE__->attributes( 'mandatory', [ 'limerick', 'text', 'admin_c', 'author', 'mnt_by', 'changed', 'source' ] );
23             __PACKAGE__->attributes( 'optional', [ 'descr', 'remarks', 'notify' ] );
24             __PACKAGE__->attributes( 'single', [ 'limerick', 'source' ] );
25             __PACKAGE__->attributes( 'multiple', [ 'text', 'admin_c', 'author', 'mnt_by', 'changed', 'descr', 'remarks', 'notify' ] );
26              
27             =head1 NAME
28              
29             Net::Whois::Object::Limerick - an object representation of the RPSL Limerick block
30              
31             =head1 DESCRIPTION
32              
33             The limerick object represents a humorous poem that has five lines and
34             the rhyme scheme "aabba".
35              
36             =head1 METHODS
37              
38             =head2 B
39              
40             Constructor for the Net::Whois::Object::Limerick class
41              
42             =cut
43              
44             sub new {
45 1     1 1 3 my ( $class, @options ) = @_;
46              
47 1         4 my $self = bless {}, $class;
48 1         8 $self->_init(@options);
49              
50              
51 1         3 return $self;
52              
53             }
54              
55             =head2 B
56              
57             Accessor to the limerick attribute.
58             Accepts an optional value, always return the current limerick value.
59              
60             =head2 B
61              
62             Accessor to the descr attribute.
63             Accepts an optional descr to be added to the descr array,
64             always return the current descr array.
65              
66             =head2 B
67              
68             Accessor to the text attribute.
69             Accepts an optional text to be added to the text array,
70             always return the current text array.
71              
72             =head2 B
73              
74             Accessor to the admin_c attribute.
75             Accepts an optional contact to be added to the admin_c array,
76             always return the current admin_c array.
77              
78             =head2 B
79              
80             Accessor to the author attribute.
81             Accepts an optional author to be added to the author array,
82             always return the current author array.
83              
84             =head2 B
85              
86             Accessor to the remarks attribute.
87             Accepts an optional remark to be added to the remarks array,
88             always return the current remarks array.
89              
90             =head2 B
91              
92             Accessor to the notify attribute.
93             Accepts an optional notify value to be added to the notify array,
94             always return the current notify array.
95              
96             =head2 B
97              
98             Accessor to the mnt_by attribute.
99             Accepts an optional mnt_by value to be added to the mnt_by array,
100             always return the current mnt_by array.
101              
102             =head2 B
103              
104             Accessor to the changed attribute.
105             Accepts an optional changed value to be added to the changed array,
106             always return the current changed array.
107              
108             =head2 B
109              
110             Accessor to the source attribute.
111             Accepts an optional source, always return the current source.
112              
113             =cut
114              
115             1;