File Coverage

blib/lib/Eve/Item/Entry.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Eve::Item::Entry;
2              
3 1     1   1679 use parent qw(Eve::Item);
  1         2  
  1         6  
4              
5 1     1   35 use strict;
  1         2  
  1         25  
6 1     1   4 use warnings;
  1         3  
  1         31  
7              
8             =head1 NAME
9              
10             B - a base class for workflow items.
11              
12             =head1 SYNOPSIS
13              
14             package Eve::Item::Entry::Foo;
15              
16             use parent qw(Eve::Item::Entry);
17              
18             sub init {
19             my ($self, %arg_hash) = @_;
20             my $rest_hash = Eve::Support::arguments(
21             \%arg_hash, my $some_attribute);
22             $self->SUPER::init(%{$rest_hash});
23              
24             $self->{'some_attribute'} = $some_attribute;
25             }
26              
27             1;
28              
29             my $foo = Eve::Item::Entry::Foo->new(
30             some_attribute => 'some value',
31             some_super_attribute => 'super value');
32              
33             print $foo->some_attribute, $foo->some_super_attribute
34              
35             =head1 DESCRIPTION
36              
37             B is a base class for timed and stateful data
38             items. It is primarily assumed to be used as a base for database row
39             representations.
40              
41             =head3 Constants
42              
43             =over 4
44              
45             =item STATUS_ACTIVE
46              
47             =back
48              
49             =cut
50              
51             use constant {
52 1         159 STATUS_ACTIVE => 1
53 1     1   5 };
  1         1  
54              
55             =head3 Attributes
56              
57             =over 4
58              
59             =item C
60              
61             =item C
62              
63             =item C
64              
65             =item C
66              
67             =back
68              
69             =head3 Constructor arguments
70              
71             The same as the attributes described above.
72              
73             =head1 METHODS
74              
75             =head2 B
76              
77             =cut
78              
79             sub init {
80 3     3 1 9 my ($self, %arg_hash) = @_;
81 3         14 my $arg_hash = Eve::Support::arguments(
82             \%arg_hash, my ($id, $created, $modified, $status));
83              
84 3         80 $self->{'id'} = $id;
85 3         5 $self->{'created'} = $created;
86 3         5 $self->{'modified'} = $modified;
87 3         4 $self->{'status'} = $status;
88              
89 3         6 return;
90             }
91              
92             =head1 SEE ALSO
93              
94             =over 4
95              
96             =item L
97              
98             =back
99              
100             =head1 LICENSE AND COPYRIGHT
101              
102             Copyright 2012 Igor Zinovyev.
103              
104             This program is free software; you can redistribute it and/or modify it
105             under the terms of either: the GNU General Public License as published
106             by the Free Software Foundation; or the Artistic License.
107              
108             See http://dev.perl.org/licenses/ for more information.
109              
110              
111             =head1 AUTHOR
112              
113             =over 4
114              
115             =item L
116              
117             =back
118              
119             =cut
120              
121             1;