add x_contributors data
Graham Knop [Tue, 17 May 2016 02:42:27 +0000 (22:42 -0400)]
lib/Distar.pm

index 817311c..fb4db68 100644 (file)
@@ -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;
   }