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

dhoss at dev.catalyst.perl.org dhoss at dev.catalyst.perl.org
Wed Jan 20 02:21:02 GMT 2010


Author: dhoss
Date: 2010-01-20 02:21:01 +0000 (Wed, 20 Jan 2010)
New Revision: 12702

Modified:
   Catalyst-View-Email/trunk/dist.ini
   Catalyst-View-Email/trunk/lib/Catalyst/View/Email.pm
Log:
reverted dist.ini to make mason and tt shit mandatory installs, flipped around some attrs in Email.pm, fixed docs

Modified: Catalyst-View-Email/trunk/dist.ini
===================================================================
--- Catalyst-View-Email/trunk/dist.ini	2010-01-20 01:47:57 UTC (rev 12701)
+++ Catalyst-View-Email/trunk/dist.ini	2010-01-20 02:21:01 UTC (rev 12702)
@@ -10,18 +10,15 @@
 repository = http://dev.catalyst.perl.org/repos/Catalyst/Catalyst-View-Email/0.10/
 
 
-[MetaRecommends]
+
+[Prereq]
 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
 parent   = 0.223
 Email::Sender::Simple = 0.100110
 Email::MIME = 1.859
 Email::MIME::Creator = 1.455
-Email::Send::Test = 2.198

Modified: Catalyst-View-Email/trunk/lib/Catalyst/View/Email.pm
===================================================================
--- Catalyst-View-Email/trunk/lib/Catalyst/View/Email.pm	2010-01-20 01:47:57 UTC (rev 12701)
+++ Catalyst-View-Email/trunk/lib/Catalyst/View/Email.pm	2010-01-20 02:21:01 UTC (rev 12702)
@@ -6,15 +6,16 @@
 use Encode qw(encode decode);
 use Email::Sender::Simple qw/ sendmail /;
 use Email::MIME::Creator;
+use Email::Sender::Transport;
 extends 'Catalyst::View';
 
 our $VERSION = '0.19';
 
-has 'mailer' => (
+has 'transport' => (
     is      => 'rw',
     isa     => 'Str',
     lazy    => 1,
-    default => sub { "sendmail" }
+    default => sub { }
 );
 
 has 'stash_key' => (
@@ -35,7 +36,7 @@
     is      => 'rw',
     isa     => 'HashRef',
     lazy    => 1,
-    default => sub { { mailer => shift->mailer } }
+    default => sub { { mailer => shift->transport } }
 );
 
 has 'content_type' => (
@@ -45,6 +46,13 @@
 	lazy    => 1,
 );
 
+has "_transport" => (
+    is      => 'rw',
+	isa     => 'Str',
+	default => sub {}
+	lazy    => 1,
+);
+
 =head1 NAME
 
 Catalyst::View::Email - Send Email from Catalyst
@@ -178,7 +186,7 @@
 
 =item new
 
-Validates the base config and creates the L<Email::Send> object for later use
+Validates the base config and creates the L<Email::Sender::Simple> object for later use
 by process.
 
 =cut




More information about the Catalyst-commits mailing list