lib/SGN/View/Email.pm

   1 package SGN::View::Email;
   2 use Moose;
   3 use namespace::autoclean;
   4 use Data::Dump 'dump';
   5
   6 BEGIN { extends 'Catalyst::View::Email' }
   7
   8 __PACKAGE__->config(
   9     stash_key => 'email'
  10 );
  11
  12 around 'process' => sub {
  13     my $orig = shift;
  14     my $self = shift;
  15     my ($c) = @_;
  16
  17     if( $c->can('test_mode') && $c->test_mode ) {
  18         $c->log->debug("skipping email send, since running in test mode.  email:\n".dump( $c->stash->{ $self->stash_key } ));
  19     } else {
  20         $self->$orig( @_ );
  21     }
  22 };
  23
  24 =head1 NAME
  25
  26 SGN::View::Email - Email View for SGN
  27
  28 =head1 DESCRIPTION
  29
  30 View for sending email from SGN.  Nearly-bare subclass of L<Catalyst::View::Email>.
  31
  32 =head1 AUTHOR
  33
  34 Robert Buels
  35
  36 =head1 SEE ALSO
  37
  38 L<SGN>
  39 L<Catalyst::View::Email>
  40
  41 =head1 LICENSE
  42
  43 This library is free software, you can redistribute it and/or modify
  44 it under the same terms as Perl itself.
  45
  46 =cut
  47
  48 1;