nuke Distar since I don't have time to make this go yet

diff --git a/inc/Distar.pm b/inc/Distar.pm
deleted file mode 100644 (file)
index 4c628a5..0000000
--- a/inc/Distar.pm
+++ /dev/null
@@ -1,39 +0,0 @@
-package        # in case this escapes being no_index'ed in META.yml
-  inc::Distar; # this horrible little trick hides us from PAUSE. INVISIBUL!
-
-use strict;
-use warnings FATAL => 'all';
-
-my $already;
-
-my $AUTHOR;
-
-my @do;
-
-my %whoami;
-
-sub import {
-  die "Can't call import() twice, last called from: ${already}"
-    if $already;
-  $already = join(' ', caller);
-  strict->import;
-  warnings->import(FATAL => 'all');
-  my $class = shift;
-  if (-e 'inc/whoami.pm') {
-    %whoami = %{do 'inc/whoami.pm' or die "Failed to eval inc/whoami.pm: $@"};
-  } else {
-    $AUTHOR = 1;
-    require inc::Distar::Guesswork;
-    %whoami = %{inc::Distar::Guesswork::guess(@_)};
-  }
-  push @do, sub {
-    require ExtUtils::MakeMaker;
-    ExtUtils::MakeMaker::WriteMakefile(%whoami)
-  };
-}
-
-END {
-  foreach my $do (@do) { $do->() }
-}
-
-1;

diff --git a/inc/Distar/Guesswork.pm b/inc/Distar/Guesswork.pm
deleted file mode 100644 (file)
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;