File Coverage

blib/lib/Lab/VXI11.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	2	4	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	34	37	91.8

package Lab::VXI11;

use strict;
use warnings;
use Carp;

require Exporter;
use AutoLoader;

our @ISA = qw(Exporter);

our @EXPORT = qw(
	DEVICE_ASYNC
	DEVICE_ASYNC_VERSION
	DEVICE_CORE
	DEVICE_CORE_VERSION
	DEVICE_INTR
	DEVICE_INTR_VERSION
	DEVICE_TCP
	DEVICE_UDP
);

our $VERSION = '0.01';

sub AUTOLOAD {
    # This AUTOLOAD is used to 'autoload' constants from the constant()
    # XS function.

    my $constname;
    our $AUTOLOAD;
    ($constname = $AUTOLOAD) =~ s/.*:://;
    croak "&Lab::VXI11::constant not defined" if $constname eq 'constant';
    my ($error, $val) = constant($constname);
    if ($error) { croak $error; }
    {
	no strict 'refs';
	# Fixed between 5.005_53 and 5.005_61
#XXX	if ($] >= 5.00561) {
#XXX	    *$AUTOLOAD = sub () { $val };
#XXX	}
#XXX	else {
	    *$AUTOLOAD = sub { $val };
#XXX	}
    }
    goto &$AUTOLOAD;
}

require XSLoader;
XSLoader::load('Lab::VXI11', $VERSION);

# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__