File Coverage

lib/Haineko/Sample.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition	3	7	42.8
subroutine	5	5	100.0
pod	0	1	0.0
total	26	31	83.8

package Haineko::Sample;
use feature ':5.10';
use strict;
use warnings;
use utf8;

sub mail {
    my $class = shift;
    my $httpd = shift;

    my $xforwarded = [ split( ',', $httpd->req->header('X-Forwarded-For') || q() ) ];
    my $remoteaddr = pop @$xforwarded || $httpd->req->address // undef;
    my $samplemail = [
        {
            'mail' => '[e-mail]',
            'rcpt' => [ '[e-mail]' ],
            'ehlo' => sprintf( "[%s]", $remoteaddr ),
            'body' => 'Email message body',
            'header' => {
                'from' => 'Your Name ',
                'subject' => 'Email subject',
                'replyto' => '[e-mail]',
            },
        },
        {
            'helo' => 'your-host-name.example.net',
            'from' => '[e-mail]',
            'to' => [ '[e-mail]', '[e-mail]' ],
            'body' => 'メールの本文(日本語)',
            'header' => {
                'from' => 'はいねこ ',
                'subject' => 'メールの件名',
                'charset' => 'UTF-8',
            },
        },
    ];

    return $httpd->res->json( 200, Haineko::JSON->dumpjson( $samplemail ) );
}

1;
__END__