File Coverage

blib/lib/PDF/Make/Builder/Form/Field/Text.pm
Criterion Covered Total %
statement 18 18 100.0
branch 4 6 66.6
condition n/a
subroutine 5 5 100.0
pod n/a
total 27 29 93.1


line stmt bran cond sub pod time code
1             package PDF::Make::Builder::Form::Field::Text;
2 42     42   226 use strict;
  42         84  
  42         1262  
3 42     42   145 use warnings;
  42         63  
  42         1540  
4 42     42   243 use Object::Proto;
  42         55  
  42         2691  
5              
6             BEGIN {
7 42     42   5121 Object::Proto::define('PDF::Make::Builder::Form::Field::Text',
8             extends => 'PDF::Make::Builder::Form::Field',
9             'multiline:Bool:default(0)',
10             'password:Bool:default(0)',
11             'max_length:Int',
12             );
13 42         8203 Object::Proto::import_accessors('PDF::Make::Builder::Form::Field::Text');
14             }
15              
16             sub _create_field {
17 11     11   30 my ($self, $doc, $name, $fx, $fy, $fw, $fh) = @_;
18 11         101 my $field = PDF::Make::FieldPtr::text($doc, $name, $fx, $fy, $fw, $fh);
19 11 100       39 $field->multiline if $self->multiline;
20 11 50       32 $field->password if $self->password;
21 11         28 my $ml = $self->max_length;
22 11 50       26 $field->set_max_len($ml) if defined $ml;
23 11         25 return $field;
24             }
25              
26             1;
27              
28             __END__