add x_contributors data

[p5sagit/Distar.git] / lib / Distar.pm

diff --git a/lib/Distar.pm b/lib/Distar.pm
index 817311c..fb4db68 100644 (file)
--- a/lib/Distar.pm
+++ b/lib/Distar.pm
@@ -146,6 +146,19 @@ sub _clone {
         if @$license == 1 && $license->[0] eq 'perl_5';
     }
 
+    $meta->{x_contributors} ||= do {
+      my $author_email =
+        join '|',
+        map quotemeta,
+        map /(\<[^<>]+\@[^<>]\>)/,
+        @$Author;
+      [
+        grep !/$author_email/,
+        map { chomp; s/^\s*\d+\s*//; utf8::decode($_); $_ }
+        `git shortlog -s --email HEAD`
+      ];
+    };
+
     %$meta;
   }