Module::Extract::Use(3) Pull out the modules a module explicitly uses

SYNOPSIS


use Module::Extract::Use;
my $extor = Module::Extract::Use->new;
my @modules = $extor->get_modules( $file );
if( $extor->error ) { ... }
my $details = $extor->get_modules_with_details( $file );
foreach my $detail ( @$details ) {
printf "%s %s imports %s\n",
$detail->module, $detail->version,
join ' ', @{ $detail->imports }
}

DESCRIPTION

Extract the names of the modules used in a file using a static analysis. Since this module does not run code, it cannot find dynamic uses of modules, such as "eval "require $class"". It only reports modules that the file loads directly. Modules loaded with "parent" or "base", for instance, will will be in the import list for those pragmas but won't have separate entries in the data this module returns.
new
Makes an object. The object doesn't do anything just yet, but you need it to call the methods.
init
Set up the object. You shouldn't need to call this yourself.
get_modules( FILE )
Returns a list of namespaces explicity use-d in FILE. Returns undef if the file does not exist or if it can't parse the file.

Each used namespace is only in the list even if it is used multiple times in the file. The order of the list does not correspond to anything so don't use the order to infer anything.

get_modules_with_details( FILE )
Returns a list of hash references, one reference for each namespace explicitly use-d in FILE. Each reference has keys for:

        namespace - the namespace, always defined
        version   - defined if a module version was specified
        imports   - an array reference to the import list
        pragma    - true if the module thinks this namespace is a pragma

Each used namespace is only in the list even if it is used multiple times in the file. The order of the list does not correspond to anything so don't use the order to infer anything.

error
Return the error from the last call to "get_modules".

TO DO

  • Make it recursive, so it scans the source for any module that it finds.

SOURCE AVAILABILITY

The source code is in Github: git://github.com/briandfoy/module-extract-use.git

AUTHOR

brian d foy, "<[email protected]>"

COPYRIGHT AND LICENSE

Copyright (c) 2008-2014, brian d foy, All Rights Reserved.

You may redistribute this under the same terms as Perl itself.