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