[Catalyst-commits] r11535 - in Catalyst-View-PDF-API2/trunk: . lib/Catalyst/View/PDF t

[ferz at dev.catalyst.perl.org]

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';