File Coverage

blib/lib/Waft/JS.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	2	0.0
total	43	49	87.7

package Waft::JS;

use 5.005;
use strict;
use vars qw( $VERSION );
BEGIN { eval { require warnings } ? 'warnings'->import : ( $^W = 1 ) }

require NEXT;

$VERSION = '0.00_01';
$VERSION = eval $VERSION;

$Waft::JS::Name = 'Waft.JS';

sub convert_text_part {
    my ($self, $text_part, $break) = @_;

    my @text_parts
        = split /\b \Q$Waft::JS::Name\E \. /xms, $text_part;

    my $code = $self->NEXT::convert_text_part( shift(@text_parts), $break );

    while ( @text_parts ) {
        my $text_part = shift @text_parts;

        ( my $method, $text_part ) = split / \b /xms, $text_part, 2;

        if ($method eq 'make_url' or $method eq 'url') {
            $code .= q{$Waft::Self->output_js_make_url_script;};
        }

        $code .= $self->NEXT::convert_text_part($text_part, $break);
    }

    return $code;
}

sub output_js_make_url_script {
    my ($self) = @_;

    my $base_url = $self->jsstr_escape($self->get_base_url);
    my $page = $self->jsstr_escape($self->page);

    my $v = q{};
    my $value_hashref = $self->value_hashref;
    while ( my ($key, $values_arrayref) = each %$value_hashref ) {
        $key = $self->jsstr_escape($key);
        my @values = map { qq{'$_'} } $self->jsstr_escape(@$values_arrayref);
        $v .= q{v['} . $key . q{'] = [} . join(q{, }, @values) . q{];};
    }

    my $javascript = qq{( function (page, keys, data) {
        var base_url = '$base_url';
        var query_string = '';

        if (page == undefined) page = 'default.html';
        else if (page == 'CURRENT') page = '$page';

        if (page != 'default.html') {
            query_string
                = '?p=' + encodeURIComponent(page).replace(/%20/g, '+');
        }

        var v = {}; $v

        if (keys == undefined)
        return base_url + query_string;

        if (keys.constructor == Object) {
            data = keys;
            keys = [];
        }
        else if (keys == 'ALL_VALUES') {
            keys = [];
            for ( var key in v ) {
                keys.push(key);
            }
        }

        var keep = {};

        for ( var i = 0; i < keys.length; i++ ) {
            if ( v[ keys[i] ] != undefined )
            keep[ keys[i] ] = v[ keys[i] ];
        }

        if ( data ) {
            for ( var key in data ) {
                keep[key] = data[key];
            }
        }

        var escape_space_percent_hyphen = function (val) {
            if ( typeof val != 'string' )
            return val;

            val = val.replace(/%/g, '%25');
            val = val.replace(/ /g, '%20');
            val = val.replace(/-/g, '%2D');

            return val;
        };

        keys = [];

        for ( var key in keep ) {
            keys.push(key);

            if (keep[key].constructor == Array) {
                var val = '';

                for ( var i = 0; i < keep[key].length; i++ ) {
                    val += '-' + escape_space_percent_hyphen(keep[key][i]);
                }

                keep[key] = val;
            }
            else {
                keep[key] = '-' + escape_space_percent_hyphen(keep[key]);
            }
        }

        keys.sort();

        var joined_values = '';

        for ( var i = 0; i < keys.length; i++ ) {
            if (joined_values != '') joined_values += ' ';

            joined_values += escape_space_percent_hyphen(keys[i])
                             + keep[ keys[i] ];
        }

        if (joined_values == '')
        return base_url + query_string;

        query_string += query_string == '' ? '?' : '&';

        query_string
            += 'v=' + encodeURIComponent(joined_values).replace(/%20/g, '+');

        return base_url + query_string;
    } )};

    $javascript =~ s/ (?: \x0D\x0A | [\x0A\x0D] ) \s* / /gxms;

    $self->output($javascript);

    return;
}

1;
__END__