removed debug shit

diff --git a/dist.ini b/dist.ini
index 81682cd..a411b48 100644 (file)
--- a/dist.ini
+++ b/dist.ini
@@ -10,6 +10,12 @@ copyright_holder = J. Shirley
 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
@@ -19,7 +25,3 @@ Email::Sender::Simple = 0.100110
 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

diff --git a/lib/Catalyst/View/Email/Template.pm b/lib/Catalyst/View/Email/Template.pm
index 280cf84..72c83a1 100644 (file)
--- a/lib/Catalyst/View/Email/Template.pm
+++ b/lib/Catalyst/View/Email/Template.pm
@@ -3,7 +3,6 @@ package Catalyst::View::Email::Template;
 use Moose;
 use Carp;
 use Scalar::Util qw/ blessed /;
-use Data::Dumper;
 extends 'Catalyst::View::Email';
 
 our $VERSION = '0.17';
@@ -221,7 +220,6 @@ sub generate_part {
             %{$c->stash},
         }
     );
-    warn "Email output: $output";
     if ( ref $output ) {
         croak $output->can('as_string') ? $output->as_string : $output;
     }
@@ -247,7 +245,6 @@ around 'process' => sub {
     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 @@ around 'process' => sub {
     $c->stash->{$stash_key}->{parts} ||= [];
     push @{ $c->stash->{$stash_key}->{parts} }, @parts;
     
-       warn "Stash: " . Dumper $c->stash;
     return $self->$orig($c);
 
 };

diff --git a/t/05template.t b/t/05template.t
index 8f9e5d8..ab5abe4 100644 (file)
--- a/t/05template.t
+++ b/t/05template.t
@@ -6,7 +6,6 @@ use Test::More;
 
 use Email::Sender::Simple;
 use FindBin;
-use Data::Dumper;
 use lib "$FindBin::Bin/lib";
 
 eval "use Catalyst::View::TT";

diff --git a/t/07mason.t b/t/07mason.t
index 1270746..bb773b3 100644 (file)
--- a/t/07mason.t
+++ b/t/07mason.t
@@ -16,19 +16,16 @@ if ( $@ ) {
 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');

diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm
index 134e429..8412eb2 100644 (file)
--- a/t/lib/TestApp.pm
+++ b/t/lib/TestApp.pm
@@ -1,7 +1,7 @@
 package # Hide from PAUSE
     TestApp;
 
-use Catalyst qw/ -Debug /;
+use Catalyst;
 use FindBin;
 
 TestApp->config(