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
|
|
3
|
use strict; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
24
|
|
12
|
1
|
|
|
1
|
|
3
|
use vars qw(@ISA); |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
28
|
|
13
|
|
|
|
|
|
|
# no warnings qw(uninitialized); |
14
|
|
|
|
|
|
|
|
15
|
1
|
|
|
1
|
|
3
|
use Text::PDF::String; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
59
|
|
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
|
11
|
{ $_[0]->{'val'}; } |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
|