diff options
Diffstat (limited to 'Net/IRC/EventQueue')
| -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; + |
