File Coverage

blib/lib/File/SubPM.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	32	32	100.0

#!perl
#
# Documentation, copyright and license is at the end of this file.
#
package  File::SubPM;

use 5.001;
use strict;
use warnings;
use warnings::register;

use File::Where;

use vars qw($VERSION $DATE);
$VERSION = '1.12';
$DATE = '2004/05/04';

#####
# Determine the output generator program modules
#
sub sub_modules
{
   my (undef,$base_file, @dirs) = @_;
   File::Where->program_modules($base_file,'file',@dirs);
}

#####
# Determine if a module is valid
#
sub is_module
{
   shift;
   File::Where->is_module(@_);
}

1

__END__