Changeset 4787581
- Timestamp:
- Apr 3, 2011, 3:06:01 PM (13 years ago)
- Branches:
- master, release-1.10, release-1.8, release-1.9
- Children:
- 851a0e0
- Parents:
- 38d50c2
- git-author:
- Nelson Elhage <nelhage@mit.edu> (02/26/11 19:16:44)
- 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/Module/IRC/Connection.pm
r38d50c2 r4787581 21 21 use base qw(Class::Accessor); 22 22 use Exporter 'import'; 23 __PACKAGE__->mk_accessors(qw(conn alias motd names_tmp whois_tmp nickserver autoconnect_channels));23 __PACKAGE__->mk_accessors(qw(conn alias motd names_tmp whois_tmp server autoconnect_channels)); 24 24 our @EXPORT_OK = qw(is_private); 25 25 … … 44 44 $self->alias($alias); 45 45 $self->server($host); 46 $self->nick($nick);47 46 $self->motd(""); 48 47 $self->names_tmp(0); … … 86 85 } 87 86 87 sub nick { 88 my $self = shift; 89 return $self->conn->nick; 90 } 91 88 92 sub getSocket 89 93 {
Note: See TracChangeset
for help on using the changeset viewer.