File Coverage

blib/lib/Text/VisualWidth/PP.pm

Criterion	Covered	Total	%
statement	44	47	93.6
branch	11	12	91.6
condition			n/a
subroutine	12	15	80.0
pod	0	9	0.0
total	67	83	80.7

package Text::VisualWidth::PP;
use strict;
use warnings;
use 5.008001;
use parent qw(Exporter);
our $VERSION = '0.05';
use Unicode::EastAsianWidth;

our @EXPORT_OK = qw(vwidth vtrim);

our $EastAsian = $Unicode::EastAsianWidth::EastAsian;

sub Spacing {
    $_[0] . <
-utf8::Nonspacing_Mark
END
}

sub InVWPP1Fullwidth() {
    Spacing
    InEastAsianFullwidth() . InEastAsianWide() . InEastAsianAmbiguous()
}
sub InVWPP0Fullwidth() {
    Spacing
    InEastAsianFullwidth() . InEastAsianWide()
}
sub InVWPP1Halfwidth() {
    Spacing
    InEastAsianHalfwidth().
    InEastAsianNarrow().
    InEastAsianNeutral()
}
sub InVWPP0Halfwidth() {
    Spacing
    InEastAsianHalfwidth().
    InEastAsianNarrow().
    InEastAsianNeutral().
    InEastAsianAmbiguous()
}

sub vwidth { width(@_) }
sub vtrim  {  trim(@_) }

sub width {
    my $str = shift;

    my $ret = 0;
    if ($EastAsian) {
        while ($str =~ /(\p{InVWPP1Fullwidth}+)|(\p{InVWPP1Halfwidth}+)/g) {
            $ret += $1 ? length($1) * 2 : length($2)
        }
    } else {
        while ($str =~ /(\p{InVWPP0Fullwidth}+)|(\p{InVWPP0Halfwidth}+)/g) {
            $ret += $1 ? length($1) * 2 : length($2)
        }
    }
    $ret;
}

sub trim {
    my ($str, $limit) = @_;

    my $cnt = 0;
    my $ret = '';
    while ($str =~ /\G(\X)/g) {
	my $ch = $1;
	my $w = do {
	    if ($ch =~ /\p{InFullwidth}/) {
		2;
	    } elsif (length($ch) == 1) {
		1;
	    } else {
		width($ch);
	    }
	};
	if ($cnt+$w <= $limit) {
	    $ret .= $ch;
	    $cnt += $w;
	} else {
	    last;
	}
    }
    $ret;
}

1;
__END__