Re: Hm. ItemFactory vs. gtk2-perl 0.90 ? :)

Quoting Brett Kosinski <brettk frodo dyn gno org>:
Heh, yup, that's just what I figured.  What can I say... I opt for
novelty over efficiency. ;)

If that is the case you might try adding this function to the benchmark.

sub chas {
        my $entry = shift;
        my (

        for my $key (keys %$entry) {
                eval "\$$key = \$entry->{$key}";
                if ($@) {
                        carp("Gtk Item Factory Entry; unknown key ($key) "
                           . "ignored, legal keys are: path, "
                           . "accelerator, accel, callback, "
                           . "callback_action, item_type, extra_data");

[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]