File Coverage

blib/lib/FBP/Choice.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::Choice;
2              
3 4     4   17 use Mouse;
  4         9  
  4         20  
4              
5             our $VERSION = '0.41';
6              
7             extends 'FBP::ControlWithItems';
8              
9             has selection => (
10             is => 'ro',
11             isa => 'Int',
12             required => 1,
13             );
14              
15             has OnChoice => (
16             is => 'ro',
17             isa => 'Str',
18             );
19              
20 4     4   1171 no Mouse;
  4         7  
  4         16  
21             __PACKAGE__->meta->make_immutable;
22              
23             1;