#!/usr/bin/env perl
use strict;
use warnings;
use File::HomeDir;
use File::Spec;
# --------------
my($module) = 'GraphViz2::Marpa';
my($module_dir) = $module;
$module_dir =~ s/::/-/g;
my($config_name) = '.htgraphviz2.marpa.conf';
my($path) = File::Spec -> catfile(File::HomeDir -> my_dist_config($module_dir), $config_name);
print "Using: File::HomeDir -> my_dist_config('$module_dir', '$config_name'): \n";
print "Found: $path\n";