How to emit signals in Glib::Object derived modules?

[Samuel Abels <newsgroups debain org>]

Hello,

I am trying to implement a module derived from Glib::Object. This
works fine, except for when I want the module to emit a self-defined
signal.

I know from the Gtk-Perl documentation that new signals have to be
registered first. So this is what I expected to work:

------------------------------------------------
#!/usr/bin/env perl
package TestClass;
use strict;
use Gtk2 '-init';
use vars qw(@ISA $VERSION);
@ISA = qw(Glib::Object);

$VERSION = 0.01;

use Glib::Object::Subclass
    TestClass::,
    signals => {
      my_new_signal => {
        class_closure => sub { print "BLA\n" },
        flags         => [qw(run-first)],
        return_type   => undef,
        param_types   => []
      }
    };


sub new {
  [...];
}
------------------------------------------------

Unfortunately, this produces an error message:

Uncaught exception from user code:
        package TestClass has not been registered with
GPerl at /usr/lib/perl5/Glib/Object/Subclass.pm line 225.
BEGIN failed--compilation aborted at ./test.pl line 11.

Google was not helpful. I'm clueless.

Any hints?

Thanks,
Samuel
--
"A mind is a terrible thing to have leaking out your ears." -- The
League of Sadistic Telepaths