File Coverage

blib/lib/String/Ident.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	30	31	96.7

package String::Ident;

use warnings;
use strict;
use utf8;

our $VERSION = 0.02;

use Text::Unidecode 'unidecode';

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

    $text = '' unless defined($text);
    $text = unidecode($text);
    $text =~ s/[^-A-Za-z0-9]/-/g;
    $text =~ s/--+/-/g;
    $text =~ s/-$//g;
    $text =~ s/^-//g;
    $text = substr($text,0,30);
    while (length($text) < 4) {
        $text .= chr(ord('a') + rand(ord('z') - ord('a') + 1));
    }

    return $text;
}

1;


__END__