Yet Another CPAN Grep

Mojolious-Plugin-REST2 ( P/PE/PEKINGSAM/Mojolious-Plugin-REST2-1.001.tar.gz, PEKINGSAM, 2015; MetaCPAN )

Mojolious-Plugin-REST2/lib/Mojolicious/Plugin/REST2.pm ( view source; MetaCPAN )

     my $json = $c->stash('json');
          unless ( defined $json->{data} ) {
            $json->{data} = {};
          }
          unless ( defined $c->match->stack->[0]){
            $json->{messa

ash( 'json' => $json );
        }
      }
    );
  }

  $app->helper( data => sub{
    my $self = shift;
    my %data = ref $_[0] ? %{ $_[0] } : @_;
    my $json = $self->stash('json');
    $json = {

data => {}, message => [] } unless defined $json;
    @{ $json->{ data } }{ keys %data } = values %data;
    $self->stash( json => $json );
    return $self;
  });

  $app->helper( message => sub {