1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
#!perl
package MyClass;
use strict;
use warnings;
use Glib;
use Glib::Object::Subclass
'Glib::Object',
signals => { mysig => { param_types => [],
return_type => undef },
};
sub INIT_INSTANCE {
my ($self) = @_;
}
sub do_mysig {
return 123;
}
package MySubClass;
use strict;
use warnings;
use Glib;
use Glib::Object::Subclass
'MyClass',
signals => { mysig => \&_do_mysubclass_mysig };
sub INIT_INSTANCE {
my ($self) = @_;
}
our $MYSIG_RUNS = 0;
sub _do_mysubclass_mysig {
my ($self) = @_;
$self->signal_chain_from_overridden;
$MYSIG_RUNS++;
}
package main;
use strict;
use warnings;
use Glib;
use Test::More tests => 1;
my $obj = MySubClass->new;
$obj->signal_emit ('mysig');
is($MySubClass::MYSIG_RUNS, 1,
'marshaling a signal with no return type');
|
