File Coverage

blib/lib/Log/Parallel/Sql/Trim.pm

Criterion	Covered	Total	%
statement	25	30	83.3
branch	4	12	33.3
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	36	51	70.5

package Log::Parallel::Sql::Trim;

use strict;
use warnings;
use Encode;
use URI::Escape qw(uri_unescape uri_escape);
require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw(encode_and_trim);


sub bytelen
{
	use bytes;
	return length($_[0]);
}

sub encode_and_trim
{
	my ($string, $length) = @_;
	return '' unless defined $string;
	$string = encode('UTF-8' => $string);
	return $string unless $length;
	return $string unless bytelen($string) > $length;

	$string = substr($string, 0, $length);

	for (;;) {
		my $diff = bytelen($string) - $length;
		return $string unless $diff > 0;

		#
		# okay, it's too big and the difference is in the multi-byte characters
		#

		my $l = length($string);
		my $chop = $diff / $l;
		$chop = $l/100 if $chop < $l/100;
		$chop = 1 if $chop < 1;

		substr($string, -$chop) = '';
	}
}

1;

__END__