From 9b472795d26cd93d1bb58488ef60a062f5237295 Mon Sep 17 00:00:00 2001
From: Janik Kleinhoff <janik@kleinhoff.de>
Date: Thu, 24 Sep 2015 01:32:11 +0000
Subject: Rework module paths

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

(limited to 'lib/Net/IRC/EventQueue/Entry.pm')

diff --git a/lib/Net/IRC/EventQueue/Entry.pm b/lib/Net/IRC/EventQueue/Entry.pm
new file mode 100644
index 0000000..94a3802
--- /dev/null
+++ b/lib/Net/IRC/EventQueue/Entry.pm
@@ -0,0 +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;
+
-- 
cgit v1.2.3