File Coverage

blib/lib/PDF/Make/Builder/Form/Field/Checkbox.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 27 28 96.4


line stmt bran cond sub pod time code
1             package PDF::Make::Builder::Form::Field::Checkbox;
2 42     42   219 use strict;
  42         63  
  42         1211  
3 42     42   160 use warnings;
  42         80  
  42         1607  
4 42     42   168 use Object::Proto;
  42         83  
  42         2690  
5              
6             BEGIN {
7 42     42   4567 Object::Proto::define('PDF::Make::Builder::Form::Field::Checkbox',
8             extends => 'PDF::Make::Builder::Form::Field',
9             'on_value:Str:default(Yes)',
10             );
11 42         8468 Object::Proto::import_accessors('PDF::Make::Builder::Form::Field::Checkbox');
12             }
13              
14             sub BUILD {
15 3     3 0 7 my ($self) = @_;
16             # Checkboxes: square, inline label, no background fill
17 3         11 $self->w(14);
18 3         6 $self->h(14);
19 3         8 $self->inline_label(1);
20 3         8 $self->border_colour('#666');
21 3         10 $self->bg_colour('#fff');
22             }
23              
24 2     2   16 sub _draws_own_chrome { 1 }
25              
26             sub _create_field {
27 3     3   9 my ($self, $doc, $name, $fx, $fy, $fw, $fh) = @_;
28 3         29 return PDF::Make::FieldPtr::checkbox($doc, $name, $fx, $fy, $fw, $fh, $self->on_value);
29             }
30              
31             1;
32              
33             __END__