File Coverage

blib/lib/Acme/EvaTitlenize.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	32	34	94.1

package Acme::EvaTitlenize;
use 5.008005;
use strict;
use warnings;
use utf8;

use Text::VisualWidth::UTF8;

our $VERSION = "0.01";

sub lower_left {
    my ($left, $low) = @_;

    my $evanize;

    $evanize .= join "\n", split //, $left;
    $evanize .= $low;

    return $evanize;
}

sub upper_right {
    my ($up, $right) = @_;

    my $space = ' ' x Text::VisualWidth::UTF8::width($up);
    my $evanize = $up;

    $evanize .= join "\n$space", split //, $right;

    return $evanize;
}

1;

__END__