File Coverage

blib/lib/ZMQ.pm

Criterion	Covered	Total	%
statement	11	15	73.3
branch	3	8	37.5
condition	1	3	33.3
subroutine	2	2	100.0
pod			n/a
total	17	28	60.7

package ZMQ;
use strict;
our $VERSION = '1.06';
our $BACKEND;
BEGIN {
    $BACKEND ||= $ENV{PERL_ZMQ_BACKEND};
    if ( $BACKEND ) {
        eval "require $BACKEND";
        if ($@) {
            die $@;
        }
    } else {
        foreach my $lib ( qw(ZMQ::LibZMQ2 ZMQ::LibZMQ3) ) {
            eval "require $lib";
            if ($@) {
                next;
            }
            $BACKEND = $lib;
        }
    }

    if (! $BACKEND) {
        die "Could not find a suitable backend for ZMQ";
    }
}

use ZMQ::Context;
use ZMQ::Socket;
use ZMQ::Message;
use ZMQ::Poller;

sub call {
    my $funcname = shift;
    my $func = "${BACKEND}::$funcname";
    no strict 'refs';
    goto &{$func};
}

1;

__END__