File Coverage

blib/lib/Mojolicious/Plugin/UniqueTagHelpers.pm

Criterion	Covered	Total	%
statement	49	49	100.0
branch	18	22	81.8
condition	17	22	77.2
subroutine	8	8	100.0
pod	1	1	100.0
total	93	102	91.1

package Mojolicious::Plugin::UniqueTagHelpers;
use Mojo::Base 'Mojolicious::Plugin';
use Mojo::Util 'md5_sum';
use Encode qw(encode_utf8);

our $VERSION = '1.3';

sub _block {
    ref $_[0] eq 'CODE' ? $_[0]() :
    defined $_[0]       ? "$_[0]" :
                          ''
}

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

    $conf ||= {};
    $conf->{max_key_length} //= 256;

    $app->helper(stylesheet_for => sub {
        my ($c, $name, $content) = @_;
        $name ||= 'content';

        my $hash = $c->stash->{'uniquetaghelpers.stylesheet'} ||= {};
        if( defined $content ) {
            $hash->{$name} ||= {};
            my $key = _block($content);
            $key    = md5_sum( encode_utf8($key) )
                if $conf->{max_key_length} < length $key;

            return $c->content( $name ) if exists $hash->{$name}{$key};
            $hash->{$name}{$key} = 1;

            $c->content_for( $name => $c->stylesheet($content) );
        }
        return $c->content( $name );
    });

    $app->helper(javascript_for => sub {
        my ($c, $name, $content) = @_;
        $name ||= 'content';

        my $hash = $c->stash->{'uniquetaghelpers.javascript'} ||= {};
        if( defined $content ) {
            $hash->{$name} ||= {};
            my $key = _block($content);
            $key    = md5_sum( encode_utf8($key) )
                if $conf->{max_key_length} < length $key;

            return $c->content( $name ) if exists $hash->{$name}{$key};
            $hash->{$name}{$key} = 1;

            $c->content_for( $name => $c->javascript($content) );
        }
        return $c->content( $name );
    });

    $app->helper(unique_for => sub {
        my ($c, $name, $content) = @_;
        $name ||= 'content';

        my $hash = $c->stash->{'uniquetaghelpers.unique'} ||= {};
        if( defined $content ) {
            $hash->{$name} ||= {};
            my $key = _block($content);
            $key    = md5_sum( encode_utf8($key) )
                if $conf->{max_key_length} < length $key;

            return $c->content( $name ) if exists $hash->{$name}{$key};
            $hash->{$name}{$key} = 1;

            $c->content_for( $name => $content );
        }
        return $c->content( $name );
    });
}

1;
__END__