3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-10-31 17:19:30 +01:00
pbot/PBot/IRC/EventQueue/Entry.pm

41 lines
1.7 KiB
Perl
Raw Normal View History

package PBot::IRC::EventQueue::Entry; # pragma_ 2011/21/01
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;