add registry::type

lib/Dancer2/Plugin/JsonApi/Registry.pm

@@ -1,6 +1,9 @@
 package Dancer2::Plugin::JsonApi::Registry;
 
 use 5.32.0;
+use Dancer2::Plugin::JsonApi::Registry::Type;
+
+use Carp;
 
 use Moo;
 
@@ -22,7 +25,35 @@ sub serialize($self,$type,$data,$meta={}) {
     return {};
 }
 
+has types => (
+    is => 'ro',
+    default => sub { +{} },
+);
+
+=head2 add_type($type, $definition = {})
+
+Adds a data type to the registry.
+
+=cut
+
+sub add_type($self,$type,$definition={}) {
+    $self->{types}{$type} = Dancer2::Plugin::JsonApi::Registry::Type->new(
+        type => $type,
+        %$definition
+    );
+}
+
+=head2 type($type)
+
+Returns the type's C<Dancer2::Plugin::JsonApi::Registry::Type>. Throws an
+error if the type does not exist.
+
+=cut
+
+sub type($self,$type) {
+    return $self->types->{$type} || carp "type '$type' not found\n";
+}
+
 1;
 
 __END__
-

lib/Dancer2/Plugin/JsonApi/Registry/Type.pm

@@ -0,0 +1,10 @@
+package Dancer2::Plugin::JsonApi::Registry::Type;
+
+use Moo;
+
+has type => (
+    required => 1,
+    is       => 'ro',
+);
+
+1;