NAME SHARYANTO::Module::Util - Module-related utilities VERSION version 0.03 SYNOPSIS use SHARYANTO::Module::Util qw( is_xs is_pp ); say "Class::XSAccessor is an XS module" if is_xs("Class/XSAccessor.pm"); say "JSON::PP is a pure-Perl module" if is_pp("JSON::PP"); DESCRIPTION FUNCTIONS is_xs($mod, \%opts) => BOOL Return true if module $mod is an XS module, false if a pure Perl module, or undef if can't determine either. $mod value can be in the form of "Package/SubPkg.pm" or "Package::SubPkg". The following ways are tried, in order: * Looking at the ".packlist" If a .{bs,so,dll} file is listed in the ".packlist", then it is assumed to be an XS module. This method will fail if there is no ".packlist" available (e.g. core or uninstalled or when the package management strips the packlist), or if a dist contains both pure-Perl and XS. * Looking at the source file for usage of "XSLoader" If the module source code has something like "use XSLoader;" then it is assumed to be an XS module. This is currently implemented using a simple regex, so it is somewhat brittle. Other methods will be added in the future (e.g. a database like in Module::CoreList, consulting MetaCPAN, etc). Options: * warn => BOOL (default: 0) If set to true, will warn to STDERR if fail to determine. is_pp($mod, \%opts) => BOOL The opposite of "is_xs", return true if module $mod is a pure Perl module. See "is_xs" for more details. SEE ALSO SHARYANTO HOMEPAGE Please visit the project's homepage at . SOURCE Source repository is at . BUGS Please report any bugs or feature requests on the bugtracker website When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. AUTHOR Steven Haryanto COPYRIGHT AND LICENSE This software is copyright (c) 2014 by Steven Haryanto. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.