13 lines
231 B
Perl
13 lines
231 B
Perl
|
package Pear::LocalLoop::Controller::Api::Info;
|
||
|
|
use Mojo::Base 'Mojolicious::Controller';
|
||
|
|
|
||
|
|
sub get_ages {
|
||
|
|
my $c = shift;
|
||
|
|
|
||
|
|
my $ages = $c->schema->resultset('AgeRange');
|
||
|
|
|
||
|
|
$c->render( json => { ages => [ $ages->all ] } );
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|