File Coverage

blib/lib/Khonsu/Form/Field/Input.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package Khonsu::Form::Field::Input;
2              
3 5     5   34 use parent 'Khonsu::Form::Field';
  5         11  
  5         27  
4              
5 5     5   220 use PDF::API2::Basic::PDF::Literal;
  5         12  
  5         110  
6 5     5   22 use PDF::API2::Basic::PDF::Utils;
  5         10  
  5         951  
7              
8             sub configure {
9 3     3 0 10 my ($self) = @_;
10 3         15 $self->annotate->{FT} = PDFName('Tx');
11 3         8 $self->annotate->{V} = do {
12 3         16 my $s = PDFStr('');
13 3         51 $s->{' isutf'} = PDFBool(1);
14 3         108 $s;
15             };
16 3         27 $self->annotate->{DA} = PDFStr('0 0 0 reg /F3 11 Tf');
17 3         15 $self->annotate->{DV} = $self->annotate->{V};
18              
19 3         23 $self->annotate->{Ff} = PDFNum(393216);
20             }
21              
22              
23             1;