Changeset 60b49a7 for perl/modules/IRC/lib/BarnOwl/Message/IRC.pm
- Timestamp:
- Apr 3, 2011, 3:06:01 PM (13 years ago)
- Branches:
- master, release-1.10, release-1.8, release-1.9
- Children:
- 0ccf5ab
- Parents:
- 5d4262c
- git-author:
- Nelson Elhage <nelhage@mit.edu> (03/03/11 10:58:42)
- git-committer:
- Nelson Elhage <nelhage@mit.edu> (04/03/11 15:06:01)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Message/IRC.pm
re04b7a1 r60b49a7 66 66 sub action {shift->{action}} 67 67 sub reason {shift->{reason}} 68 sub old_nick {shift->{old_nick}}; 68 69 69 70 # display … … 80 81 } 81 82 82 sub login_extra { 83 sub login_extra { 83 84 my $self = shift; 84 85 if ($self->action eq "quit") { 85 86 return $self->reason; 87 } elsif ($self->action eq 'nick change') { 88 return "was: " . $self->old_nick; 86 89 } else { 87 90 return $self->channel;
Note: See TracChangeset
for help on using the changeset viewer.