File Coverage

blib/lib/Bootylicious/Plugin/AjaxLibLoader.pm

Criterion	Covered	Total	%
statement	9	40	22.5
branch	0	8	0.0
condition	0	12	0.0
subroutine	3	7	42.8
pod	1	1	100.0
total	13	68	19.1

package Bootylicious::Plugin::AjaxLibLoader;
use strict;
use warnings;
use base 'Mojolicious::Plugin';

our $VERSION = '0.05';

my %AjaxLibs = (
	'jquery' => [
		'1.3.2', 'http://ajax.googleapis.com/ajax/libs/jquery/%s/jquery.min.js'
	],
	'jqueryui' => [
		'1.7.2',
		'http://ajax.googleapis.com/ajax/libs/jqueryui/%s/jquery-ui.min.js'
	],
	'prototype' => [
		'1.6.0.3',
		'http://ajax.googleapis.com/ajax/libs/prototype/%s/prototype.js'
	],
	'scriptaculous' => [
		'1.8.2',
		'http://ajax.googleapis.com/ajax/libs/scriptaculous/%s/scriptaculous.js'
	],
	'mootools' => [
		'1.2.3',
'http://ajax.googleapis.com/ajax/libs/mootools/%s/mootools-yui-compressed.js'
	],
	'dojo' => [
		'1.3.1', 'http://ajax.googleapis.com/ajax/libs/dojo/%s/dojo/dojo.xd.js'
	],
	'swfobject' => [
		'2.2', 'http://ajax.googleapis.com/ajax/libs/swfobject/%s/swfobject.js'
	],
	'yui' => [
		'2.7.0',
'http://ajax.googleapis.com/ajax/libs/yui/%s/build/yuiloader/yuiloader-min.js'
	],
	'ext_core' => [
		'3.0.0', 'http://ajax.googleapis.com/ajax/libs/ext-core/%s/ext-core.js'
	],
);


sub register {
	my ( $self, $app, $args ) = @_;
	$args ||= {};
	$app->plugins->add_hook(
		after_dispatch => sub {
			shift;    #Skip Mojolicious::Plugins obj
			my $c = shift;
			my ( $is_load, $libs ) = $self->_to_load( $c, $args );
			return unless $is_load;
			$c->stash( 'libs_to_load' => $libs );
			my $load_html = $c->render_partial( 'ajax_load',
				template_class => 'Bootylicious::Plugin::AjaxLibLoader' );
			my $body = $c->res->body;
			$body =~ s/<[hH][eE][aA][dD]>/\n$load_html\n/;
			$c->res->body($body);
		  }

	);
}

sub _to_load {
	my $self = shift;
	my $c    = shift;
	my $args = shift || {};
	my $path = $c->req->url->path;
	$path =~ s/^\///;
	my @lib_to_load = ();
	foreach my $lib ( keys %AjaxLibs ) {
		if ( exists $args->{$lib} ) {
			my $path_for = $args->{ $lib . '_path' } || 'all';
			if ( $path_for eq 'all' or $path =~ /^(?:$path_for)/ ) {
				push(
					@lib_to_load,
					{
						'lib'     => $lib,
						'version' => $args->{ $lib . '_version' }
						  || $AjaxLibs{$lib}->[0]
					}
				);
			}

		}
	}

	my $is_load = scalar(@lib_to_load);
	return () unless $is_load;

	#build libs url
	foreach my $l (@lib_to_load) {
		$l->{'src_url'} = $self->_build_src_url($l);

	}

	return ( $is_load, \@lib_to_load );
}

sub _build_src_url {
	my $self = shift;
	my $data = shift;
	return sprintf( $AjaxLibs{ $data->{'lib'} }->[1], $data->{'version'} );
}

1;
__DATA__