File Coverage

blib/lib/PDF/Make/Obj.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package PDF::Make::Obj;
2              
3 4     4   3316 use strict;
  4         8  
  4         115  
4 4     4   11 use warnings;
  4         5  
  4         185  
5              
6             our $VERSION = '0.03';
7              
8             # Load XS code from PDF::Make
9 4     4   13 use PDF::Make ();
  4         6  
  4         304  
10              
11             # Export kind constants on request.
12             our @EXPORT_OK = qw(
13             KIND_NULL KIND_BOOL KIND_INT KIND_REAL KIND_NAME KIND_STR
14             KIND_ARRAY KIND_DICT KIND_STREAM KIND_REF
15             );
16             our %EXPORT_TAGS = (kinds => \@EXPORT_OK);
17              
18 4     4   17 use Exporter 'import';
  4         4  
  4         189  
19              
20             # Object kind constants matching pdfmake_kind_t enum.
21             use constant {
22 4         525 KIND_NULL => 0,
23             KIND_BOOL => 1,
24             KIND_INT => 2,
25             KIND_REAL => 3,
26             KIND_NAME => 4,
27             KIND_STR => 5,
28             KIND_ARRAY => 6,
29             KIND_DICT => 7,
30             KIND_STREAM => 8,
31             KIND_REF => 9,
32 4     4   14 };
  4         5  
33              
34             1;
35              
36             __END__