Added Net-IRC to the repo

1 files changed, 39 insertions, 0 deletions

diff --git a/Net/IRC/EventQueue/Entry.pm b/Net/IRC/EventQueue/Entry.pm
new file mode 100644
index 0000000..4d75bd8
--- /dev/null
+++ b/Net/IRC/EventQueue/Entry.pm
@@ -0,0 +1,39 @@
+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;