The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More;

#~ # Load non-core modules conditionally
#~ BEGIN{
#~     eval{
#~         require Scalar::Util;               # General-utility scalar subroutines
#~     };
#~     $scalar_util_loaded      = !$@;         # loaded if no error
#~                                             #   must be package variable
#~                                             #       to escape BEGIN block
#~ }; ## BEGIN

#~ use lib ('inc', '../inc');                  # during P::F development only
use Path::Finder;

my $tc          ;
my $base        = 'Path-Finder: ';
my $diag        = $base;
my $got         ;
my $want        ;

$tc++;
$diag           = $base . 'new';
my $pf          = Path::Finder->new( -module => 'My::Module' );
pass($diag);                                # pass if we get this far

$tc++;
$diag           = $base . 'system';
my $path_system = $pf->system();        # get path to system-level config
pass($diag);                                # pass if we get this far

$tc++;
$diag           = $base . 'user';
my $path_user = $pf->user();            # get path to user-level config
pass($diag);                                # pass if we get this far

$tc++;
$diag           = $base . 'task';
my $path_task = $pf->task();            # get path to task-level config
pass($diag);                                # pass if we get this far






#~ my $path_user   = $pf->user();          #  "    "       user-level config
#~ my $path_task   = $pf->task();          #  "    "       task-level config



done_testing($tc);