view release on metacpan or  search on metacpan

t/99-postinstall.t  view on Meta::CPAN

        libusb_exit(NULL);
    }

    return sv;
}
END

my $cflags = $libusb->cflags;
my $libs = $libusb->libs;
diag "Using CFLAGS=$cflags, LIBS=$libs\n";
Inline->bind(C => $c, CCFLAGS => $cflags, LIBS => $libs);

my $version = version();
unlike($version, qr/^Error:/, 'Initialize libusb-1.0');
isnt($version, '', 'Nonempty version string');
isnt($version, undef, 'Defined version string');

my $type = $libusb->install_type;
diag "Initialized libusb-1.0, version $version, install type $type\n";