File Coverage

blib/lib/Net/IMP/Remote/Protocol.pm

Criterion	Covered	Total	%
statement	47	47	100.0
branch	1	2	50.0
condition	2	5	40.0
subroutine	15	15	100.0
pod	0	1	0.0
total	65	70	92.8

use strict;
use warnings;
package Net::IMP::Remote::Protocol;
use Scalar::Util 'dualvar';
use Carp;

use Exporter 'import';
our @EXPORT = qw(
    IMPRPC_GET_INTERFACE
    IMPRPC_SET_INTERFACE
    IMPRPC_NEW_ANALYZER
    IMPRPC_DEL_ANALYZER
    IMPRPC_DATA
    IMPRPC_SET_VERSION
    IMPRPC_EXCEPTION
    IMPRPC_INTERFACE
    IMPRPC_RESULT
);


use constant IMPRPC_GET_INTERFACE => dualvar(0x4001,'get_interface');
use constant IMPRPC_SET_INTERFACE => dualvar(0x4002,'set_interface');
use constant IMPRPC_NEW_ANALYZER  => dualvar(0x4003,'new_analyzer');
use constant IMPRPC_DEL_ANALYZER  => dualvar(0x4004,'delete_analyzer');
use constant IMPRPC_DATA          => dualvar(0x4005,'data');
use constant IMPRPC_SET_VERSION   => dualvar(0x4006,'set_version');

use constant IMPRPC_EXCEPTION     => dualvar(0x4101,'exception');
use constant IMPRPC_INTERFACE     => dualvar(0x4102,'interface');
use constant IMPRPC_RESULT        => dualvar(0x4103,'result');

sub load_implementation {
    shift;
    my $impl = shift || 'Storable';
    $impl = "Net::IMP::Remote::$impl";
    $impl =~m{^[\w:]+$} and eval "require $impl"
	or croak("bad wire implementation $impl: $@");
    return $impl;
}



__END__