Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
36 lines (24 sloc) 563 Bytes
use Config *;
my $conf = tora_config();
my $SOEXT = $conf['SHLIBSUFFIX'];
sub load($pkg) {
for $LIBPATH -> $path {
my $fname = $path + "/" + $pkg.replace('::', '/') + $SOEXT;
if (-e $fname) {
DynaLoader.load($fname, 'Init_' + $pkg.replace('::', '_'));
return undef;
}
}
die "Cannot load extension library: " + $pkg + ". It's not in \$LIBPATH";
}
__END__
NAME
----
XSLoader - Extension module loader
SYNOPSIS
--------
use XSLoader;
XSLoader.load("JSON")
AUTHOR
------
Tokuhiro Matsuno
Something went wrong with that request. Please try again.