• HTML.pm

    266 267  
    221 221 my %opts = @_;
    222 222 my $text = $opts{'text'};
    223 223 my $length = $opts{'length'} || 200;
    224 my $ellipsis = $opts{'ellipsis'} || '…';
    224 my $ellipsis = $opts{'ellipsis'} || '…';
    225 225 $text =~ s/<[^>]*>//g;
    226 226 if (length($text) > $length) {
    227 227 $text = substr($text, 0, $length);