File Coverage

blib/lib/Text/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             package Text::PDF::Number;
2              
3             =head1 NAME
4              
5             Text::PDF::Number - Numbers in PDF. Inherits from L
6              
7             =head1 METHODS
8              
9             =cut
10              
11 1     1   4 use strict;
  1         1  
  1         24  
12 1     1   4 use vars qw(@ISA);
  1         1  
  1         47  
13             # no warnings qw(uninitialized);
14              
15 1     1   4 use Text::PDF::String;
  1         0  
  1         62  
16             @ISA = qw(Text::PDF::String);
17              
18              
19             =head2 $n->convert($str)
20              
21             Converts a string from PDF to internal, by doing nothing
22              
23             =cut
24              
25             sub convert
26 2     2 1 5 { return $_[1]; }
27              
28              
29             =head2 $n->as_pdf
30              
31             Converts a number to PDF format
32              
33             =cut
34              
35             sub as_pdf
36 7     7 1 15 { $_[0]->{'val'}; }
37              
38