File Coverage

blib/lib/PDF/API2/Resource/XObject/Form/Hybrid.pm
Criterion Covered Total %
statement 45 45 100.0
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod 2 2 100.0
total 56 57 98.2


line stmt bran cond sub pod time code
1             package PDF::API2::Resource::XObject::Form::Hybrid;
2              
3 38     38   326 use base qw(PDF::API2::Content PDF::API2::Resource::XObject::Form);
  38         112  
  38         19673  
4              
5 38     38   302 use strict;
  38         108  
  38         744  
6 38     38   198 use warnings;
  38         90  
  38         1430  
7              
8             our $VERSION = '2.044'; # VERSION
9              
10 38     38   221 use PDF::API2::Basic::PDF::Dict;
  38         100  
  38         704  
11 38     38   201 use PDF::API2::Basic::PDF::Utils;
  38         99  
  38         2636  
12 38     38   245 use PDF::API2::Resource::XObject::Form;
  38         109  
  38         11270  
13              
14             sub new {
15 10     10 1 50 my $self = PDF::API2::Resource::XObject::Form::new(@_);
16              
17 10         41 $self->{' stream'} = '';
18 10         27 $self->{' poststream'} = '';
19 10         28 $self->{' font'} = undef;
20 10         25 $self->{' fontsize'} = 0;
21 10         22 $self->{' charspace'} = 0;
22 10         25 $self->{' hscale'} = 100;
23 10         31 $self->{' wordspace'} = 0;
24 10         20 $self->{' leading'} = 0;
25 10         37 $self->{' rise'} = 0;
26 10         27 $self->{' render'} = 0;
27 10         38 $self->{' matrix'} = [1, 0, 0, 1, 0, 0];
28 10         25 $self->{' fillcolor'} = [0];
29 10         31 $self->{' strokecolor'} = [0];
30 10         38 $self->{' translate'} = [0, 0];
31 10         31 $self->{' scale'} = [1, 1];
32 10         39 $self->{' skew'} = [0, 0];
33 10         24 $self->{' rotate'} = 0;
34 10         23 $self->{' apiistext'} = 0;
35              
36 10         40 $self->{'Resources'} = PDFDict();
37 10         36 $self->{'Resources'}->{'ProcSet'} = PDFArray(map { PDFName($_) } qw(PDF Text ImageB ImageC ImageI));
  50         103  
38              
39 10         84 $self->compressFlate();
40              
41 10         28 return $self;
42             }
43              
44             sub outobjdeep {
45 8     8 1 18 my $self = shift();
46              
47 8 50       84 $self->textend() unless $self->{' nofilt'};
48              
49 8         27 return PDF::API2::Basic::PDF::Dict::outobjdeep($self, @_);
50             }
51              
52             1;