File Coverage

blib/lib/EV/Watcher/Bind.pm

Criterion	Covered	Total	%
statement	25	33	75.7
branch			n/a
condition	0	3	0.0
subroutine	5	7	71.4
pod			n/a
total	30	43	69.7

# $Id: /mirror/perl/EV-Watcher-Bind/trunk/lib/EV/Watcher/Bind.pm 9173 2007-11-15T11:33:58.291707Z daisuke  $
#
# Copyright (c) 2007 Daisuke Maki
# All rights reserved.

package EV::Watcher::Bind;
use strict;
use warnings;
use EV;
our $VERSION = '0.00001';

BEGIN
{
    my $mk_wrapper = sub {
        my ($original) = @_;
        return sub {
            # the EV API always ends with a callback. pop that callback, and
            # take the rest of the arguments as the binding arguments
            my @binds;
            my $x;
            do {
                $x = pop @_;
                unshift @binds, $x;
            } while (@_ && ref $x ne 'CODE');

            my $callback = shift @binds;
            my $w;
            $w = $original->(@_, sub { $callback->(@binds, $w) });
        };
    };

    my @names = qw(io timer periodic signal child idle prepare check);
    my @suffix = ('', '_ns');
    foreach my $name (@names) {
        foreach my $suffix (@suffix) {
            no strict 'refs';
            my $fullname = "EV::${name}${suffix}";
            my $bindname = "${fullname}_bind";
            my $original = *{ $fullname }{CODE};
            *{ $bindname } = $mk_wrapper->($original);
        }
    }
}


1;

__END__