mirror of https://github.com/pragma-/pbot.git
41 lines
1.7 KiB
Perl
41 lines
1.7 KiB
Perl
![]() |
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;
|
||
|
|