File::SubPM - Obsolete. Superceded by File::Where 1.16.
File::Where
use File::SubPM @sub_modules = File::SubPM->sub_modules($base_file, @dirs); $module = File::SubPM-->is_module($module, @modules);
This module is obsolete and superceded by the File::Where 1.16.
$driver = File::SubPM->is_module($module, @repositories)
The is_module subroutine determines if a $module is present in a list of modules @modules. The detemination is case insensitive and only the leading characters are needed.
is_module
@modules
@sub_modules = File::SubPM->sub_modules($base_file, @dirs)
Returns a list of modules in the directory defined by $base_file, @dirs.
$base_file
@dirs
The File::SubPM subroutines shall be replaced by the appropriate File::Where subroutine whenever a File::PM2File subroutine needs a revision as follows:
File::SubPM
File::PM2File
File::SubPM->is_module() File::Where->is_module() File::SubPM->sub_modules($base_file, @dir) File::Where->program_modules($base_file,'',@dirs)
######### # perl SubPM.d ###
~~~~~~ Demonstration overview ~~~~~
The results from executing the Perl Code follow on the next lines as comments. For example,
2 + 2 # 4
~~~~~~ The demonstration follows ~~~~~
use File::Spec; use File::Package; my $fp = 'File::Package'; my $sm = 'File::SubPM'; my $loaded = ''; ################## # Load UUT # my $errors = $fp->load_package( $sm ) $errors # '' # ################## # sub_modules # my @drivers = sort $sm->sub_modules( __FILE__, '_Drivers_' ) join (', ', @drivers) # 'Driver, Generate, IO' # ################## # is_module # $sm->is_module('dri', @drivers ) # 'Driver' #
To install File::SubPM, copy and paste the appropriate command in to your terminal.
cpanm
cpanm File::SubPM
CPAN shell
perl -MCPAN -e shell install File::SubPM
For more information on module installation, please visit the detailed CPAN module installation guide.