File Coverage

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;