File Coverage

blib/lib/FBP/MenuBar.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::MenuBar;
2              
3 4     4   28 use Mouse;
  4         7  
  4         20  
4              
5             our $VERSION = '0.41';
6              
7             extends 'FBP::Window';
8             with 'FBP::Children';
9              
10             has label => (
11             is => 'ro',
12             isa => 'Str',
13             required => 1,
14             default => '',
15             );
16              
17             has style => (
18             is => 'ro',
19             isa => 'Str',
20             );
21              
22 4     4   1351 no Mouse;
  4         10  
  4         20  
23             __PACKAGE__->meta->make_immutable;
24              
25             1;