File Coverage

blib/lib/PDF/Builder/Basic/PDF/Number.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             #=======================================================================
2             #
3             # THIS IS A REUSED PERL MODULE, FOR PROPER LICENCING TERMS SEE BELOW:
4             #
5             # Copyright Martin Hosken
6             #
7             # No warranty or expression of effectiveness, least of all regarding
8             # anyone's safety, is implied in this software or documentation.
9             #
10             # This specific module is licensed under the Perl Artistic License.
11             # Effective 28 January 2021, the original author and copyright holder,
12             # Martin Hosken, has given permission to use and redistribute this module
13             # under the MIT license.
14             #
15             #=======================================================================
16             package PDF::Builder::Basic::PDF::Number;
17              
18 41     41   259 use base 'PDF::Builder::Basic::PDF::String';
  41         75  
  41         3557  
19              
20 41     41   231 use strict;
  41         74  
  41         765  
21 41     41   163 use warnings;
  41         83  
  41         4380  
22              
23             our $VERSION = '3.024'; # VERSION
24             our $LAST_UPDATE = '3.024'; # manually update whenever code is changed
25              
26             =head1 NAME
27              
28             PDF::Builder::Basic::PDF::Number - Numbers in PDF. Inherits from L
29              
30             =head1 METHODS
31              
32             =over
33              
34             =item $n->convert($str)
35              
36             Converts a string from PDF to internal, by doing nothing
37              
38             =cut
39              
40             sub convert {
41 366     366 1 1081 return $_[1];
42             }
43              
44             =item $n->as_pdf()
45              
46             Converts a number to PDF format
47              
48             =cut
49              
50             sub as_pdf {
51 5261     5261 1 11544 return $_[0]->{'val'};
52             }
53              
54             =back
55              
56             =cut
57              
58             1;