• HTML.pm

    267 268  
    249 249 my %opts = @_;
    250 250 my $text = $opts{'text'};
    251 251 my $length = $opts{'length'} || 200;
    252 my $ellipsis = $opts{'ellipsis'} || '…';
    252 my $ellipsis = $opts{'ellipsis'} || '…';
    253 253 $text =~ s/<[^>]*>//g;
    254 254 if (length($text) > $length) {
    255 255 $text = substr($text, 0, $length);