blib/lib/FBP/BitmapButton.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::BitmapButton; | ||||||
2 | |||||||
3 | 4 | 4 | 20 | use Mouse; | |||
4 | 7 | ||||||
4 | 24 | ||||||
4 | |||||||
5 | our $VERSION = '0.41'; | ||||||
6 | |||||||
7 | extends 'FBP::Control'; | ||||||
8 | |||||||
9 | has style => ( | ||||||
10 | is => 'ro', | ||||||
11 | isa => 'Str', | ||||||
12 | ); | ||||||
13 | |||||||
14 | has bitmap => ( | ||||||
15 | is => 'ro', | ||||||
16 | isa => 'Str', | ||||||
17 | ); | ||||||
18 | |||||||
19 | has disabled => ( | ||||||
20 | is => 'ro', | ||||||
21 | isa => 'Str', | ||||||
22 | ); | ||||||
23 | |||||||
24 | has selected => ( | ||||||
25 | is => 'ro', | ||||||
26 | isa => 'Str', | ||||||
27 | ); | ||||||
28 | |||||||
29 | has focus => ( | ||||||
30 | is => 'ro', | ||||||
31 | isa => 'Str', | ||||||
32 | ); | ||||||
33 | |||||||
34 | has hover => ( | ||||||
35 | is => 'ro', | ||||||
36 | isa => 'Str', | ||||||
37 | ); | ||||||
38 | |||||||
39 | has OnButtonClick => ( | ||||||
40 | is => 'ro', | ||||||
41 | isa => 'Str', | ||||||
42 | ); | ||||||
43 | |||||||
44 | 4 | 4 | 1562 | no Mouse; | |||
4 | 7 | ||||||
4 | 22 | ||||||
45 | __PACKAGE__->meta->make_immutable; | ||||||
46 | |||||||
47 | 1; |