Changes in perl/modules/Twitter/lib/BarnOwl/Message/Twitter.pm [f6413c3:5d59c1e]

File:

• perl/modules/Twitter/lib/BarnOwl/Message/Twitter.pm (modified) (1 diff)

perl/modules/Twitter/lib/BarnOwl/Message/Twitter.pm

@@ -17 +17 @@
 sub service { return (shift->{"service"} || "http://twitter.com"); }
 sub account { return shift->{"account"}; }
+sub retweeted_by { shift->{retweeted_by}; }
 sub long_sender {
     my $self = shift;
     $self->service =~ m#^\s*(.*?://.*?)/.*$#;
     my $service = $1 || $self->service;
-    return $service . '/' . $self->sender
+    my $long = $service . '/' . $self->sender;
+    if ($self->retweeted_by) {
+        $long = "(retweeted by " . $self->retweeted_by . ") $long";
+    }
+    return $long;
 }