File Coverage

blib/lib/String/Ident.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	13	16	81.2
condition			n/a
subroutine	9	9	100.0
pod	4	4	100.0
total	65	68	95.5

package String::Ident;

use warnings;
use strict;
use utf8;

our $VERSION = 0.05;

use Text::Unidecode 'unidecode';
use Scalar::Util 'blessed';

sub new {
    my ( $class, %args ) = @_;
    return bless {
        min_len => $args{min_len},
        max_len => $args{max_len},
    }, $class;
}

sub min_len {
    my ( $self, $new ) = @_;
    $self->{min_len} = $new if @_ > 1;
    $self->{min_len} = 4
        unless defined( $self->{min_len} );
    return $self->{min_len};
}

sub max_len {
    my ( $self, $new ) = @_;
    $self->{max_len} = $new if @_ > 1;
    $self->{max_len} = 30
        unless defined( $self->{max_len} );
    return $self->{max_len};
}

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

    $self = $self->new( max_len => $max_len )
        unless blessed($self);
    $max_len = ( defined($max_len) ? $max_len : $self->max_len );

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

    if ( $max_len > 0 ) {
        $text = substr( $text, 0, $max_len );
    }
    while ( length($text) < $self->min_len ) {
        $text .= chr( ord('a') + rand( ord('z') - ord('a') + 1 ) );
    }

    return $text;
}

1;

__END__