File Coverage

lib/Mojolicious/Plugin/CSSLoader.pm

Criterion	Covered	Total	%
statement	61	61	100.0
branch	38	38	100.0
condition	14	14	100.0
subroutine	6	6	100.0
pod	1	1	100.0
total	120	120	100.0

package Mojolicious::Plugin::CSSLoader;

# ABSTRACT: move css loading to the end of the document

use strict;
use warnings;

use parent 'Mojolicious::Plugin';

our $VERSION = '0.08';

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

    my $base  = $config->{base}  || '';
    my $media = $config->{media} || '';

    if ( $base and substr( $base, -1 ) ne '/' ) {
        $base .= '/';
    }

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

        if ( $_[1]->{check} ) {
            my $asset = $c->app->static->file(
                $_[1]->{no_base} ? $_[0] : "$base$_[0]"
            );

            return '' if !$asset;
        }

        push @{ $c->stash->{__CSSLOADERFILES__} }, [ @_ ];
    } );

    $app->hook( after_render => sub {
        my ($c, $content, $format) = @_;

        return if $format ne 'html';
        return if !$c->stash->{__CSSLOADERFILES__};
        return if 'ARRAY' ne ref $c->stash->{__CSSLOADERFILES__};

        my $load_css =
            join "\n",
                map{
                    my ($file,$config) = @{ $_ };
                    $file //= '';

                    my $local_base  = $config->{no_base} ? '' : $base;

                    $local_base  = $c->url_for( $local_base ) if $local_base;

                    my $local_media = "";

                    $local_media = ' media="' . $media . '"'           if $media;
                    $local_media = ' media="' . $config->{media} . '"' if $config->{media};

                    my $ie_start = '';
                    my $ie_end   = '';

                    if ( exists $config->{ie} ) {
                        my $start_extra = '';
                        my $end_extra   = '';
                        my $cmp         = '';
                        my $version     = '';

                        if ( !ref $config->{ie} && !$config->{ie} ) {
                            $start_extra = '';
                            $end_extra   = '", $end_extra;
                    }

                    my $return = $config->{no_file} ?
                         qq~$ie_start$file$ie_end~ :
                         qq~$ie_start$ie_end~;

                    $file ? $return : ();
                }
                @{ $c->stash->{__CSSLOADERFILES__} };

        return if !$load_css;

        ${$content} =~ s!()!$load_css$1! or ${$content} = $load_css . ${$content};
    });
}

1;

__END__