Send emails to var/tmp/mail in development

metacpan · Jun 21, 2014 · 4d470f0 · 4d470f0
1 parent 43c78e5
commit 4d470f0
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/app.psgi b/app.psgi
@@ -1,5 +1,17 @@
+use strict;
+use warnings;
+
 use FindBin;
 use lib "$FindBin::RealBin/lib";
 
+if ( $ENV{PLACK_ENV} eq 'development' ) {
+
+    # In development send emails to a directory.
+    if ( !$ENV{EMAIL_SENDER_TRANSPORT} ) {
+        $ENV{EMAIL_SENDER_TRANSPORT}     = 'Maildir';
+        $ENV{EMAIL_SENDER_TRANSPORT_dir} = "$FindBin::RealBin/var/tmp/mail";
+    }
+}
+
 # The class has the Plack initialization and returns the app.
 require MetaCPAN::Server;