File Coverage

lib/Mojolicious/Plugin/JSLoader.pm

Criterion	Covered	Total	%
statement	77	77	100.0
branch	62	62	100.0
condition	10	10	100.0
subroutine	10	10	100.0
pod	1	1	100.0
total	160	160	100.0

package Mojolicious::Plugin::JSLoader;

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

use strict;
use warnings;

use parent 'Mojolicious::Plugin';

use HTML::ParseBrowser;
use Mojo::ByteStream;
use version 0.77;

our $VERSION = '0.08';

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

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

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

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

        return '' unless _match_browser($c, @_);

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

            return '' if !$asset;
        }

        if ( $_[1]->{inplace} ) {
            my ($file,$config) = @_;
            my $local_base = $config->{no_base} ? '' : $base;

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

            $config->{no_file} = 1 if $config->{js};

            my $js = $config->{no_file} ?
                qq~$file~ :
                qq~~;
            return Mojo::ByteStream->new( $js );
        }

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

        return 1;
    } );

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

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

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

                     $file //= '';

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

                     $config->{no_file} = 1 if $config->{js};

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

                     if ( $config->{no_file} and $config->{on_ready} ) {
                         $file = sprintf '$(document).ready( function(){%s});', $file;
                     }

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

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

        return if !$load_js;

        ${$content} =~ s!()|\z)!$load_js$1!;
    });
}

sub _match_browser {
    my ($c,$file,$config) = @_;

    return 1 if !$config;
    return 1 if ref $config ne 'HASH';
    return 1 if !$config->{browser};
    return 1 if ref $config->{browser} ne 'HASH';

    my $ua_string = $c->req->headers->user_agent;
    my $ua        = HTML::ParseBrowser->new( $ua_string );
    my $name      = $ua->name;
    my $browser   = $config->{browser};

    if ( !exists $browser->{$name} ) {
        return exists $browser->{default} ? 1 : '';
    }

    my ($op,$version) = $browser->{$name} =~ m{\A\s*([lg]t|!)?\s*([0-9\.]+)};

    return if !defined $version;

    $op = '' if !defined $op;

    if ( $op eq 'gt' ) {
        return version->parse( $version ) <= version->parse( $ua->v );
    }
    elsif ( $op eq 'lt' ) {
        return version->parse( $version ) >= version->parse( $ua->v );
    }
    elsif ( $op eq '!' ) {
        return version->parse( $version ) != version->parse( $ua->v );
    }

    return version->parse( $ua->v ) == version->parse( $version );
}

1;

__END__