1 package inc::Distar::Guesswork;
4 use warnings FATAL => 'all';
7 use File::Spec::Functions qw(splitdir catdir catfile);
10 my $here = (splitdir cwd)[-1];
11 my @parts = split('-', $here);
12 my $last = pop @parts;
14 NAME => join('::',@parts,$last),
15 VERSION_FROM => catfile(catdir('lib', @parts), "${last}.pm"),