File Coverage

lib/Mojolicious/Plugin/BootstrapAlerts.pm

Criterion	Covered	Total	%
statement	58	58	100.0
branch	22	22	100.0
condition	18	18	100.0
subroutine	8	8	100.0
pod	1	1	100.0
total	107	107	100.0

package Mojolicious::Plugin::BootstrapAlerts;

# ABSTRACT: Bootstrap alerts for your web app

use strict;
use warnings;

use parent 'Mojolicious::Plugin';

use Mojo::ByteStream;

our $VERSION = 0.07;

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

    my $dismissable = !(exists $config->{dismissable} and $config->{dismissable} == 0 );

    $app->helper( notify => sub {
        my $c = shift;
        push @{ $c->stash->{__NOTIFICATIONS__} }, [ @_ ];
    } );

    $app->helper( notifications => sub {
        my $c = shift;

        my $output = '';

        for my $notification ( @{ $c->stash('__NOTIFICATIONS__') || [] } ) {
            my ($type, $message, $config) = @{ $notification };

            if ( 'HASH' ne ref $config ) {
                $config = {};
            }

            my ($dismissable_class, $dismissable_button) = ("","");
            if ( $config->{dismissable} || (!exists $config->{dismissable} && $dismissable) ) {
                $dismissable_class  = 'alert-dismissable';
                $dismissable_button = '×';
            }

            if ( ref $message and ref $message eq 'ARRAY' ) {
                my $items     = join '', map{ "$_" }@{ $message };
                my $list_type = $config->{ordered_list} ? 'ol' : 'ul';

                $message = "<$list_type>$items";
            }

            $type = 'danger' if $type eq 'error';

            $output .= qq~

                    $dismissable_button
                    $message

            ~;
        }

        return Mojo::ByteStream->new( $output );
    } );

    my $selector = $config->{before} || $config->{after};
    if ( $config->{auto_inject} && $selector ) {
        $app->hook( after_render => sub {
            my ($c, $content, $format) = @_;

            return if $format ne 'html';

            my $notifications = $c->notifications->to_string;

            return if !$notifications;

            my $dom     = Mojo::DOM->new( ${$content} );
            my $element = $dom->find( $selector )->first;

            if ( !$element ) {
                $c->app->log->debug( 'no matching element found (' . $selector . ')' );
                return;
            }

            my @elems         = $config->{before} ? ($notifications, "$element") : ("$element", $notifications);
            my $replacement   = sprintf "%s%s", @elems;
            my $temp          = "$element";

            ${$content}       =~ s/\Q$temp\E/$replacement/;
        });
    }
}

1;

__END__