From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

JJNAPIORK / Valiant-0.002017 / lib / Catalyst / View / Valiant / JSONBuilder.pm 

            

              
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

              
package Catalyst::View::Valiant::JSONBuilder;
use Moo;
use Carp;
use Module::Runtime 'use_module';
extends 'Catalyst::View::BasePerRequest';
our $MODEL_BUILDER = 'Valiant::JSON::JSONBuilder';
has 'model_builder' => (
  is=>'ro',
  required=>1,
  default=>sub { $MODEL_BUILDER },
);
sub get_model_for_json {
  my ($self, $name) = @_;
  return $self->to_model if $self->can('to_model');
  return $self->get_attribute_for_json($name) if $self->can('get_attribute_for_json');
  return $self->$name if $self->can($name);
  croak "Can't find model for $name";
}
sub json_builder {
  my ($self, $model) = @_;
  return my $jb = use_module($self->model_builder)->new(view => $self, model=>$model);
}
sub render {
  my ($self, $c, @args) = @_;
  my $jb = $self->render_json($c, @args);
  return $jb->render_json;
}
__PACKAGE__->config(content_type=>'application/json');
=head1 NAME
Catalyst::View::Valiant::JSONBuilder - Per Request, JSON view that wraps a model
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 ATTRIBUTES
This class inherits all of the attributes from L<Catalyst::View::BasePerRequest>
=head1 METHODS
This class inherits all of the methods from L<Catalyst::View::BasePerRequest> as well as:
=head1 EXPORTS
=head1 SUBCLASSING
You can subclass this view in order to provide your own default behavior and additional methods.
=head1 SEE ALSO
  
L<Catalyst::View>, L<JSON::MaybeXS>, L<Catalyst::View::BasePerRequest>
=head1 AUTHOR
  
See L<Valiant>
=head1 COPYRIGHT & LICENSE
  
See L<Valiant>
=cut