diff options
| author | 2014-04-23 18:41:09 +0400 | |
|---|---|---|
| committer | 2014-04-23 18:41:09 +0400 | |
| commit | cd629c352418b569d03289a14f652f63f79f8a91 (patch) | |
| tree | fbab17edbd063582c1d65d9844d006be7c089a56 /Net/IRC/EventQueue/Entry.pm | |
| parent | 87cf6352810c00952a79e58a1d418a28be01b33c (diff) | |
updated Net-IRC module to what ASM uses (modified version)
Diffstat (limited to 'Net/IRC/EventQueue/Entry.pm')
| -rw-r--r-- | Net/IRC/EventQueue/Entry.pm | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/Net/IRC/EventQueue/Entry.pm b/Net/IRC/EventQueue/Entry.pm index 4d75bd8..94a3802 100644 --- a/Net/IRC/EventQueue/Entry.pm +++ b/Net/IRC/EventQueue/Entry.pm @@ -1,39 +1,40 @@ package Net::IRC::EventQueue::Entry; - + use strict; - + my $id = 0; - + sub new { my $class = shift; my $time = shift; my $content = shift; - + my $self = { 'time' => $time, 'content' => $content, 'id' => "$time:" . $id++, }; - + bless $self, $class; return $self; } - + sub id { my $self = shift; return $self->{'id'}; } - + sub time { my $self = shift; $self->{'time'} = $_[0] if @_; return $self->{'time'}; } - + sub content { my $self = shift; $self->{'content'} = $_[0] if @_; return $self->{'content'}; } - + 1; + |
