blob: ed97efaa50b929e663d2ff8df2f0cbc58e1bd3b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
package Thread::Queue::Event::Glib; use Moose::Role; use Glib; requires 'event_fileno'; sub callback { my ($self,$sub)=@_; Glib::IO->add_watch($self->event_fileno,'in',$sub); } no Moose; 1;
|