Merge pull request #622 from metacpan/mickey/author_custodial_flag

Added 'custodial' flag to 'author' mapping.
metacpan · Apr 1, 2017 · f9058f9 · f9058f9
2 parents aa6a719 + 2c3cc83
commit f9058f9
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Document/Author.pm b/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;
 

diff --git a/lib/MetaCPAN/Script/Author.pm b/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;

diff --git a/lib/MetaCPAN/Script/Mapping/CPAN/Author.pm b/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" : {