1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
package GraphQL::Type;
use 5.014;
use strict;
use warnings;
use Moo;
use GraphQL::MaybeTypeCheck;
use Types::Standard qw(InstanceOf Any HashRef Str); # if -all causes objects to be class 'Object'!
with 'GraphQL::Role::Listable';
our $VERSION = '0.02';
=head1 NAME
GraphQL::Type - GraphQL type object
=head1 SYNOPSIS
extends qw(GraphQL::Type);
=head1 DESCRIPTION
Superclass for other GraphQL type classes to inherit from.
=head1 ENCODING
Those Perl classes each implement a GraphQL type. Each item of
GraphQL data has a GraphQL type. Such an item of data can also be
represented within Perl. Objects of that Perl class take responsibility
for translating between the Perl representation and the "GraphQL
representation". A "GraphQL representation" means something
JSON-encodeable: an "object" (in Perl terms, a hash), an array (Perl:
array-reference), string, number, boolean, or null.
See L</METHODS> for generic methods to translate back and forth between
these worlds.
Code that you provide to do this translation must return things that
I<can> be JSON-encoded, not things that I<have been> so encoded: this
means, among other things, do not surround strings in C<">, and for
boolean values, use the mechanism in L<JSON::MaybeXS>: C<JSON->true> etc.
=head1 SUBCLASSES
These subclasses implement part of the GraphQL language
specification. Objects of these classes implement user-defined types
used to implement a GraphQL API.
=over
=item L<GraphQL::Type::Enum>
=item L<GraphQL::Type::InputObject>
=item L<GraphQL::Type::Interface>
=item L<GraphQL::Type::List>
=item L<GraphQL::Type::NonNull>
=item L<GraphQL::Type::Object>
=item L<GraphQL::Type::Scalar> - also implements example types such as C<String>
=item L<GraphQL::Type::Union>
=back
=head1 ROLES
These roles implement part of the GraphQL language
specification. They are applied to objects of L<GraphQL::Type> classes,
either to facilitate type constrants, or as noted below.
=over
=item L<GraphQL::Role::FieldsInput> - provides C<fields> attribute for an input type
=item L<GraphQL::Role::FieldsOutput> - provides C<fields> attribute for an output type
=item L<GraphQL::Role::Abstract> - abstract type
=item L<GraphQL::Role::Composite> - type has fields
=item L<GraphQL::Role::Input> - type can be an input
=item L<GraphQL::Role::Leaf> - simple type - enum or scalar
=item L<GraphQL::Role::Listable> - can be list-wrapped; provides convenience method
=item L<GraphQL::Role::Named> - has a C<name> and C<description>, provided by this role
=item L<GraphQL::Role::Nullable> - can be null-valued
=item L<GraphQL::Role::Output> - type can be an output
=back
=head1 TYPE LIBRARY
L<GraphQL::Type::Library> - implements various L<Type::Tiny>
type constraints, for use in L<Moo> attributes, and
L<Function::Parameters>/L<Return::Type> methods and functions.
=head1 METHODS
=head2 uplift
Turn given Perl entity into valid Perl value for this type if possible.
=cut
method uplift(Any $item) :ReturnType(Any) { $item; }
=head2 graphql_to_perl
Turn given GraphQL entity into Perl entity.
=head2 perl_to_graphql
Turn given Perl entity into GraphQL entity.
=cut
=head2 from_ast($name2type, $ast_node)
Class method. C<$name2type> is a hash-ref populated by
L<GraphQL::Schema/from_ast>. Takes a hash-ref node from an AST made by
L<GraphQL::Language::Parser/parse>. Returns a type object.
=head2 to_doc($doc)
Returns Schema Definition Language (SDL) document that describes this
object.
=cut
method _from_ast_maptype(
HashRef $name2type,
HashRef $ast_node,
Str $key,
) {
return if !$ast_node->{$key};
($key => sub { [
map { $name2type->{$_} // die "Unknown type '$_'.\n" } @{$ast_node->{$key}}
] });
}
__PACKAGE__->meta->make_immutable();
1;
|
