Moved Permission querying to MetaCPAN::Query::Permission

Author: mickeyn

lib/MetaCPAN/Document/Permission/Set.pm

@@ -1,71 +1,25 @@
 package MetaCPAN::Document::Permission::Set;
 
-use strict;
-use warnings;
-
 use Moose;
-use Ref::Util qw( is_arrayref );
 
-use MetaCPAN::Util qw( single_valued_arrayref_to_scalar );
+use MetaCPAN::Query::Permission;
 
 extends 'ElasticSearchX::Model::Document::Set';
 
-sub by_author {
-    my ( $self, $pauseid ) = @_;
-
-    my $body = {
-        query => {
-            bool => {
-                should => [
-                    { term => { owner          => $pauseid } },
-                    { term => { co_maintainers => $pauseid } },
-                ],
-            },
-        },
-        size => 5_000,
-    };
-
-    my $ret = $self->es->search(
-        index => $self->index->name,
-        type  => 'permission',
-        body  => $body,
+has query_permission => (
+    is      => 'ro',
+    isa     => 'MetaCPAN::Query::Permission',
+    lazy    => 1,
+    builder => '_build_query_permission',
+    handles => [qw< by_author by_modules >],
+);
+
+sub _build_query_permission {
+    my $self = shift;
+    return MetaCPAN::Query::Permission->new(
+        es         => $self->es,
+        index_name => $self->index->name,
     );
-    return unless $ret->{hits}{total};
-
-    my $data = [
-        sort { $a->{module_name} cmp $b->{module_name} }
-        map  { $_->{_source} } @{ $ret->{hits}{hits} }
-    ];
-
-    return { permissions => $data };
-}
-
-sub by_modules {
-    my ( $self, $modules ) = @_;
-    $modules = [$modules] unless is_arrayref($modules);
-
-    my @modules = map +{ term => { module_name => $_ } }, @{$modules};
-
-    my $body = {
-        query => {
-            bool => { should => \@modules }
-        },
-        size => 1_000,
-    };
-
-    my $ret = $self->es->search(
-        index => $self->index->name,
-        type  => 'permission',
-        body  => $body,
-    );
-    return unless $ret->{hits}{total};
-
-    my $data = [
-        sort { $a->{module_name} cmp $b->{module_name} }
-        map  { $_->{_source} } @{ $ret->{hits}{hits} }
-    ];
-
-    return { permissions => $data };
 }
 
 __PACKAGE__->meta->make_immutable;

lib/MetaCPAN/Query/Permission.pm

@@ -0,0 +1,71 @@
+package MetaCPAN::Query::Permission;
+
+use Moose;
+
+use Ref::Util qw( is_arrayref );
+
+use MetaCPAN::Util qw( single_valued_arrayref_to_scalar );
+
+with 'MetaCPAN::Query::Role::Common';
+
+sub by_author {
+    my ( $self, $pauseid ) = @_;
+
+    my $body = {
+        query => {
+            bool => {
+                should => [
+                    { term => { owner          => $pauseid } },
+                    { term => { co_maintainers => $pauseid } },
+                ],
+            },
+        },
+        size => 5_000,
+    };
+
+    my $ret = $self->es->search(
+        index => $self->index_name,
+        type  => 'permission',
+        body  => $body,
+    );
+    return unless $ret->{hits}{total};
+
+    my $data = [
+        sort { $a->{module_name} cmp $b->{module_name} }
+        map  { $_->{_source} } @{ $ret->{hits}{hits} }
+    ];
+
+    return { permissions => $data };
+}
+
+sub by_modules {
+    my ( $self, $modules ) = @_;
+    $modules = [$modules] unless is_arrayref($modules);
+
+    my @modules = map +{ term => { module_name => $_ } }, @{$modules};
+
+    my $body = {
+        query => {
+            bool => { should => \@modules }
+        },
+        size => 1_000,
+    };
+
+    my $ret = $self->es->search(
+        index => $self->index_name,
+        type  => 'permission',
+        body  => $body,
+    );
+    return unless $ret->{hits}{total};
+
+    my $data = [
+        sort { $a->{module_name} cmp $b->{module_name} }
+        map  { $_->{_source} } @{ $ret->{hits}{hits} }
+    ];
+
+    return { permissions => $data };
+}
+
+no Moose;
+__PACKAGE__->meta->make_immutable;
+1;