add ESQuery catalyst model

metacpan · Jan 14, 2025 · e4f72f4 · e4f72f4
1 parent 8368aec
commit e4f72f4
Showing 1 changed file with 31 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Server/Model/ESQuery.pm b/lib/MetaCPAN/Server/Model/ESQuery.pm
@@ -0,0 +1,31 @@
+package MetaCPAN::Server::Model::ESQuery;
+
+use Moose;
+
+use MetaCPAN::Query ();
+
+extends 'Catalyst::Model';
+
+has es => (
+    is     => 'ro',
+    writer => '_set_es',
+);
+
+has _esx_query => (
+    is      => 'ro',
+    lazy    => 1,
+    default => sub {
+        my $self = shift;
+        MetaCPAN::Query->new( es => $self->es );
+    },
+);
+
+sub ACCEPT_CONTEXT {
+    my ( $self, $c ) = @_;
+    if ( !$self->es ) {
+        $self->_set_es( $c->model('ES') );
+    }
+    return $self->_esx_query;
+}
+
+1;