File Coverage

blib/lib/FBP/KeyEvent.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::KeyEvent;
2              
3 4     4   2088 use Mouse::Role;
  4         5  
  4         42  
4              
5             our $VERSION = '0.41';
6              
7             has OnChar => (
8             is => 'ro',
9             isa => 'Str',
10             );
11              
12             has OnKeyDown => (
13             is => 'ro',
14             isa => 'Str',
15             );
16              
17             has OnKeyUp => (
18             is => 'ro',
19             isa => 'Str',
20             );
21              
22 4     4   1086 no Mouse::Role;
  4         7  
  4         16  
23              
24             1;