File Coverage

blib/lib/FBP/Gauge.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::Gauge;
2              
3 4     4   17 use Mouse;
  4         9  
  4         24  
4              
5             our $VERSION = '0.41';
6              
7             extends 'FBP::Control';
8              
9              
10              
11              
12              
13             ######################################################################
14             # Properties
15              
16             has value => (
17             is => 'ro',
18             isa => 'Int',
19             );
20              
21             has range => (
22             is => 'ro',
23             isa => 'Int',
24             );
25              
26             has style => (
27             is => 'ro',
28             isa => 'Str',
29             );
30              
31 4     4   1324 no Mouse;
  4         8  
  4         15  
32             __PACKAGE__->meta->make_immutable;
33              
34             1;