72 lines
1.5 KiB
Perl
72 lines
1.5 KiB
Perl
use 5.38.0;
|
|
|
|
package Dancer2::Plugin::JsonApi;
|
|
|
|
use Dancer2::Plugin::JsonApi::Registry;
|
|
use Dancer2::Plugin;
|
|
use Dancer2::Serializer::JsonApi;
|
|
|
|
use experimental qw/ try /;
|
|
|
|
has registry => (
|
|
plugin_keyword => 'jsonapi_registry',
|
|
is => 'ro',
|
|
default => sub ($self) {
|
|
Dancer2::Plugin::JsonApi::Registry->new( app => $self->app );
|
|
}
|
|
);
|
|
|
|
sub jsonapi : PluginKeyword ( $plugin, $type, $sub ) {
|
|
|
|
return sub {
|
|
my $result = $sub->();
|
|
|
|
return [
|
|
$type => $result,
|
|
{ vars => $plugin->app->request->vars,
|
|
request => $plugin->app->request
|
|
}
|
|
];
|
|
};
|
|
}
|
|
|
|
sub BUILD ( $self, @ ) {
|
|
my $serializer = do {
|
|
try { $self->app->serializer_engine } catch ($e) {
|
|
}
|
|
};
|
|
|
|
unless ($serializer) {
|
|
$self->app->set_serializer_engine(
|
|
Dancer2::Serializer::JsonApi->new );
|
|
$serializer = $self->app->serializer_engine;
|
|
|
|
}
|
|
|
|
$serializer->registry( $self->registry )
|
|
if ref $serializer eq 'Dancer2::Serializer::JsonApi';
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
Dancer2::Plugin::JsonAPI
|
|
|
|
=head2 DESCRIPTION
|
|
|
|
If the serializer is not already explicitly set, the plugin will configure it to be L<Dancer2::Serializer::JsonApi>.
|
|
|
|
=head2 SEE ALSO
|
|
|
|
=over
|
|
|
|
=item * The L<JSON:API|https://jsonapi.org> specs, natch.
|
|
|
|
=item * L<json-api-serializer|https://www.npmjs.com/package/json-api-serializer> My go to for serializing JSON API documents in JavaScript-land. Also, inspiration for this module.
|
|
|
|
=back
|
|
|