Merge pull request #622 from metacpan/mickey/author_custodial_flag

Added 'custodial' flag to 'author' mapping.

Author: oalders

lib/MetaCPAN/Document/Author.pm

@@ -92,6 +92,12 @@ has updated => (
     isa => 'DateTime',
 );
 
+has is_pause_custodial_account => (
+    is      => 'ro',
+    isa     => Bool,
+    default => 0,
+);
+
 sub _build_gravatar_url {
     my $self = shift;
 

lib/MetaCPAN/Script/Author.pm

@@ -96,6 +96,9 @@ sub index_authors {
                 grep {$_} @{ $put->{website} }
         ];
 
+        $put->{is_pause_custodial_account} = 1
+            if $name and $name =~ /\(PAUSE Custodial Account\)/;
+
         # Now check the format we have is actually correct
         my @errors = MetaCPAN::Document::Author->validate($put);
         next if scalar @errors;

lib/MetaCPAN/Script/Mapping/CPAN/Author.pm

@@ -47,6 +47,9 @@ sub mapping {
               "index" : "not_analyzed",
               "type" : "string"
            },
+           "is_pause_custodial_account" : {
+              "type" : "boolean"
+           },
            "donation" : {
               "dynamic" : true,
               "properties" : {