File Coverage

line	stmt	sub	pod	time	code
1					package Eve::Item;
2
3	2	2		2243	use parent qw(Eve::Class);
	2			3
	2			11
4
5	2	2		76	use strict;
	2			21
	2			57
6	2	2		8	use warnings;
	2			2
	2			38
7
8	2	2		10	use Eve::Exception;
	2			2
	2			103
9
10					=head1 NAME
11
12					B - a base class for item classes.
13
14					=head1 SYNOPSIS
15
16					package Eve::Item::Foo;
17
18					use parent qw(Eve::Item);
19
20					sub init {
21					my ($self, %arg_hash) = @_;
22					my $rest_hash = Eve::Support::arguments(
23					\%arg_hash, my $some_attribute);
24					$self->SUPER::init(%{$rest_hash});
25
26					$self->{'some_attribute'} = $some_attribute;
27					}
28
29					1;
30
31					my $foo = Eve::Item::Foo->new(
32					some_attribute => 'some value',
33					some_super_attribute => 'super value');
34
35					print $foo->some_attribute, $foo->some_super_attribute
36
37					=head1 DESCRIPTION
38
39					B is a base class for item classes. It is assumed to
40					represent the data part of an object.
41
42					=head1 METHODS
43
44					=head2 B
45
46					=head3 Arguments
47
48					=over 4
49
50					=item C
51
52					a C derivative object that needs to be compared with the
53					current one.
54
55					=back
56
57					=cut
58
59					sub eq {
60	2	2	1	36	Eve::Error::NotImplemented->throw();
61					}
62
63					=head1 SEE ALSO
64
65					=over 4
66
67					=item L
68
69					=item L
70
71					=back
72
73					=head1 LICENSE AND COPYRIGHT
74
75					Copyright 2012 Igor Zinovyev.
76
77					This program is free software; you can redistribute it and/or modify it
78					under the terms of either: the GNU General Public License as published
79					by the Free Software Foundation; or the Artistic License.
80
81					See http://dev.perl.org/licenses/ for more information.
82
83
84					=head1 AUTHOR
85
86					=over 4
87
88					=item L
89
90					=back
91
92					=cut
93
94					1;