[Catalyst-commits] r12680 - in Catalyst-View-Email/trunk: . lib/Catalyst/View/Email t t/lib

dhoss at dev.catalyst.perl.org dhoss at dev.catalyst.perl.org
Mon Jan 18 21:40:21 GMT 2010


Author: dhoss
Date: 2010-01-18 21:40:21 +0000 (Mon, 18 Jan 2010)
New Revision: 12680

Modified:
   Catalyst-View-Email/trunk/dist.ini
   Catalyst-View-Email/trunk/lib/Catalyst/View/Email/Template.pm
   Catalyst-View-Email/trunk/t/05template.t
   Catalyst-View-Email/trunk/t/07mason.t
   Catalyst-View-Email/trunk/t/lib/TestApp.pm
Log:
removed debug shit

Modified: Catalyst-View-Email/trunk/dist.ini
===================================================================
--- Catalyst-View-Email/trunk/dist.ini	2010-01-18 21:29:45 UTC (rev 12679)
+++ Catalyst-View-Email/trunk/dist.ini	2010-01-18 21:40:21 UTC (rev 12680)
@@ -10,7 +10,13 @@
 repository = http://dev.catalyst.perl.org/repos/Catalyst/Catalyst-View-Email/0.10/
 
 
+[MetaRecommends]
+Catalyst::View::TT = 0.31
+Catalyst::View::Mason = 0.18
+MIME::Base64 = 3.08
+Authen::SASL = 2.13
 
+
 [Prereq]
 Catalyst = 5.7
 Moose    = 0.93
@@ -19,7 +25,3 @@
 Email::MIME = 1.859
 Email::MIME::Creator = 1.455
 Email::Send::Test = 2.198
-Catalyst::View::TT = 0.31
-Catalyst::View::Mason = 0.18
-MIME::Base64 = 3.08
-Authen::SASL = 2.13

Modified: Catalyst-View-Email/trunk/lib/Catalyst/View/Email/Template.pm
===================================================================
--- Catalyst-View-Email/trunk/lib/Catalyst/View/Email/Template.pm	2010-01-18 21:29:45 UTC (rev 12679)
+++ Catalyst-View-Email/trunk/lib/Catalyst/View/Email/Template.pm	2010-01-18 21:40:21 UTC (rev 12680)
@@ -3,7 +3,6 @@
 use Moose;
 use Carp;
 use Scalar::Util qw/ blessed /;
-use Data::Dumper;
 extends 'Catalyst::View::Email';
 
 our $VERSION = '0.17';
@@ -221,7 +220,6 @@
             %{$c->stash},
         }
     );
-    warn "Email output: $output";
     if ( ref $output ) {
         croak $output->can('as_string') ? $output->as_string : $output;
     }
@@ -247,7 +245,6 @@
     return $self->$orig( $c, @args )
       unless $c->stash->{$stash_key}->{template}
           or $c->stash->{$stash_key}->{templates};
-    warn "Stash: " . $stash_key;
 
     # in case of the simple api only one
     my @parts = ();
@@ -287,7 +284,6 @@
     $c->stash->{$stash_key}->{parts} ||= [];
     push @{ $c->stash->{$stash_key}->{parts} }, @parts;
     
-	warn "Stash: " . Dumper $c->stash;
     return $self->$orig($c);
 
 };

Modified: Catalyst-View-Email/trunk/t/05template.t
===================================================================
--- Catalyst-View-Email/trunk/t/05template.t	2010-01-18 21:29:45 UTC (rev 12679)
+++ Catalyst-View-Email/trunk/t/05template.t	2010-01-18 21:40:21 UTC (rev 12680)
@@ -6,7 +6,6 @@
 
 use Email::Sender::Simple;
 use FindBin;
-use Data::Dumper;
 use lib "$FindBin::Bin/lib";
 
 eval "use Catalyst::View::TT";

Modified: Catalyst-View-Email/trunk/t/07mason.t
===================================================================
--- Catalyst-View-Email/trunk/t/07mason.t	2010-01-18 21:29:45 UTC (rev 12679)
+++ Catalyst-View-Email/trunk/t/07mason.t	2010-01-18 21:40:21 UTC (rev 12680)
@@ -16,19 +16,16 @@
 use_ok('Catalyst::Test', 'TestApp');
 
 TestApp->config->{default_view} = 'Mason';
-use Data::Dumper;
 my $response;
 my $time = time;
 ok( ( $response = request("/mason_email?time=$time"))->is_success,
     'request ok' );
 like( $response->content, qr/Mason Email Ok/, 'controller says ok' );
 my @emails = Email::Sender::Simple->default_transport->deliveries;
-#warn "Email: " . Dumper @emails;
 cmp_ok(@emails, '==', 1, 'got emails');
 isa_ok( $emails[0]->{'email'}, 'Email::Abstract', 'email is ok' );
 my @parts = $emails[0]->{'email'}[0]->parts;
 cmp_ok(@parts, '==', 2, 'got parts');
-#warn "Parts: " . Dumper @parts;
 is($parts[0]->content_type, 'text/plain', 'text/plain ok');
 like($parts[0]->body, qr/test-email\@example.com on $time/, 'got content back');
 is($parts[1]->content_type, 'text/html', 'text/html ok');

Modified: Catalyst-View-Email/trunk/t/lib/TestApp.pm
===================================================================
--- Catalyst-View-Email/trunk/t/lib/TestApp.pm	2010-01-18 21:29:45 UTC (rev 12679)
+++ Catalyst-View-Email/trunk/t/lib/TestApp.pm	2010-01-18 21:40:21 UTC (rev 12680)
@@ -1,7 +1,7 @@
 package # Hide from PAUSE
     TestApp;
 
-use Catalyst qw/ -Debug /;
+use Catalyst;
 use FindBin;
 
 TestApp->config(




More information about the Catalyst-commits mailing list