File Coverage

blib/lib/FBP/RichTextCtrl.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::RichTextCtrl;
2              
3 4     4   22 use Mouse;
  4         6  
  4         22  
4              
5             our $VERSION = '0.41';
6              
7             extends 'FBP::Control';
8              
9             has value => (
10             is => 'ro',
11             isa => 'Str',
12             required => 1,
13             default => '',
14             );
15              
16             has style => (
17             is => 'ro',
18             isa => 'Str',
19             );
20              
21             has maxlength => (
22             is => 'ro',
23             isa => 'Int',
24             required => 1,
25             default => 0,
26             );
27              
28             has OnText => (
29             is => 'ro',
30             isa => 'Str',
31             );
32              
33             has OnTextEnter => (
34             is => 'ro',
35             isa => 'Str',
36             );
37              
38             has OnTextURL => (
39             is => 'ro',
40             isa => 'Str',
41             );
42              
43             has OnTextMaxLen => (
44             is => 'ro',
45             isa => 'Str',
46             );
47              
48 4     4   1523 no Mouse;
  4         7  
  4         16  
49             __PACKAGE__->meta->make_immutable;
50              
51             1;