@@ -3,6 +3,7 @@ MANIFEST.SKIP Makefile.PL README CHANGES +TODO lib/PDF/Create.pm lib/PDF/Create/Outline.pm lib/PDF/Create/Page.pm @@ -11,4 +12,10 @@ lib/PDF/Image/JPEGImage.pm sample.pl pdf-logo.gif pdf-logo.jpg -t/minimal.t +t/1-simple.t +t/2-jpeg.t +t/pdf-logo.jpg +t/3-gif.t +t/pdf-logo.gif +t/4-graphics.t +t/5-complex.t MANIFEST @@ -901,8 +901,8 @@ use PDF::Create; my $pdf = new PDF::Create('filename' => 'mypdf.pdf', 'Version' => 1.2, 'PageMode' => 'UseOutlines', - 'Author' => 'Fabien Tassin', - 'Title' => 'My title', + 'Author' => 'John Doe', + 'Title' => 'My Title', 'CreationDate' => [ localtime ], ); # add a A4 sized page @@ -939,7 +939,7 @@ $toc->new_outline('Title' => 'Section 3'); $pdf->new_outline('Title' => 'Summary'); # Add something to the first page -$page->stringc($f1, 20, 306, 300, 'by Fabien Tassin <fta@sofaraway.org>'); +$page->stringc($f1, 20, 306, 300, 'by John Doe <john.doe@example.com>'); # Add the missing PDF objects and a the footer then close the file $pdf->close; @@ -972,9 +972,7 @@ This will create an empty PDF structure. A lot of attributes can be used: - filename: destination file that will contain the resulting - PDF or ... - - - fh: ... an already opened filehandle + PDF or an already opened filehandle or '-' for stdout. - Version: can be 1.0 to 1.3 (default: 1.2) @@ -1013,7 +1011,7 @@ Example: my $pdf = new PDF::Create('filename' => 'mypdf.pdf', 'Version' => 1.2, 'PageMode' => 'UseOutlines', - 'Author' => 'Fabien Tassin', + 'Author' => 'John Doe', 'Title' => 'My title', 'CreationDate' => [ localtime ], ); lib/PDF/Create.pm @@ -3,26 +3,25 @@ # sample PDF::Create usage # -BEGIN { unshift @INC, "lib", "../lib" } use strict; use PDF::Create; my $pdf = new PDF::Create('filename' => 'sample.pdf', - 'Version' => 1.2, - 'PageMode' => 'UseOutlines', - 'Author' => 'Fabien Tassin', - 'Title' => 'Sample Document', + 'Version' => 1.2, + 'PageMode' => 'UseOutlines', + 'Author' => 'John Doe', + 'Title' => 'Sample Document', ); my $root = $pdf->new_page('MediaBox' => $pdf->get_page_size('a4')); # Prepare 2 fonts my $f1 = $pdf->font('Subtype' => 'Type1', - 'Encoding' => 'WinAnsiEncoding', + 'Encoding' => 'WinAnsiEncoding', 'BaseFont' => 'Helvetica'); my $f2 = $pdf->font('Subtype' => 'Type1', - 'Encoding' => 'WinAnsiEncoding', - 'BaseFont' => 'Helvetica-Bold'); + 'Encoding' => 'WinAnsiEncoding', + 'BaseFont' => 'Helvetica-Bold'); # Prepare a Table of Content my $toc = $pdf->new_outline('Title' => 'Sample Document'); sample.pl sample.pdf t/minimal.t 2b50205e83e7d8580070217bdf3d64228e158995 Markus Baertschi markus@markus.org http://github.com/markusb/pdf-create/commit/90f37cec747e8a09cc0fe6a2ab8d36f729943e3c 90f37cec747e8a09cc0fe6a2ab8d36f729943e3c 2008-05-20T08:18:40-07:00 2008-05-20T08:18:40-07:00 Cleaned up samples and comments d8809f80c5f30f4db2e2afba61f0cbd2e8ed11c6 Markus Baertschi markus@markus.org