File Coverage

blib/lib/Email/Send/YYClouds.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	17	19	89.4

package Email::Send::YYClouds;

use 5.006;
use strict;
use warnings;
use utf8;
use MIME::Lite;
use MIME::Words qw(encode_mimewords);

=encoding utf8

=head1 NAME

Email::Send::YYClouds - Send email using YYClouds' smtp server

=head1 VERSION

Version 0.02

=cut

our $VERSION = '0.02';


=head1 SYNOPSIS

    use Email::Send::YYClouds;

    my $msg = Email::Send::YYClouds->new();
    $msg->send(recepient => ['[e-mail]','[e-mail]'],
               subject => '测试邮件',
               body => '这是一封测试邮件Just a test message for you',
               is_html => 1,
          );


=head1 SUBROUTINES/METHODS

=head2 new

    $msg = Email::Send::YYClouds->new();
    $msg = Email::Send::YYClouds->new(debug=>1);  # with debug open

=cut

sub new {

    my $class = shift;
    my %args = @_;
    my $debug = $args{'debug'};

    $debug = 0 unless defined $debug;
    bless { debug=>$debug },$class;
}

=head2 send

    $msg->send(recepient => [a list of recepients],
               subject => $subject,
               body => $body,
               is_html => $boolean,
          );

Default sender should always be [e-mail], you can't change it.

recepient - a list of email addresses for receiving message.

subject - email subject, which can be either Chinese or non-Chinese.

body - message body, which can be either Chinese or non-Chinese.

is_html - default 0, it must be set to 1 if this is a html message.

Please notice: Only when MTA relay has authorized the sender host from where you can send messages.

Otherwise you will get error:

    SMTP recipient() command failed:
    5.7.1 : Relay access denied

Contact the sysops to authorize it.

=cut

sub send {

    my $self = shift;
    my %args = @_;

    my $recepient = $args{'recepient'};
    my $subject = $args{'subject'};
    my $body = $args{'body'};
    my $is_html = $args{'is_html'};
    $is_html = 0 unless defined $is_html;

    my $type = $is_html ? "text/html" : "text/plain";
    my $to_address = join ',',@$recepient;
    my $encoded_subject = encode_mimewords($subject,'Charset','UTF-8');

    my $msg = MIME::Lite->new (
        From => '[e-mail]',
        To =>  $to_address,
        Subject => $encoded_subject,
        Type     => $type,
        Data     => $body,
        Encoding => 'base64',
    ) or die "create container failed: $!";

    $msg->attr('content-type.charset' => 'UTF-8');
    $msg->send(  'smtp',
                 'smtp.game.yy.com',
                 Debug => $self->{debug}
              );
}


=head1 AUTHOR

Ken Peng, C<<  >>

=head1 BUGS

Please report any bugs or feature requests to C, or through
the web interface at L.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.




=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Email::Send::YYClouds


You can also look for information at:

=over 4

=item * RT: CPAN's request tracker (report bugs here)

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=item * Search CPAN

L

=back


=head1 ACKNOWLEDGEMENTS


=head1 LICENSE AND COPYRIGHT

Copyright 2016 Ken Peng.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.


=cut

1; # End of Email::Send::YYClouds