File Coverage

blib/lib/Statocles/Event.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Statocles::Event;
2             our $VERSION = '0.086';
3             # ABSTRACT: Events objects for Statocles
4              
5             #pod =head1 EVENTS
6             #pod
7             #pod =head2 Statocles::Event::Pages
8             #pod
9             #pod An event with L<page objects|Statocles::Page>.
10             #pod
11             #pod =cut
12              
13             package Statocles::Event::Pages;
14              
15 59     59   22485 use Statocles::Base 'Class';
  59         162  
  59         497  
16             extends 'Beam::Event';
17              
18             #pod =attr pages
19             #pod
20             #pod An array of L<Statocles::Page> objects
21             #pod
22             #pod =cut
23              
24             has pages => (
25             is => 'ro',
26             isa => ArrayRef[ConsumerOf['Statocles::Page']],
27             required => 1,
28             );
29              
30             1;
31              
32             __END__
33              
34             =pod
35              
36             =encoding UTF-8
37              
38             =head1 NAME
39              
40             Statocles::Event - Events objects for Statocles
41              
42             =head1 VERSION
43              
44             version 0.086
45              
46             =head1 ATTRIBUTES
47              
48             =head2 pages
49              
50             An array of L<Statocles::Page> objects
51              
52             =head1 EVENTS
53              
54             =head2 Statocles::Event::Pages
55              
56             An event with L<page objects|Statocles::Page>.
57              
58             =head1 AUTHOR
59              
60             Doug Bell <preaction@cpan.org>
61              
62             =head1 COPYRIGHT AND LICENSE
63              
64             This software is copyright (c) 2016 by Doug Bell.
65              
66             This is free software; you can redistribute it and/or modify it under
67             the same terms as the Perl 5 programming language system itself.
68              
69             =cut