File Coverage

blib/lib/String/Snip.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	5	6	83.3
condition	9	10	90.0
subroutine	6	6	100.0
pod	1	1	100.0
total	50	53	94.3

package String::Snip;
$String::Snip::VERSION = '0.001';
use strict;
use warnings;

use String::Truncate;

{
    our $the_closure;

    sub _hook_closure{
        return &{$the_closure}(@_);
    }

    sub snip{
        my ( $string, $opts ) = @_;
        $string ||= '';
        $opts ||= {};
        my $max_length = $opts->{max_length} || 2000;
        my $short_length = $opts->{short_length} || 100;
        my $substr_regex = $opts->{substr_regex} || '\\S+';
        if( $max_length < 100 ){ $max_length = 100; }
        if( $short_length < 50 ){ $short_length = 50 };

        local $the_closure = sub{
            my ($str) = @_;
            if( length($str) < $max_length ){
                return $str;
            }
            my $chardiff = length($str);
            return String::Truncate::elide($str, $short_length,
                                           { truncate => 'middle',
                                             marker => ' ..[SNIP (was '.$chardiff.'chars)].. '
                                         });
        };
        $string =~ s/($substr_regex)/_hook_closure($1)/egs;
        return $string;
    }
}

1;

__END__