File Coverage

lib/Mojolicious/Plugin/JSLoader.pm

Criterion	Covered	Total	%
statement	71	73	97.2
branch	45	58	77.5
condition	18	26	69.2
subroutine	10	10	100.0
pod	1	1	100.0
total	145	168	86.3

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.06;

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] && $_[1]->{inplace} ) {
            my ($file,$config) = @_;
            my $local_base = $config->{no_base} ? '' : $base;

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

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

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

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

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

        my $load_js = join "\n",
                      map{
                          my ($file,$config) = @{ $_ };
                          my $local_base = $config->{no_base} ? '' : $base;

                          $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;
                          }

                          $config->{no_file} ?
                              qq~$file~ :
                              qq~~;
                      }
                      @{ $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 );

    return if !$ua;

    my $name    = $ua->name;
    my $browser = $config->{browser};

    if ( !exists $browser->{$name} && !exists $browser->{default} ) {
        return;
    }
    elsif ( !exists $browser->{$name} && exists $browser->{default} ) {
        return 1;
    }

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

    return if !defined $version;

    if ( !$op || ( $op ne 'gt' and $op ne 'lt' and $op ne '!' ) ) {
        return version->parse( $ua->v ) == version->parse( $version );
    }
    elsif ( $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;
}

1;

__END__