File Coverage

blib/lib/PDF/API2/Resource/PaperSizes.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 10 11 90.9


line stmt bran cond sub pod time code
1             package PDF::API2::Resource::PaperSizes;
2              
3 39     39   293 use strict;
  39         111  
  39         1325  
4 39     39   213 use warnings;
  39         93  
  39         6461  
5              
6             our $VERSION = '2.045'; # VERSION
7              
8             sub get_paper_sizes {
9             return (
10             # Metric sizes
11 39     39 0 1262 '4a' => [ 4760, 6716 ], # deprecated, non-standard name
12             '2a' => [ 3368, 4760 ], # deprecated, non-standard name
13             '4a0' => [ 4760, 6716 ],
14             '2a0' => [ 3368, 4760 ],
15             'a0' => [ 2380, 3368 ],
16             'a1' => [ 1684, 2380 ],
17             'a2' => [ 1190, 1684 ],
18             'a3' => [ 842, 1190 ],
19             'a4' => [ 595, 842 ],
20             'a5' => [ 421, 595 ],
21             'a6' => [ 297, 421 ],
22             '4b' => [ 5656, 8000 ], # deprecated, non-standard name
23             '2b' => [ 4000, 5656 ], # deprecated, non-standard name
24             '4b0' => [ 5656, 8000 ],
25             '2b0' => [ 4000, 5656 ],
26             'b0' => [ 2828, 4000 ],
27             'b1' => [ 2000, 2828 ],
28             'b2' => [ 1414, 2000 ],
29             'b3' => [ 1000, 1414 ],
30             'b4' => [ 707, 1000 ],
31             'b5' => [ 500, 707 ],
32             'b6' => [ 353, 500 ],
33              
34             # US sizes
35             'letter' => [ 612, 792 ],
36             'broadsheet' => [ 1296, 1584 ],
37             'ledger' => [ 1224, 792 ],
38             'tabloid' => [ 792, 1224 ],
39             'legal' => [ 612, 1008 ],
40             'executive' => [ 522, 756 ],
41              
42             # Other
43             '36x36' => [ 2592, 2592 ],
44             );
45             }
46              
47             1;