File Coverage

blib/lib/FBP/Dialog.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::Dialog;
2              
3 4     4   22 use Mouse;
  4         6  
  4         24  
4              
5             our $VERSION = '0.41';
6              
7             extends 'FBP::Window';
8             with 'FBP::Form';
9             with 'FBP::TopLevelWindow';
10              
11             has style => (
12             is => 'ro',
13             isa => 'Str',
14             );
15              
16 4     4   1341 no Mouse;
  4         8  
  4         17  
17             __PACKAGE__->meta->make_immutable;
18              
19             1;