Platinum Partner

Cutting Of Part Of The Unicode Line

// description of your code here


sub left_subject{
	my $self=shift;
	my $count=shift;
	use utf8;
	my $topic=$self->subject;
	utf8::decode($topic);
	utf8::upgrade($topic);
	my ($subtopic)=($topic=~/(.{0,$count})/);
#	utf8::decode($subtopic);
	$subtopic=~s/\b\w{1,5}$//;
	utf8::downgrade($subtopic);
	return $subtopic.'...';
}
{{ tag }}, {{tag}},

{{ parent.title || parent.header.title}}

{{ parent.tldr }}

{{ parent.urlSource.name }}
{{ parent.authors[0].realName || parent.author}}

{{ parent.authors[0].tagline || parent.tagline }}

{{ parent.views }} ViewsClicks
Tweet

{{parent.nComments}}