File Coverage

blib/lib/App/Asciio/String.pm

Criterion	Covered	Total	%
statement	15	33	45.4
branch	0	4	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	44	45.4

package App::Asciio::String ;

require Exporter ;
@ISA = qw(Exporter) ;
@EXPORT = qw(
	unicode_length
	make_vertical_text
	) ;

#-----------------------------------------------------------------------------

use strict ; use warnings ;
use utf8 ;

use App::Asciio::Markup ;

#-----------------------------------------------------------------------------

use Memoize ;
memoize('unicode_length') ;

sub unicode_length
{
my ($string) = @_ ;

$string = $USE_MARKUP_CLASS->delete_markup_characters($string) ;

my $east_asian_double_width_chars_cnt = grep {$_ =~ /\p{EA=W}|\p{EA=F}/} split('', $string) ;
my $nonspacing_chars_cnt = grep {$_ =~ /\p{gc:Mn}/} split('', $string) ;

return length($string) + $east_asian_double_width_chars_cnt - $nonspacing_chars_cnt ;
}

#-----------------------------------------------------------------------------

sub make_vertical_text
{
my ($text) = @_ ;

my @lines = map{[split '', $_]} split "\n", $text ;

my $vertical = '' ;
my $found_character = 1 ;
my $index = 0 ;

while($found_character)
	{
	my $line ;
	$found_character = 0 ;

	for(@lines)
		{
		if(defined $_->[$index])
			{
			$line.= $_->[$index] ;
			$found_character++ ;
			}
		else
			{
			$line .= ' ' ;
			}
		}

	$line =~ s/\s+$//;
	$vertical .= "$line\n" if $found_character ;
	$index++ ;
	}

return $vertical ;
}

#-----------------------------------------------------------------------------

1 ;