File Coverage

blib/lib/FBP/MouseEvent.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package FBP::MouseEvent;
2              
3 4     4   2184 use Mouse::Role;
  4         7  
  4         20  
4              
5             our $VERSION = '0.41';
6              
7             has OnEnterWindow => (
8             is => 'ro',
9             isa => 'Str',
10             );
11              
12             has OnLeaveWindow => (
13             is => 'ro',
14             isa => 'Str',
15             );
16              
17             has OnLeftDClick => (
18             is => 'ro',
19             isa => 'Str',
20             );
21              
22             has OnLeftDown => (
23             is => 'ro',
24             isa => 'Str',
25             );
26              
27             has OnLeftUp => (
28             is => 'ro',
29             isa => 'Str',
30             );
31              
32             has OnMiddleDClick => (
33             is => 'ro',
34             isa => 'Str',
35             );
36              
37             has OnMiddleDown => (
38             is => 'ro',
39             isa => 'Str',
40             );
41              
42             has OnMiddleUp => (
43             is => 'ro',
44             isa => 'Str',
45             );
46              
47             has OnMotion => (
48             is => 'ro',
49             isa => 'Str',
50             );
51              
52             has OnMouseEvents => (
53             is => 'ro',
54             isa => 'Str',
55             );
56              
57             has OnMouseWheel => (
58             is => 'ro',
59             isa => 'Str',
60             );
61              
62             has OnRightDClick => (
63             is => 'ro',
64             isa => 'Str',
65             );
66              
67             has OnRightDown => (
68             is => 'ro',
69             isa => 'Str',
70             );
71              
72             has OnRightUp => (
73             is => 'ro',
74             isa => 'Str',
75             );
76              
77 4     4   1526 no Mouse::Role;
  4         7  
  4         17  
78              
79             1;