File Coverage

blib/lib/Egg/Helper/View/Mail.pm

Criterion	Covered	Total	%
statement	6	25	24.0
branch	0	8	0.0
condition	0	6	0.0
subroutine	2	4	50.0
pod			n/a
total	8	43	18.6

package Egg::Helper::View::Mail;
#
# Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>
#
# $Id: Mail.pm 285 2008-02-28 04:20:55Z lushe $
#
use strict;
use warnings;

our $VERSION= '0.01';

sub _start_helper {
	my($self)= @_;
	my $c= $self->config;
	$c->{helper_option}{project_root} || return $self->_helper_help
	   ('I want you to start from helper of the project.');
	my $comp_name= ucfirst( shift( @ARGV ) )
	   || return $self->_helper_help('I want component name.');
	$comp_name=~m{^[A-Z][A-Za-z0-9\_]+$}
	   || return $self->_helper_help('Bad format of component name.');
	my $o= $self->_helper_get_options;
	my $version= $self->helper_valid_version_number($o->{version}) || return 0;
	my $param= $self->helper_prepare_param({
	  module_version=> $version,
	  created=> __PACKAGE__. " v$VERSION",
	  });
	$self->helper_prepare_param_module
	   ($param, $self->project_name, qw/ View Mail /, $comp_name);
	my $comp_path= $param->{module_output_filepath}=
	   "$param->{output_path}/lib/$param->{module_filepath}";
	-e $comp_path
	   and return $self->_helper_help("'$comp_path' already exists.");
	$self->helper_generate_files(
	  param        => $param,
	  chdir        => [$param->{output_path}],
	  create_files => [$self->helper_yaml_load(join '', <DATA>)],
	  errors       => { unlink=> [$comp_path] },
	  complete_msg => "\nMail controller generate is completed.\n\n"
	               .  "output path : $comp_path\n\n"
	  );
	$self;
}
sub _helper_help {
	my $self = shift;
	my $msg  = shift || "";
	my $pname= lc $self->project_name;
	$msg= "ERROR: ${msg}\n\n" if $msg;
	print <<END_HELP;
${msg}% perl ${pname}_helper.pl V::Mail [COMPONENT_NAME]

END_HELP
	0;
}

1;

=head1 NAME

Egg::Helper::Model::Session - Helper who generates MAIL controller.

=head1 SYNOPSIS

  % cd /path/to/MyApp/bin
  % ./myapp_helper.pl V::Mail MyController
  ..........
  ......

=head1 DESCRIPTION

It is a helper who generates the MAIL controller to use it with L<Egg::View::Mail>
 under the control of 'lib' directory of the project.

It starts specifying the View::Mail mode and the generated module name for the
helper script of the project to use it.

  % ./myapp_helper.pl View::Mail [MODULE_NAME]

Then, /path/to/MyApp/lib/MyApp/View/Mail/[MODULE_NAME].pm is generated.

It is corrected that the configuration and the component, etc. are set up in this
 module after it generates it and uses it.

=head1 SEE ALSO

L<Egg::Release>,
L<Egg::View::Mail>,
L<Egg::View::Mail::Base>,

=head1 AUTHOR

Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2008 Bee Flag, Corp. E<lt>L<http://egg.bomcity.com/>E<gt>, All Rights Reserved.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.6 or,
at your option, any later version of Perl 5 you may have available.

=cut


__DATA__
filename: <e.module_output_filepath>
value: |
  package <e.module_distname>;
  use strict;
  use warnings;
  use base qw/ Egg::View::Mail::Base /;

  our $VERSION= '<e.module_version>';

  __PACKAGE__->config(
  #   label_name => 'mail_label',
    smtp_host => 'localhost',
  #   timeout    => 3,
  #   to         => 'myname@mydomain',
  #   from       => 'myname@mydomain',
  #   reply_to   => 'myname@mydomain',
  #   return_path=> 'myname@mydomain',
  #   subject    => 'It inquires.',
    );

  __PACKAGE__->setup_plugin(qw/
    EmbAgent
    Signature
    /);

  __PACKAGE__->setup_mailer( SMTP => qw/
    MIME::Entity
    /);

  #  __PACKAGE__->setup_template( Mason => 'mail/inquiry.tt' );

  1;

  __END__
  <e.document>