From 87cf6352810c00952a79e58a1d418a28be01b33c Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 23 Apr 2014 18:36:38 +0400
Subject: Added Net-IRC to the repo

---
 Net/IRC/EventQueue/Entry.pm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 Net/IRC/EventQueue/Entry.pm

(limited to 'Net/IRC/EventQueue')

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;
-- 
cgit v1.2.3