Revision 755

Date:
2018/11/28 11:39:08
Author:
ahitrov
Revision Log:
Debugging

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/lib/Contenido/Mail.pm

     
    53 53 }
    54 54
    55 55 my $opts = shift // {};
    56 my $debug = $state->development || $DEBUG || $opts->{debug} ? 1 : 0;
    56 57
    57 58 my $email = delete $opts->{email} // return undef;
    59 warn Dumper $email if $debug;
    58 60 return unless ref $email && exists $email->{to} && $email->{subject} && $email->{body};
    59 61
    60 62 my $etype = delete $opts->{etype} // 'mixed';
    61 my $debug = $state->development || $DEBUG || $opts->{debug} ? 1 : 0;
    62 63
    63 64 my $subject = $email->{subject};
    64 65 $subject = MIME::Base64::encode($subject);
    … …  
    198 199 }
    199 200
    200 201 my $opts = shift // {};
    202 my $debug = $state->development || $DEBUG || $opts->{debug} ? 1 : 0;
    201 203
    202 204 my $email = delete $opts->{email} // return undef;
    205 warn Dumper $email if $debug;
    203 206 return unless ref $email && exists $email->{to} && $email->{subject} && $email->{body};
    204 207
    205 208 my $que = Contenido::Email->new( $keeper );