File Coverage

blib/lib/Mojolicious/Controller/REST.pm

Criterion	Covered	Total	%
statement	12	26	46.1
branch	2	4	50.0
condition	0	2	0.0
subroutine	2	5	40.0
pod	4	4	100.0
total	20	41	48.7

package Mojolicious::Controller::REST;

# ABSTRACT: Mojolicious Controller for RESTful operations
our $VERSION = '0.006'; # VERSION
use Mojo::Base 'Mojolicious::Controller';

sub data {
    my $self = shift;
    my %data = @_;

    my $json = $self->stash('json');

    if ( defined( $json->{data} ) ) {
        @{ $json->{data} }{ keys %data } = values %data;
    }
    else {
        $json->{data} = {%data};
    }

    $self->stash( json => $json );
    return $self;
}

sub message {
    my $self = shift;
    my ( $message, $severity ) = @_;

    $severity //= 'info';

    my $json = $self->stash('json');

    if ( defined( $json->{messages} ) ) {
        push( $json->{messages}, { text => $message, severity => $severity } );
    }
    else {
        $json->{messages} = [ { text => $message, severity => $severity } ];
    }

    $self->stash( json => $json );
    return $self;
}

sub message_warn { $_[0]->message( $_[1], 'warn' ) }

sub status {
    my $self   = shift;
    my $status = shift;
    $self->stash( 'status' => $status );
    return $self;
}

1;

__END__