On 14-04-03 04:32 PM, Gabor Szabo wrote:
I ended up with this heuristics:
use File::ShareDir qw(dist_dir);
my $path_to_skeleton = dist_dir('Webber') . "/Skeleton";
if (-e 'share' and -e 'lib/Webber.pm') {
$path_to_skeleton = 'share/Skeleton';
}
where Webber.pm is the main module of the application.
Totally untested, and probably dangerously shooting from the hip, but
wouldn't
use if $ENV{DEV}, Test::File::ShareDir => -share => {
-module => { 'My::Module' => 'share/MyModule' }
};
do pretty much what you want?
Joy,
`/anick
