view release on metacpan or  search on metacpan

lib/List/PriorityQueue.pm  view on Meta::CPAN

144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
        if ($new_prio - $old_prio > 0) {
                $upper = @{$self->{queue}};
                $lower = $old_pos;
        } else {
                $upper = $old_pos;
                $lower = 0;
        }
        $self->unchecked_insert($payload, $new_prio, $lower, $upper);
}
 
sub update {
        my ($self, $payload, $prio) = @_;
        if (!defined($self->{prios}->{$payload})) {
                goto &unchecked_insert;
        } else {
                goto &unchecked_update;
        }
}
*insert = \&update;
 
1;