File Coverage

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

Criterion	Covered	Total	%
statement	39	39	100.0
branch	15	16	93.7
condition	11	13	84.6
subroutine	7	7	100.0
pod	2	2	100.0
total	74	77	96.1

package Mojolicious::Plugin::Notifications::HTML;
use Mojo::Base 'Mojolicious::Plugin::Notifications::Engine';
use Exporter 'import';
use Mojo::Util qw/xml_escape/;
use Scalar::Util qw/blessed/;
use Mojo::ByteStream 'b';

our @EXPORT_OK = ('notify_html');

# TODO:
#   Make the form have a class instead of the button!

# TODO:
#   Maybe make the buttons be part of a single form.

# TODO:
#   Add a redirect URL with ClosedRedirect, so it's ensured
#   a redirect won't be misused.

# Exportable function
sub notify_html {
  my $c = shift if blessed $_[0] && $_[0]->isa('Mojolicious::Controller');
  my $type = shift;
  my $param = shift if ref $_[0] && ref $_[0] eq 'HASH';
  my $msg = pop;

  my $str = qq{};
  $str .= blessed $msg && $msg->isa('Mojo::ByteStream') ? $msg : xml_escape($msg);

  # Check for confirmation
  if ($param) {

    # Okay path is defined
    if ($param->{ok}) {
      $str .= '';
      $str .= $c->csrf_field if $c;
      $str .= '' . ($param->{ok_label} // 'OK') . '';
      $str .= '';
    };

    # Cancel path is defined
    if ($param->{cancel}) {
      $str .= '';
      $str .= $c->csrf_field if $c;
      $str .= '' . ($param->{cancel_label} // 'Cancel') . '';
      $str .= '';
    };
  };
  return $str . "\n";
};


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

  my $html = '';
  foreach (@$notify_array) {
    $html .= notify_html($c, @{$_});
  };

  return b($html);
};


1;


__END__