Select Code to Download

Select or download this

sub _apply_defaults {
   ...
...
   }
   ...
}

Select or download this

  my $pdf = PDF::API2->new( -file => "mytest.pdf" );
  my $page = $pdf->page();
...
     pdf => $pdf,
     page => $page,     # <---
    ...

Select or download this

        b => PDF::TextBlock::Font->new({
           pdf  => $pdf,
           font => $pdf->corefont( 'Helvetica-Bold',    -encoding => '
+latin1' ),
           fillcolor => '#ff0000',  # red
        }),

Select or download this

        href => PDF::TextBlock::Font->new({
           pdf  => $pdf,
           font => $pdf->corefont( 'Helvetica-Oblique',    -encoding =
+> 'latin1' ),
           fillcolor => '#0077ff',  # blue
        }),

Select or download this

        'href="http://www.omnihotels.com"' => PDF::TextBlock::Font->ne
+w({
           ...
        }),
        'href="http://www.foo.bar"' => ...,

Select or download this

$ diff -u TextBlock.pm.orig TextBlock.pm 
--- TextBlock.pm.orig   2009-07-13 18:45:27.000000000 +0200
...
 }