File Coverage

blib/lib/Dancer2/Plugin/Growler.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	8	8	100.0
condition	2	3	66.6
subroutine	9	9	100.0
pod			n/a
total	50	51	98.0

package Dancer2::Plugin::Growler;

use strict;
use warnings;

use Dancer2::Plugin;

$Dancer2::Plugin::Growler::VERSION = '0.01';

sub _growl {
    my ( $dsl, $msg, $args ) = @_;
    $dsl->app->session->write( 'growls', [] ) if !$dsl->app->session->read('growls');
    if ( exists $args->{delay} ) {
        if ( !defined $args->{delay} || $args->{delay} < 1 ) {
            $args->{allow_dismiss} = 1;
        }

        # else {
        #     # ?TODO/YAGNI?: enforce a sane default if too low?
        # }
    }
    push @{ $dsl->app->session->read('growls') }, { message => $msg, options => $args };
}

register growl => \&_growl;

register growl_info => sub {
    $_[2]->{type} = 'info';
    goto &_growl;
};

register growl_success => sub {
    $_[2]->{type} = 'success';
    goto &_growl;
};

register growl_warning => sub {
    $_[2]->{type} = 'warning';
    goto &_growl;
};

register growl_error => sub {
    $_[2]->{type} = 'danger';
    goto &_growl;
};

register growls => sub {
    my $dsl = shift;
    return if !$dsl->app->session->read('growls');
    my @growls = @{ $dsl->app->session->read('growls') };
    @{ $dsl->app->session->read('growls') } = ();
    return \@growls;
};

on_plugin_import {
    my $dsl = shift;

    # TODO 2: Is there a better way to add template keyword?
    $dsl->app->add_hook(

        # ?TODO/YAGNI? do growl() and growl_*() in TT also?
        Dancer2::Core::Hook->new(
            name => 'before_template_render',
            code => sub { $_[0]->{growls} ||= growls( $dsl, @_ ) },
        )
    );
};

register_plugin;

1;

__END__