File Coverage

blib/lib/PDF/Make/Builder/Form/Field/Combo.pm
Criterion Covered Total %
statement 18 18 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 25 25 100.0


line stmt bran cond sub pod time code
1             package PDF::Make::Builder::Form::Field::Combo;
2 42     42   213 use strict;
  42         63  
  42         1309  
3 42     42   157 use warnings;
  42         83  
  42         1628  
4 42     42   176 use Object::Proto;
  42         78  
  42         2741  
5              
6             BEGIN {
7 42     42   4538 Object::Proto::define('PDF::Make::Builder::Form::Field::Combo',
8             extends => 'PDF::Make::Builder::Form::Field',
9             'options:ArrayRef:default([])',
10             );
11 42         8189 Object::Proto::import_accessors('PDF::Make::Builder::Form::Field::Combo');
12             }
13              
14             sub _create_field {
15 2     2   9 my ($self, $doc, $name, $fx, $fy, $fw, $fh) = @_;
16 2         39 my $field = PDF::Make::FieldPtr::combo($doc, $name, $fx, $fy, $fw, $fh);
17 2         6 my $opts = options $self;
18 2         6 for my $opt (@$opts) {
19 5 100       17 my ($val, $display) = ref $opt ? @$opt : ($opt, $opt);
20 5         34 $field->add_option($display, $val);
21             }
22 2         7 return $field;
23             }
24              
25             1;
26              
27             __END__