X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=inc%2FDistar%2FGuesswork.pm;fp=inc%2FDistar%2FGuesswork.pm;h=0000000000000000000000000000000000000000;hb=fd50eab621a6b4c1ccb1de5eb617c0ca48d6126a;hp=2d5ece8a834f189f1dcc849c60c9a443193f5326;hpb=48af19392722b81e946c81bfaa558c1300a13c6e;p=p5sagit%2FApp-FatPacker.git diff --git a/inc/Distar/Guesswork.pm b/inc/Distar/Guesswork.pm deleted file mode 100644 index 2d5ece8..0000000 --- a/inc/Distar/Guesswork.pm +++ /dev/null @@ -1,19 +0,0 @@ -package inc::Distar::Guesswork; - -use strict; -use warnings FATAL => 'all'; - -use Cwd qw(cwd); -use File::Spec::Functions qw(splitdir catdir catfile); - -sub guess { - my $here = (splitdir cwd)[-1]; - my @parts = split('-', $here); - my $last = pop @parts; - { - NAME => join('::',@parts,$last), - VERSION_FROM => catfile(catdir('lib', @parts), "${last}.pm"), - } -} - -1;