Mojolicious でGraphQLを触ってみた。

type Query {
    entries: [Entry!]
}

type Entry {
    id: ID!
    title: String!
    body: String!
    comments: [EntryComment!]
}

type EntryComment {
   id: ID!
   body: String!
}

% tree lib/Blog/GraphQL
lib/Blog/GraphQL
├── Query.pm ----- クエリのリゾルバ。QueryResolverの実装を集約する。
├── QueryResolver ---- クエリのリゾルバの各実装を格納庫
│  └── Entries.pm ----- entriesのリゾルバ
├── QueryResolverRole.pm ---- スキーマ情報を元に、リゾルバに対して制約やシュガーを提供
├── Schema.pm --- GraphQLのスキーマ
├── Type
│  ├── Entry.pm --- エントリーのtype object。各フィールドのリゾルバを書く。
│  └── EntryComment.pm --- エントリーコメントのtype object。
└── TypeObject.pm --- スキーマ情報を元に、type objectに対して制約やシュガーを提供

package Blog::GraphQL::QueryResolver::Entries;
use v5.36;
use Moo;
with 'Blog::GraphQL::QueryResolverRole';

use Blog::Unit::Entry::EntryFetcher;

sub main($self, $args, $context, $info) {
    my $fetcher = Blog::Unit::Entry::EntryFetcher->entity;
    my $entries = $fetcher->select_all({});

    return $entries;
}

1;

package Blog::GraphQL::Type::Entry;
use v5.36;
use Moo;
extends qw(Blog::GraphQL::TypeObject);

use Blog::Unit::Entry::EntryCommentFetcher;

sub id($self, @) {
    $self->object->id;
}

sub title($self, @) {
    $self->object->title;
}

sub body($self, @) {
    $self->object->body;
}

sub comments($self, $args, $context, @) {
    my $loader = $self->data_loader($context, Blog::Unit::Entry::EntryCommentFetcher->can('batch_comments'));
    $loader->load($self->object->id);
}

1;