File Coverage

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