summaryrefslogtreecommitdiffstats
path: root/Net/IRC/EventQueue
diff options
context:
space:
mode:
Diffstat (limited to 'Net/IRC/EventQueue')
-rw-r--r--Net/IRC/EventQueue/Entry.pm19
1 files changed, 10 insertions, 9 deletions
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;
+