diff options
| author |   Janik Kleinhoff <janik@kleinhoff.de> | 2015-09-24 01:32:11 +0000 |
|---|---|---|
| committer | Janik Kleinhoff <janik@kleinhoff.de> | 2015-09-24 01:32:11 +0000 |
| commit | 9b472795d26cd93d1bb58488ef60a062f5237295 (patch) | |
| tree | 8572778595d145176e720a1b7168c73adbd64ed4 /Net/IRC/EventQueue/Entry.pm | |
| parent | b93c3a24f14e0f64bc46b4945a65ae1bba62dc12 (diff) | |
Rework module paths
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; - |