/ 
File-SubPM-0.05
River stage zero No dependents
/ File::SubPM

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