inc/Distar/Guesswork.pm

   1 package inc::Distar::Guesswork;
   2
   3 use strict;
   4 use warnings FATAL => 'all';
   5
   6 use Cwd qw(cwd);
   7 use File::Spec::Functions qw(splitdir catdir catfile);
   8
   9 sub guess {
  10   my $here = (splitdir cwd)[-1];
  11   my @parts = split('-', $here);
  12   my $last = pop @parts;
  13   {
  14     NAME => join('::',@parts,$last),
  15     VERSION_FROM => catfile(catdir('lib', @parts), "${last}.pm"),
  16   }
  17 }
  18
  19 1;