File Coverage

examples/sample-app/lib/RESTApp.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	36	37	97.3

package RESTApp;

use strict;
use warnings;

use feature 'say';

use FindBin '$Bin';
use lib ("$Bin/../lib", "$Bin/../../../lib");

use Raisin::API;

plugin 'Swagger';
middleware 'CrossOrigin',
    origins => '*',
    methods => [qw/DELETE GET HEAD OPTIONS PATCH POST PUT/],
    headers => [qw/accept authorization content-type api_key_token/];

plugin 'Logger', outputs => [['Screen', min_level => 'debug']];

app->log(debug => 'Loading Raisin...');

swagger_setup(
    title => 'Users & hosts API',
    description => 'An example of API documentation.',

    contact => {
        name => 'Artur Khabibullin',
        url => 'http://github.com/khrt',
        email => '[e-mail]',
    },

    license => {
        name => 'Perl license',
        url => 'http://dev.perl.org/licenses/',
    },
);

#before sub {
#    my $self = shift;
#    say 'Before ' . $self->req->method . q{ } . $self->req->path;
#};

mount 'RESTApp::Host';
mount 'RESTApp::User';

# Utils
sub paginate {
    my ($data, $params) = @_;

    my $max_count = scalar(@$data) - 1;
    my $start = _return_max($params->{start}, $max_count);
    my $count = _return_max($params->{count}, $max_count);

    my @slice = @$data[$start .. $count];
    \@slice;
}

sub _return_max {
    my ($value, $max) = @_;
    $value > $max ? $max : $value;
}

1;