lib/Thread/Queue/Event/Glib.pm


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 add_watch {
    my ($self,$sub)=@_;
 
    Glib::IO->add_watch($self->event_fileno,'in',$sub);
}
 
no Moose;
1;