+++ /dev/null
-Changes
-inc/Module/AutoInstall.pm
-inc/Module/Install.pm
-inc/Module/Install/AutoInstall.pm
-inc/Module/Install/Base.pm
-inc/Module/Install/Can.pm
-inc/Module/Install/Fetch.pm
-inc/Module/Install/Include.pm
-inc/Module/Install/Makefile.pm
-inc/Module/Install/Metadata.pm
-inc/Module/Install/Win32.pm
-inc/Module/Install/WriteAll.pm
-lib/Catalyst/Helper/View/Email.pm
-lib/Catalyst/Helper/View/Email/Template.pm
-lib/Catalyst/View/Email.pm
-lib/Catalyst/View/Email/Template.pm
-Makefile.PL
-MANIFEST This list of files
-META.yml
-t/01use.t
-t/02pod.t
-t/04basic.t
-t/05template.t
-t/06config.t
-t/07mason.t
-t/lib/TestApp.pm
-t/lib/TestApp/Controller/Root.pm
-t/lib/TestApp/View/Email.pm
-t/lib/TestApp/View/Email/AppConfig.pm
-t/lib/TestApp/View/Email/Template.pm
-t/lib/TestApp/View/Email/Template/AppConfig.pm
-t/lib/TestApp/View/Mason.pm
-t/lib/TestApp/View/TT.pm
-t/root/text_html/test.m
-t/root/text_html/test.tt
-t/root/text_plain/test.m
-t/root/text_plain/test.tt
use base qw/ Catalyst::View /;
-our $VERSION = '0.09999_01';
+our $VERSION = '0.09999_02';
__PACKAGE__->mk_accessors(qw/ mailer /);
my $email = $c->stash->{$self->{stash_key}};
croak "Can't send email without a valid email structure"
unless $email;
-
+
if ( exists $self->{content_type} ) {
$email->{content_type} ||= $self->{content_type};
}
$mime{attributes}->{charset} = $self->{default}->{charset};
}
- my $message = $self->generate_part( $c, \%mime );
+ my $message = $self->generate_message( $c, \%mime );
#my $message = Email::MIME->create(%mime);
my $e_m_attrs = {};
if (exists $attrs->{content_type} && defined $attrs->{content_type} && $attrs->{content_type} ne '') {
+ $c->log->debug('C::V::Email uses specified content_type ' . $attrs->{content_type} . '.') if $c->debug;
$e_m_attrs->{content_type} = $attrs->{content_type};
}
elsif (defined $default_content_type && $default_content_type ne '') {
+ $c->log->debug("C::V::Email uses default content_type $default_content_type.") if $c->debug;
$e_m_attrs->{content_type} = $default_content_type;
}
return $e_m_attrs;
}
-sub generate_part {
+sub generate_message {
my ( $self, $c, $attr ) = @_;
-$c->log->info("generate_part in Email");
# setup the attributes (merge with defaults)
- $attr->{attributes} = $self->setup_attributes($attr->{attributes});
+ $attr->{attributes} = $self->setup_attributes($c, $attr->{attributes});
return Email::MIME->create(%$attr);
}
use base qw/ Catalyst::View::Email /;
-our $VERSION = '0.09999_01';
+our $VERSION = '0.09999_02';
=head1 NAME
sub generate_part {
my ($self, $c, $attrs) = @_;
-
+
my $template_prefix = $self->{template_prefix};
my $default_view = $self->{default}->{view};
my $default_content_type = $self->{default}->{content_type};
my $template = $template_prefix ne '' ? join('/', $template_prefix, $attrs->{template}) : $attrs->{template};
# setup the attributes (merge with defaults)
- my $e_m_attrs = $self->setup_attributes($attrs);
+ my $e_m_attrs = $self->setup_attributes($c, $attrs);
# render the email part
my $output = $view->render( $c, $template, {
mailer => 'Test'
},
stash_key => 'email',
- template_prefix => ''
+ template_prefix => '',
);
1;