GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-29 23:39:24 +01:00
Code Issues Projects Releases Wiki Activity

PriorityQueue: add update_priority()

Browse Source
This commit is contained in:
Pragmatic Software 2021-07-18 20:49:11 -07:00
parent fcb726d42e
commit 354f278cb2
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/PBot/Utils/PriorityQueue.pm
View File

@ -13,6 +13,7 @@ use PBot::Imports;
sub initialize { sub initialize {
my ($self, %conf) = @_; my ($self, %conf) = @_;
# list of entrie; each entry is expected to have a `priority` and an `id` field
$self->{queue} = []; $self->{queue} = [];
} }
@ -100,4 +101,11 @@ sub add {
return $position; return $position;
} }
sub update_priority {
my ($self, $id, $priority) = @_;
my @entries = grep { $_->{id} eq $id } @{$self->{queue}};
map { $_->{priority} = $priority } @entries;
$self->{queue} = [ sort { $a->{priority} <=> $b->{priority} } @{$self->{queue}} ];
}
1; 1;