File Coverage

blib/lib/JQuery/TableSorter.pm

Criterion	Covered	Total	%
statement	12	75	16.0
branch	0	16	0.0
condition	0	3	0.0
subroutine	4	11	36.3
pod	3	7	42.8
total	19	112	16.9

package JQuery::TableSorter ;

our $VERSION = '1.00';

use warnings;
use strict;

use HTML::Table ;
use JQuery::CSS ;

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

    bless $my, $class;

    my $jquery = $my->{param}{addToJQuery} ;
    my $jqueryDir = $jquery->getJQueryDir ;
    $my->{fileDir} = "$jqueryDir/plugins" ;

    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 HTML {
    my $my = shift ;
    my $data = $my->{param}{'data'} ;
    if (!defined $data) {
	die "TableSorter: No data field supplied\n" ;
    }
    my @data = @{$data} ;
    my $head = shift @data ;
    my $tile = new HTML::Table(-spacing=>0,-head=>$head ,-data=>\@data) ;
    my $id = $my->{param}{'id'} ;
    $tile =~ s!!! ;  !! ;  




58




0





 





 





 





 





 



     $tile =~ s!




59




0





 





 





 





 





 



     $tile =~ s!




60




0





 





 





 





 





 



     $tile =~ s!!
    $tile =~ s!
    $tile =~ s!
    $tile =~ s!