File Coverage

blib/lib/JQuery/Form.pm

Criterion	Covered	Total	%
statement	6	32	18.7
branch	0	6	0.0
condition	0	3	0.0
subroutine	2	7	28.5
pod	1	5	20.0
total	9	53	16.9

package JQuery::Form ;

our $VERSION = '1.00';

use warnings;
use strict;


sub new {
    my $this = shift;
    my $class = ref($this) || $this;
    my $my ;
    %{$my->{param}} = @_ ;
    die "No id defined for Form" unless $my->{param}{id} =~ /\S/ ;

    bless $my, $class;

    if ($my->{param}{css}) {
	push @{$my->{css}},$my->{param}{css} ;
    }

    $my->add_to_jquery ;
    return $my ;
}

sub add_to_jquery {
    my $my = shift ;
    my $jquery = $my->{param}{addToJQuery} ;
    if (defined $jquery) {
	$jquery->add($my) ;
    }
}

sub id {
    my $my = shift ;
    return $my->{param}{id} ;
}


sub packages_needed {
    my $my = shift ;
    return ('taconite/jquery.taconite.js','form/jquery.form.js') ;
}


sub get_jquery_code {
    my $my = shift ;
    my $id = $my->id ;
    my $remoteProgram = $my->{param}{remoteProgram} ;

    my $function =<<'EOD';
$('#ID').ajaxForm(function() {
});
EOD
    $function =~ s/ID/$id/ ;
    return $function ;
}
1;

__END__