How to store perl object in GObject's property?

[Xi Yang <jiandingzhe msn com>]

For example:

###### in Foo.pm ######
package Foo;
use strict;
use threads::shared;

sub new {
    my $inv = shift;
    my $class = ref $inv || $inv;
    my $obj = shared_clone {};
    return bless $obj,$class;
}

1;


###### in Extended.pm ######
package Extended;
use strict;
use test::Foo;

use Glib::Object::Subclass 'Goo::Canvas::Rect',
    properties => [
        Glib::ParamSpec->object(
            'foo','','',
            'Foo',
            [qw/readable writable/]
        )
    ]
;

######################

It would fail, as Foo is not a registered Glib type, which cannot be used as a type constraint. So is it possible to do that? And how?

---

Your E-mail and More On-the-Go. Get Windows Live Hotmail Free. Sign up now.