Sys::Virt::Event - An event loop contract

Sys-Virt documentation Contained in the Sys-Virt distribution.

Index

Code Index:

NAME

Top

Sys::Virt::Event - An event loop contract

DESCRIPTION

Top

The Sys::Virt::Event module represents the contract for integrating libvirt with an event loop. This package is abstract and intended to be subclassed to provide an actual implementation.

METHODS

Top

register_default()

Register the default libvirt event loop implementation

run_default()

Run a single iteration of the default event loop implementation

register($impl)

Register an event loop implementation. The implementation should be a instance of a sub-class of the Sys::Virt::Event package.

$self->_run_handle_callback($watch, $fd, $events, $cb, $opaque)

A helper method for executing a callback in response to one of more $events on the file handle $fd. The $watch number is the unique idenifier associated with the file descriptor. The $cb and $opaque parameters are the callback and data registered for the handle.

$self->_run_timeout_callback($timer, $cb, $opaque)

A helper method for executing a callback in response to the expiry of a timeout identified by $timer. The $cb and $opaque parameters are the callback and data registered for the timeout.

$self->_free_callback_opaque($ff, $opaque)

A helper method for freeing the data associated with a callback. The $ff and $opaque parameters are the callback and data registered for the handle/timeout.

CONSTANTS

Top

FILE HANDLE EVENTS

When integrating with an event loop the following constants define the file descriptor events

Sys::Virt::Event::HANDLE_READABLE

The file descriptor has data available for read without blocking

Sys::Virt::Event::HANDLE_WRITABLE

The file descriptor has ability to write data without blocking

Sys::Virt::Event::HANDLE_ERROR

An error occurred on the file descriptor

Sys::Virt::Event::HANDLE_HANGUP

The remote end of the file descriptor closed

AUTHORS

Top

Daniel P. Berrange <berrange@redhat.com>

COPYRIGHT

Top

Copyright (C) 2006-2009 Red Hat Copyright (C) 2006-2009 Daniel P. Berrange

LICENSE

Top

This program is free software; you can redistribute it and/or modify it under the terms of either the GNU General Public License as published by the Free Software Foundation (either version 2 of the License, or at your option any later version), or, the Artistic License, as specified in the Perl README file.

SEE ALSO

Top

Sys::Virt, http://libvirt.org

Sys-Virt documentation Contained in the Sys-Virt distribution. 
# -*- perl -*-
#
# Copyright (C) 2006 Red Hat
# Copyright (C) 2006-2007 Daniel P. Berrange
#
# This program is free software; You can redistribute it and/or modify
# it under either:
#
# a) the GNU General Public License as published by the Free
#   Software Foundation; either version 2, or (at your option) any
#   later version,
#
# or
#
# b) the "Artistic License"
#
# The file "LICENSE" distributed along with this file provides full
# details of the terms and conditions of the two licenses.


package Sys::Virt::Event;

use strict;
use warnings;


our $eventimpl = undef;


sub register {
    my $impl = shift;

    if (!(ref($impl) &&
	  $impl->isa("Sys::Virt::Event"))) {
	die "event implementation must be a subclass of Sys::Virt::Event";
    }

    $eventimpl = $impl;

    Sys::Virt::Event::_register_impl();
}



sub _add_handle {
    $eventimpl->add_handle(@_);
}
sub _update_handle {
    $eventimpl->update_handle(@_);
}
sub _remove_handle {
    $eventimpl->remove_handle(@_);
}
sub _add_timeout {
    $eventimpl->add_timeout(@_);
}
sub _update_timeout {
    $eventimpl->update_timeout(@_);
}
sub _remove_timeout {
    $eventimpl->remove_timeout(@_);
}


sub _run_handle_callback {
    my $self = shift;
    my $watch = shift;
    my $fd = shift;
    my $events = shift;
    my $cb = shift;
    my $opaque = shift;
    Sys::Virt::Event::_run_handle_callback_helper($watch, $fd, $events, $cb, $opaque);
}


sub _run_timeout_callback {
    my $self = shift;
    my $timer = shift;
    my $cb = shift;
    my $opaque = shift;
    Sys::Virt::Event::_run_timeout_callback_helper($timer, $cb, $opaque);
}


sub _free_callback_opaque {
    my $self = shift;
    my $ff = shift;
    my $opaque = shift;
    Sys::Virt::Event::_free_callback_opaque_helper($ff, $opaque);
}

1;