File Coverage

blib/lib/ZMQ/FFI.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch	0	2	0.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	1	1	100.0
total	18	29	62.0

package ZMQ::FFI;
# ABSTRACT: zeromq bindings using libffi and FFI::Raw
$ZMQ::FFI::VERSION = '0.16';
use ZMQ::FFI::Util qw(zmq_soname zmq_version);
use ZMQ::FFI::ErrorHelper;
use Carp;

sub new {
    my $self = shift;
    my %args = @_;

    $args{soname} //= zmq_soname( die => 1 );

    # explicitly passing in a loaded error helper instance
    # (i.e. zmq error bindings) guards against the OS X loader clobbering errno,
    # which can happen if the bindings are loaded lazily
    $args{error_helper} =
        ZMQ::FFI::ErrorHelper->new( soname => $args{soname} );

    my ($major) = zmq_version($args{soname});

    if ($major == 2) {
        require ZMQ::FFI::ZMQ2::Context;
        return ZMQ::FFI::ZMQ2::Context->new(%args);
    }
    else {
        require ZMQ::FFI::ZMQ3::Context;
        return ZMQ::FFI::ZMQ3::Context->new(%args);
    }
};

1;

__END__