File Coverage

blib/lib/Lingua/JA/Mail.pm

Criterion	Covered	Total	%
statement	43	51	84.3
branch	2	6	33.3
condition			n/a
subroutine	11	12	91.6
pod	4	4	100.0
total	60	73	82.1

package Lingua::JA::Mail;

our $VERSION = '0.03'; # 2005-09-23 (since 2003-03-05)

our @ISA = qw(Lingua::JA::Mail::Header);
use Lingua::JA::Mail::Header;
# When you `require' this base module for some reason,
# you had better specify absolute path to the module.

use 5.008;
use strict;
use warnings;
use Carp;

use Encode;

sub body {
    my($self, $string) = @_;
    $$self{'body'} = $string;
    return $self;
}

sub build {
    my $self = shift;
    my @key = $self->_header_order;
    my @header;
    foreach my $key (@key) {
        unless ($key eq 'body') {
            push(@header, "$key: $$self{$key}");
        }
    }
    return join("\n", @header);
}

sub compose {
    my $self = shift;
    my $header = $self->build;

    chomp(my $header2 = <<"EOF");
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 7bit
X-Mail-Composer: Mail.pm v$VERSION (Lingua::JA::Mail http://www.cpan.org/)
EOF

    $header = join("\n", $header, $header2);

    $self->_preconvert();
    my $body = encode('iso-2022-jp', $$self{'body'});

    return "$header\n\n$body";
}

sub _preconvert {
    my $self = shift;

    utf8::decode(my $string = $$self{'body'});
    $string =~ tr/\x{005C}\x{00A5}\x{2014}\x{203E}\x{2225}\x{FF0D}\x{FF5E}\x{FFE0}\x{FFE1}\x{FFE2}/\x{FF3C}\x{FFE5}\x{2015}\x{FFE3}\x{2016}\x{2212}\x{301C}\x{00A2}\x{00A3}\x{00AC}/;

    $$self{'body'} = $string;

    return $self;
}

sub sendmail {
    my($self, $sendmail) = @_;
    unless ($sendmail) {
        $sendmail = 'sendmail';
    }

    my $mail = $self->compose;

    open(MAIL, "| $sendmail -t -i")
      or croak "failed piping to $sendmail";
    print MAIL $mail;
    close MAIL;
    return $self;
}
########################################################################
1;
__END__