File Coverage

blib/lib/Mojolicious/Plugin/Notifications/JSON.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	16	20	80.0
condition	15	23	65.2
subroutine	3	3	100.0
pod	2	2	100.0
total	64	76	84.2

package Mojolicious::Plugin::Notifications::JSON;
use Mojo::Base 'Mojolicious::Plugin::Notifications::Engine';

# TODO:
#   Probably introduce a notify_json function

has key => 'notifications';

# Nothing to register
sub register {
  my ($plugin, $app, $param) = @_;
  $plugin->key($param->{key}) if $param->{key};
};


# Notification method
sub notifications {
  my ($self, $c, $notify_array, $rule, $json, %param) = @_;

  my $key = $param{key} // $self->key;

  return $json unless @$notify_array;

  if (!$json || ref $json) {
    my @msgs;
    foreach (@$notify_array) {

      # Confirmation message
      if (ref $_->[1] && ref $_->[1] eq 'HASH' &&
            ($_->[1]->{ok} || $_->[1]->{cancel} || $_[1]->{confirm})) {
        my $param = $_->[1];

        my $opt = {};

        # Set confirmation path
        if ($param->{confirm}) {
          $opt->{$param->{confirm_label} // 'confirm'} = {
            method => 'GET',
            url => $param->{confirm}
          };
        }

        else {
          # Set confirmation path
          if ($param->{ok}) {
            $opt->{$param->{ok_label} // 'ok'} = {
              method => 'POST',
              url => $param->{ok}
            };
          }

          # Set cancelation path
          if ($param->{cancel}) {
            $opt->{$param->{cancel_label} // 'cancel'} = {
              method => 'POST',
              url => $param->{cancel}
            };
          };
        };

        push @msgs, [$_->[0], ''.$_->[-1], $opt];
      }

      # Normal notification
      else {
        push(@msgs, [$_->[0], ''.$_->[-1]]);
      };
    };

    if (!$json) {
      return { $key => \@msgs }
    }

    # Obect is an array
    elsif (index(ref $json, 'ARRAY') >= 0) {
      push(@$json, { $key => \@msgs });
    }

    # Object is a hash
    elsif (index(ref $json, 'HASH') >= 0) {
      my $n = ($json->{$key} //= []);
      push(@$n, @msgs);
    };
  };

  return $json;
};


1;


__END__