Help for this page
sub qpush { my ($self, $time, $eventref) = @_; push @{$self}, {time=>$time, event=>$eventref}; }
sub qpop { ... my $ref = pop @{$self}; return $ref->{event}; }
# to call it: $queue->qinsert($time, $eventref); ... } } }
www.com | www.net | www.org
No recent polls found