Changeset a0385ad3 for lib/BarnOwl/Message/Twitter.pm
- Timestamp:
- May 21, 2009, 4:51:34 PM (15 years ago)
- Branches:
- master, release-1.10, release-1.7, release-1.8, release-1.9
- Children:
- 8496cc2
- Parents:
- d658c29
- git-author:
- Kevin Riggle <kevinr@free-dissociation.com> (05/19/09 22:54:48)
- git-committer:
- Nelson Elhage <nelhage@mit.edu> (05/21/09 16:51:34)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
lib/BarnOwl/Message/Twitter.pm
racdd52e ra0385ad3 15 15 sub context {'twitter'} 16 16 sub subcontext {undef} 17 sub long_sender {"http://twitter.com/" . shift->sender} 17 sub service { return (shift->{"service"} || "http://twitter.com"); } 18 sub long_sender { 19 my $self = shift; 20 $self->service =~ m#^\s*(.*?://.*?)/.*$#; 21 my $service = $1 || $self->service; 22 return $service . '/' . $self->sender 23 } 18 24 19 25 sub replycmd {
Note: See TracChangeset
for help on using the changeset viewer.