[Catalyst-commits] r11535 - in Catalyst-View-PDF-API2/trunk: .
lib/Catalyst/View/PDF t
ferz at dev.catalyst.perl.org
ferz at dev.catalyst.perl.org
Thu Oct 15 06:49:20 GMT 2009
Author: ferz
Date: 2009-10-15 06:49:20 +0000 (Thu, 15 Oct 2009)
New Revision: 11535
Modified:
Catalyst-View-PDF-API2/trunk/Changes
Catalyst-View-PDF-API2/trunk/lib/Catalyst/View/PDF/API2.pm
Catalyst-View-PDF-API2/trunk/t/00-load.t
Catalyst-View-PDF-API2/trunk/t/01-livetest.t
Log:
Fixed 2 tests.
Modified: Catalyst-View-PDF-API2/trunk/Changes
===================================================================
--- Catalyst-View-PDF-API2/trunk/Changes 2009-10-15 03:08:54 UTC (rev 11534)
+++ Catalyst-View-PDF-API2/trunk/Changes 2009-10-15 06:49:20 UTC (rev 11535)
@@ -1,5 +1,8 @@
Revision history for Catalyst-View-PDF-API2
+0.02 2009-10-25
+ Fixed test with use_ok.
+
0.01 2009-08-27
First version, to be release.
Modified: Catalyst-View-PDF-API2/trunk/lib/Catalyst/View/PDF/API2.pm
===================================================================
--- Catalyst-View-PDF-API2/trunk/lib/Catalyst/View/PDF/API2.pm 2009-10-15 03:08:54 UTC (rev 11534)
+++ Catalyst-View-PDF-API2/trunk/lib/Catalyst/View/PDF/API2.pm 2009-10-15 06:49:20 UTC (rev 11535)
@@ -14,11 +14,11 @@
=head1 VERSION
-Version 0.01
+Version 0.02
=cut
-our $VERSION = '0.01';
+our $VERSION = '0.02';
=head1 SYNOPSIS
@@ -71,7 +71,7 @@
[% page.textlabel(100,y,$f1,20,item) %] ###### to fix
[% y = y - 13 %]
[% END %]
-
+dav
Formatting can be defined using the Template Toolkit format plugin:
[% USE format %]
@@ -120,8 +120,6 @@
sub process {
my ($self, $c) = @_;
- $DB::single=1;
- $c->log->debug(__PACKAGE__ . ":" . __LINE__ . "process() chiamata");
my $pdf_filename = $c->stash->{pdf_filename} || (split '/',$c->req->path)[-1] || 'index.pdf';
$pdf_filename .= '.pdf' unless ($pdf_filename =~ /\.pdf$/i);
@@ -162,13 +160,12 @@
SEARCH: foreach my $path (@{$self->config->{INCLUDE_PATH}}) {
if (-e catfile($path,$c->stash->{pdf_template})) {
local $CWD = $path;
- $DB::single=1;
my $output = $self->render($c,\$template);
- $c->log->debug("render: $output");
+ $c->log->debug("render: $output") if ($self->config->{PDFAPI2_DEBUG});
last SEARCH;
}
$DB::single=1;
- $c->log->debug("pdf_template non trovato");
+ $c->log->debug("pdf_template non trovato") if ($self->config->{PDFAPI2_DEBUG});
}
my $pdfout = $c->stash->{pdf}->stringify;
@@ -216,10 +213,18 @@
=head1 SEE ALSO
-L<PDF::API2>
+L<PDF::API|http://search.cpan.org/~areibens/PDF-API2/lib/PDF/API2.pm>
NonSoLoSoft - L<http://www.nonsolosoft.com/>
+L<Catalyst::View::PDF::Reuse|http://search.cpan.org/~jonallen/Catalyst-View-PDF-Reuse/lib/Catalyst/View/PDF/Reuse.pm>
+
+=ACKNOWLEDGEMENTS
+
+To every Catalyst developer that has written this framework or its manuals and to any CPAN contributors.
+
+=cut
+
=head1 COPYRIGHT & LICENSE
Copyright (C) 2009 NonSoLoSoft
Modified: Catalyst-View-PDF-API2/trunk/t/00-load.t
===================================================================
--- Catalyst-View-PDF-API2/trunk/t/00-load.t 2009-10-15 03:08:54 UTC (rev 11534)
+++ Catalyst-View-PDF-API2/trunk/t/00-load.t 2009-10-15 06:49:20 UTC (rev 11535)
@@ -3,4 +3,4 @@
use strict;
use warnings;
use Test::More tests => 1;
-use ok 'Catalyst::View::PDF::API2';
+use_ok 'Catalyst::View::PDF::API2';
Modified: Catalyst-View-PDF-API2/trunk/t/01-livetest.t
===================================================================
--- Catalyst-View-PDF-API2/trunk/t/01-livetest.t 2009-10-15 03:08:54 UTC (rev 11534)
+++ Catalyst-View-PDF-API2/trunk/t/01-livetest.t 2009-10-15 06:49:20 UTC (rev 11535)
@@ -9,7 +9,7 @@
use lib "$Bin/lib";
# make sure testapp works
-use ok 'TestApp';
+use_ok 'TestApp';
# a live test against TestApp, the test application
use Test::WWW::Mechanize::Catalyst 'TestApp';
More information about the Catalyst-commits
mailing list