- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Twitter/lib/BarnOwl/Message/Twitter.pm
r5d59c1e rf6413c3 17 17 sub service { return (shift->{"service"} || "http://twitter.com"); } 18 18 sub account { return shift->{"account"}; } 19 sub retweeted_by { shift->{retweeted_by}; }20 19 sub long_sender { 21 20 my $self = shift; 22 21 $self->service =~ m#^\s*(.*?://.*?)/.*$#; 23 22 my $service = $1 || $self->service; 24 my $long = $service . '/' . $self->sender; 25 if ($self->retweeted_by) { 26 $long = "(retweeted by " . $self->retweeted_by . ") $long"; 27 } 28 return $long; 23 return $service . '/' . $self->sender 29 24 } 30 25
Note: See TracChangeset
for help on using the changeset viewer.