moving testing again

getauth.pl

@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+
+use strict;
+use lib './lib';
+
+use Dist;
+
+my $module = "Moose";
+
+print Dist::get_author $module

lib/Dist.pm

@@ -16,5 +16,15 @@ while (my $l = <$fh>) {
     $mod_to_dist{$module} = $dist;
 }
 
+sub get_author {
+  my $module = shift; # dist name or module name
 
+  if (my $dist = $mod_to_dist{$module}) {
+    if ($dist =~ m|^\w/\w\w/([^/]+)/[^/]+$|) {
+      return $1;
+    }
+  }
+
+  return '';
+}
 1;