Samson Monaco Tutankhamen

NAME

File::SubPM - Obsolete. Superceded by File::Where 1.16.

SYNOPSIS

 use File::SubPM

 @sub_modules   = File::SubPM->sub_modules($base_file, @dirs);
 $module        = File::SubPM-->is_module($module, @modules);

DESCRIPTION

This module is obsolete and superceded by the File::Where 1.16.

SUBROUTINES

is_module method

 $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.

sub_modules method

 @sub_modules = File::SubPM->sub_modules($base_file, @dirs)

Returns a list of modules in the directory defined by $base_file, @dirs.

REQUIREMENTS

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->is_module()                    File::Where->is_module()
 File::SubPM->sub_modules($base_file, @dir)  File::Where->program_modules($base_file,'',@dirs)

DEMONSTRATION

 #########
 # 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'
 #