From cd629c352418b569d03289a14f652f63f79f8a91 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 23 Apr 2014 18:41:09 +0400
Subject: updated Net-IRC module to what ASM uses (modified version)

---
 Net/IRC/EventQueue/Entry.pm | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

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

diff --git a/Net/IRC/EventQueue/Entry.pm b/Net/IRC/EventQueue/Entry.pm
index 4d75bd8..94a3802 100644
--- a/Net/IRC/EventQueue/Entry.pm
+++ b/Net/IRC/EventQueue/Entry.pm
@@ -1,39 +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