package LATMOS::Accounts::Web::Controller::Json; use Moose; use namespace::autoclean; BEGIN { extends 'Catalyst::Controller'; } =head1 NAME LATMOS::Accounts::Web::Controller::Json - Catalyst Controller =head1 DESCRIPTION Catalyst Controller. =head1 METHODS =cut =head2 index =cut sub index :Path :Args(0) { my ( $self, $c ) = @_; $c->response->body('Matched LATMOS::Accounts::Web::Controller::Json in Json.'); } sub end : Private { my ( $self, $c ) = @_; $c->stash->{data} ||= {}; $c->forward($c->view('Json')); } =encoding utf8 =head1 AUTHOR olivier =head1 LICENSE This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut __PACKAGE__->meta->make_immutable; 1;