package PIC::DevaSysI2CIO; use strict; use Inline C => Config => LIBS => "-LE:/drivers/usb/devasys_i2cio -lusbi2cio", INC => "-IE:/drivers/usb/devasys_i2cio", BUILD_NOISY => 1; use Inline C => q { #include #include "Usbi2cio.h" HANDLE openDevice() { HANDLE h = INVALID_HANDLE_VALUE; h = DAPI_OpenDeviceInstance("UsbI2cio", 0); return h; } }; sub new { my ($class_name) = @_; my ($self) = {}; bless($self, $class_name); return $self; } sub open_device { my $h = openDevice(); } 1;