File Coverage

blib/lib/SyForm/CommonRole/EventHTML.pm
Criterion Covered Total %
statement 4 4 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 6 100.0


line stmt bran cond sub pod time code
1             package SyForm::CommonRole::EventHTML;
2             BEGIN {
3 7     7   15270 $SyForm::CommonRole::EventHTML::AUTHORITY = 'cpan:GETTY';
4             }
5             # ABSTRACT: Standard role for objects with HTML event attributes
6             $SyForm::CommonRole::EventHTML::VERSION = '0.103';
7 7     7   74 use Moo::Role;
  7         17  
  7         42  
8              
9             our @events = qw(
10             afterprint
11             beforeprint
12             beforeunload
13             error
14             haschange
15             load
16             message
17             offline
18             online
19             pagehide
20             pageshow
21             popstate
22             redo
23             resize
24             storage
25             undo
26             unload
27              
28             blur
29             change
30             contextmenu
31             focus
32             formchange
33             forminput
34             input
35             invalid
36             reset
37             select
38             submit
39              
40             keydown
41             keypress
42             keyup
43              
44             click
45             dblclick
46             drag
47             dragend
48             dragenter
49             dragleave
50             dragover
51             dragstart
52             drop
53             mousedown
54             mousemove
55             mouseout
56             mouseover
57             mouseup
58             mousewheel
59             scroll
60              
61             abort
62             canplay
63             canplaythrough
64             durationchange
65             emptied
66             ended
67             loadeddata
68             loadedmetadata
69             loadstart
70             pause
71             play
72             playing
73             progress
74             ratechange
75             readystatechange
76             seeked
77             seeking
78             stalled
79             suspend
80             timeupdate
81             volumechange
82             waiting
83             );
84              
85             our @attributes = map { 'on'.$_ } @events;
86              
87             for my $attribute (@attributes) {
88             has $attribute => (
89             is => 'ro',
90             predicate => 1,
91             );
92             }
93              
94             1;
95              
96             __END__
97              
98             =pod
99              
100             =head1 NAME
101              
102             SyForm::CommonRole::EventHTML - Standard role for objects with HTML event attributes
103              
104             =head1 VERSION
105              
106             version 0.103
107              
108             =head1 AUTHOR
109              
110             Torsten Raudssus <torsten@raudss.us>
111              
112             =head1 COPYRIGHT AND LICENSE
113              
114             This software is copyright (c) 2014 by Torsten Raudssus.
115              
116             This is free software; you can redistribute it and/or modify it under
117             the same terms as the Perl 5 programming language system itself.
118              
119             =cut