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

[Chas Owens <alas widomaker com>]

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

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

sub chas {
        my $entry = shift;
        my (
                $path,
                $accelerator,
                $callback,
                $callback_action,
                $item_type,
                $extra_data
        );

        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");
                }
        }
}