Yet Another CPAN Grep

App-Notifier-Service ( S/SH/SHLOMIF/App-Notifier-Service-0.0902.tar.gz, SHLOMIF, 2021; MetaCPAN )

App-Notifier-Service/lib/App/Notifier/Service.pm ( view source; MetaCPAN )

ct;
use warnings;

use Mojolicious::Lite;
use Plack::Builder;

use File::Spec ();
use JSON::MaybeXS qw( decode_json );
use YAML::XS qw( LoadFile );
use List::MoreUtils qw();

use POSIX ":sys_wait_h";

arams = {};
    if ( defined( my $text_params_as_json = $c->req->param('text_params') ) )
    {
        $text_params = decode_json($text_params_as_json);
        if ( ref($text_params) ne 'HASH' )

     {
            return "Invalid text_params - should be a JSON hash.\n";
        }
        elsif ( List::MoreUtils::any { ref($_) ne '' } values(%$text_params) )
        {
            return "Inval