… | |
… | |
37 | no warnings; |
37 | no warnings; |
38 | use strict; |
38 | use strict; |
39 | |
39 | |
40 | use Glib (); |
40 | use Glib (); |
41 | |
41 | |
42 | our $maincontext = Glib::MainContext->default; |
42 | our $mainloop = Glib::MainContext->default; |
43 | |
43 | |
44 | sub io { |
44 | sub io { |
45 | my ($class, %arg) = @_; |
45 | my ($class, %arg) = @_; |
46 | |
46 | |
47 | my $cb = $arg{cb}; |
47 | my $cb = $arg{cb}; |
… | |
… | |
84 | sub DESTROY { |
84 | sub DESTROY { |
85 | remove Glib::Source $${$_[0]}; |
85 | remove Glib::Source $${$_[0]}; |
86 | } |
86 | } |
87 | |
87 | |
88 | sub one_event { |
88 | sub one_event { |
89 | $maincontext->iteration (1); |
89 | $mainloop->iteration (1); |
|
|
90 | } |
|
|
91 | |
|
|
92 | sub loop { |
|
|
93 | $mainloop->run; |
90 | } |
94 | } |
91 | |
95 | |
92 | 1; |
96 | 1; |
93 | |
97 | |
94 | =head1 SEE ALSO |
98 | =head1 SEE ALSO |