=head1 NAME

Glib::Event - convert the Glib event loop a subsystem of the Event module

=head1 SYNOPSIS

 use Glib::Event;

=head1 DESCRIPTION

This module coerces the Glib event loop to use the Event module as
underlying event loop, i.e. Event will be used by Glib for all events.

This makes Glib compatible to Event. Calls into the Glib main loop
are more or less equivalent to calls to C<Event::loop>.

=over 4

=item * The Glib perl module is not used.

This module has no dependency on the existing Glib perl interface, as it
uses glib directly. The Glib module can, however, be used without any
problems.

=item * The default context will be changed when the module is loaded.

Loading this module will automatically "patch" the default context of
libglib, so normally nothing more is required.

=cut

package Glib::Event;

use Carp ();
use Event ();

our $default_poll_func;

BEGIN {
   $VERSION = 0.1;

   require XSLoader;
   XSLoader::load Glib::Event, $VERSION;

   $default_poll_func = install (undef);
}

=back

=cut

=head1 SEE ALSO

L<Event>, L<Glib>, L<Glib::MainLoop>.

=head1 AUTHOR

 Marc Lehmann <schmorp@schmorp.de>
 http://home.schmorp.de/

=cut

1