blib/lib/FBP/TextCtrl.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::TextCtrl; | ||||||
2 | |||||||
3 | 4 | 4 | 25 | use Mouse; | |||
4 | 9 | ||||||
4 | 29 | ||||||
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 | 1778 | no Mouse; | |||
4 | 9 | ||||||
4 | 21 | ||||||
49 | __PACKAGE__->meta->make_immutable; | ||||||
50 | |||||||
51 | 1; |