File Coverage

blib/lib/String/Ident.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	3	4	75.0
condition	5	5	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	39	40	97.5

package String::Ident;

use warnings;
use strict;
use utf8;

our $VERSION = 0.03;

use Text::Unidecode 'unidecode';

sub cleanup {
    my ($self, $text, $maxlength) = @_;

    $text = '' unless defined($text);
    $text = unidecode($text);
    $text =~ s/[^-A-Za-z0-9]/-/g;
    $text =~ s/--+/-/g;
    $text =~ s/-$//g;
    $text =~ s/^-//g;

    if (!$maxlength || $maxlength > 0) {
        $maxlength ||= 30;
        $text = substr($text,0,$maxlength);
    }
    while (length($text) < 4) {
        $text .= chr(ord('a') + rand(ord('z') - ord('a') + 1));
    }

    return $text;
}

1;


__END__