The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
parcel KinoSearch cnick Kino;

class KinoSearch::Test::Util::NumPriorityQueue cnick NumPriQ
    inherits KinoSearch::Util::PriorityQueue {

    inert incremented NumPriorityQueue*
    new(uint32_t max_size);

    bool_t
    Less_Than(NumPriorityQueue *self, Obj *a, Obj *b);
}

inert class KinoSearch::Test::Util::TestPriorityQueue cnick TestPriQ {
    inert void
    run_tests();
}

/* Copyright 2005-2011 Marvin Humphrey
 *
 * This program is free software; you can redistribute it and/or modify
 * under the same terms as Perl itself.
 */