From: Devin Austin Date: Mon, 18 Jan 2010 21:40:21 +0000 (+0000) Subject: removed debug shit X-Git-Tag: v0.19~2 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e2a74bfadcd14fc4ac5f22750e6783dfba9718d;hp=5602558957b6dfe85028b0f500a1b3c29c83a207;p=catagits%2FCatalyst-View-Email.git removed debug shit --- diff --git a/dist.ini b/dist.ini index 81682cd..a411b48 100644 --- 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 --- 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 --- 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 --- 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 --- 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(