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	sub	pod	time	code
1					package Net::Whois::Object::Limerick;
2
3	1	1		58888	use strict;
	1			7
	1			23
4	1	1		4	use warnings;
	1			1
	1			21
5	1	1		4	use base qw/Net::Whois::Object/;
	1			1
	1			460
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	4	my ( $class, @options ) = @_;
46
47	1			3	my $self = bless {}, $class;
48	1			7	$self->_init(@options);
49
50
51	1			2	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;