diff options
Diffstat (limited to 'Net/IRC/EventQueue/Entry.pm')
| -rw-r--r-- | Net/IRC/EventQueue/Entry.pm | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/Net/IRC/EventQueue/Entry.pm b/Net/IRC/EventQueue/Entry.pm deleted file mode 100644 index 94a3802..0000000 --- a/Net/IRC/EventQueue/Entry.pm +++ /dev/null @@ -1,40 +0,0 @@ -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; - |