File Coverage

blib/lib/PDF/Make/Builder/Form/Field/Radio.pm
Criterion Covered Total %
statement 21 21 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 27 28 96.4


line stmt bran cond sub pod time code
1             package PDF::Make::Builder::Form::Field::Radio;
2 42     42   225 use strict;
  42         68  
  42         1272  
3 42     42   166 use warnings;
  42         67  
  42         1644  
4 42     42   156 use Object::Proto;
  42         56  
  42         2615  
5              
6             BEGIN {
7 42     42   4996 Object::Proto::define('PDF::Make::Builder::Form::Field::Radio',
8             extends => 'PDF::Make::Builder::Form::Field',
9             'options:ArrayRef:default([])',
10             'spacing:Num:default(10)',
11             );
12 42         8950 Object::Proto::import_accessors('PDF::Make::Builder::Form::Field::Radio');
13             }
14              
15             sub _create_field {
16 3     3   7 my ($self, $doc, $name, $fx, $fy, $fw, $fh) = @_;
17 3         27 my $group = PDF::Make::FieldPtr::radio_group($doc, $name);
18 3         4 my $opts = options $self;
19 3         3 my $ox = $fx;
20 3         4 my $sp = spacing $self;
21 3         6 for my $opt (@$opts) {
22 9 50       12 my $val = ref $opt ? $opt->[0] : $opt;
23 9         26 PDF::Make::FieldPtr::add_radio_option($group, $ox, $fy, $fh, $fh, $val);
24 9         16 $ox += $fh + $sp;
25             }
26 3         4 return $group;
27             }
28              
29             1;
30              
31             __END__