File Coverage

blib/lib/Mojolicious/Plugin/Sugar.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	2	4	50.0
condition	5	8	62.5
subroutine	8	8	100.0
pod	1	1	100.0
total	46	52	88.4

package Mojolicious::Plugin::Sugar;
use strict;
use warnings;

use Mojo::Base 'Mojolicious::Plugin';
use Scalar::Util qw(reftype);
use Data::Types qw(is_string);

our $VERSION = '0.002';

# ABSTRACT: Some sweet stuff for Mojolicious

sub register {
  my ( $self, $app ) = @_;

  $app->helper(
    'flash_add_to' => sub {
      my $c = shift;
      my $session = $c->session;

      # Initialize new flash and merge values
      my $flash = $session->{new_flash} ||= {};

      if ( @_ > 1 && is_string($_[0]) ) {
        my $key = shift;

        my $current_value = $flash->{$key};

        if ( defined $current_value && reftype($current_value) ne 'ARRAY' ) {
          $current_value = [ $current_value ];
        }

        foreach my $value (@_) {
          push @{ $current_value }, $value;
        }

        $flash->{$key} = $current_value;
      }
    }
  );

  $app->helper(
    'params' => sub {
      return shift->req->params;
    }
  );
}

1;


__END__