1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/perl
BEGIN { push @INC, '../lib'; }
use PDF::API2::Simple;
my $pdf = PDF::API2::Simple->new(
file => '02_links.pdf'
);
$pdf->add_font('Verdana');
$pdf->add_page();
$pdf->link( 'http://search.cpan.org', 'A Hyperlink',
x => ($pdf->width / 2),
y => ($pdf->height / 2),
align => 'left' );
$pdf->add_page();
$pdf->link( 'http://perlmonks.org', 'A fine link',
x => ($pdf->width / 2),
y => ($pdf->height / 2),
align => 'center' );
$pdf->add_page();
$pdf->link( 'http://pause.perl.org', 'Some other link',
x => ($pdf->width / 2),
y => ($pdf->height / 2),
align => 'right' );
$pdf->save();
|
