Select Code to Download

XS(TStringsTIEARRAY) {
    dXSARGS;
...

    XSRETURN(1);
}

    newXS("G::TStrings::TIEARRAY", TStringsTIEARRAY, "BCB+Perl interna
+l");

    newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, "blablabla")
+;