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

package Khonsu::Form::Field::Input;

use parent 'Khonsu::Form::Field';

use PDF::API2::Basic::PDF::Literal;
use PDF::API2::Basic::PDF::Utils;

sub configure {
	my ($self) = @_;
	$self->annotate->{FT} = PDFName('Tx');
	$self->annotate->{V} = do {
		my $s = PDFStr('');
		$s->{' isutf'} = PDFBool(1);
		$s;
	};
	$self->annotate->{DA} = PDFStr('0 0 0 reg /F3 11 Tf');
	$self->annotate->{DV} = $self->annotate->{V};

	$self->annotate->{Ff} = PDFNum(393216);
}


1;