File Coverage

blib/lib/ZMQ/FFI/ContextBase.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch	0	2	0.0
condition			n/a
subroutine	3	10	30.0
pod	0	7	0.0
total	12	38	31.5

package ZMQ::FFI::ContextBase;
$ZMQ::FFI::ContextBase::VERSION = '0.17';
use Moo;
use namespace::autoclean;

use Carp;

with qw(
    ZMQ::FFI::ContextRole
    ZMQ::FFI::ErrorHandler
    ZMQ::FFI::Versioner
);

# real underlying zmq ctx pointer
has _ctx => (
    is      => 'rw',
    default => -1,
);

sub get {
    croak 'unimplemented in base class';
}

sub set {
    croak 'unimplemented in base class';
}

sub socket {
    croak 'unimplemented in base class';
}

sub proxy {
    croak 'unimplemented in base class';
}

sub device {
    my ($self, $type, $front, $back) = @_;

    $self->check_error(
        'zmq_device',
        $self->_ffi->{zmq_device}->($type, $front->_socket, $back->_socket)
    );
}

sub destroy {
    croak 'unimplemented in base class';
}

sub DEMOLISH {
    my $self = shift;

    unless ($self->_ctx == -1) {
        $self->destroy();
    }
}

__PACKAGE__->meta->make_immutable();

__END__