File Coverage

blib/lib/Waft/jQuery.pm

Criterion	Covered	Total	%
statement	43	44	97.7
branch	4	6	66.6
condition			n/a
subroutine	9	10	90.0
pod	0	6	0.0
total	56	66	84.8

package Waft::jQuery;

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::jQuery::Name = 'Waft.jQuery';

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

    my @text_parts
        = split /\b \Q$Waft::jQuery::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 'get') {
            $code .= q{$Waft::Self->output_jquery_request_script('get');};
        }
        elsif ($method eq 'post') {
            $code .= q{$Waft::Self->output_jquery_request_script('post');};
        }

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

    return $code;
}

sub output_jquery_request_script {
    my ($self, $method) = @_;

    my $page = $self->jquery_escape($self->page);
    my $joined_values
        = $self->jquery_escape( $self->join_values('ALL_VALUES') );
    my $url = $self->jquery_escape($self->url);

    my $javascript = qq{( function (action, data, callback, type) {
        if ( jQuery.isFunction(data) ) {
            callback = data;
            data = {};
        }
        else if (data == undefined) {
            data = {};
        }

        var waft_v_tag = jQuery('input:hidden[name=\\'v\\']').get(0);

        data['s'] = '$page';
        data['v'] = waft_v_tag ? jQuery(waft_v_tag).val() : '$joined_values';
        data[action] = '';

        return jQuery.$method('$url', data, callback, type);
    } )};

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

    $self->output($javascript);

    return;
}

sub jquery_escape {
    my ($self, $value) = @_;

    $value =~ s/ (['"\\]) /\\$1/gxms;
    $value =~ s/ \x0A /\\n/gxms;
    $value =~ s/ \x0D /\\r/gxms;
    $value =~ s/ < /\\x3C/gxms;
    $value =~ s/ > /\\x3E/gxms;

    return $value;
}

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

    $self->output($self->make_jquery_sync_script);

    return;
}

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

    my $joined_values
        = $self->jquery_escape( $self->join_values('ALL_VALUES') );
    my $javascript
        = qq{jQuery('input:hidden[name=\\'v\\']').val('$joined_values');};

    return $javascript;
}

sub jquery_sync_script { $_[0]->make_jquery_sync_script(@_[1 .. $#_]) }

1;
__END__