File Coverage

blib/lib/Email/MIME/MobileJP/Template.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Email::MIME::MobileJP::Template;
use strict;
use warnings;
use utf8;

use Tiffany;
use Email::MIME::MobileJP::Creator;

sub new {
    my ( $class, $name, $args ) = @_;
    my $tiffany = Tiffany->load( $name, $args );
    return bless { tiffany => $tiffany }, $class;
}

sub render {
    my ( $self, $to, $tmpl, @args ) = @_;
    Carp::croak('Usage: $tmpl->render($to, $tmpl[, @args])') unless defined $tmpl;

    my $creator = Email::MIME::MobileJP::Creator->new($to);

    my @lines = split /\n/, $self->{tiffany}->render( $tmpl, @args );
    while ( @lines > 0 && $lines[0] =~ /^([A-Z][A-Za-z_-]+)\s*:\s*(.+?)$/ ) {
        my ( $key, $val ) = ( $1, $2 );
        $creator->header($key, $val);
        shift @lines;
    }
    if ( @lines > 0 && $lines[0] =~ /^\s*$/ ) {
        shift @lines;
    }
    $creator->body( join( "\n", @lines) );

    return $creator->finalize();
}

1;
__END__