File Coverage

blib/lib/JQuery/CSS.pm

Criterion	Covered	Total	%
statement	12	50	24.0
branch	0	14	0.0
condition	0	12	0.0
subroutine	4	6	66.6
pod	2	2	100.0
total	18	84	21.4

package JQuery::CSS ;

our $VERSION = '1.00';

use strict ;
use warnings ;

use CSS ;
use Carp ;

sub new {
    my $this = shift;
    my $class = ref($this) || $this;
    my $my ;
    croak "Invalid number of argument" if @_ % 2 ;
    %{$my->{param}} = @_ ;
    carp "Must have file, hash or text" unless exists $my->{param}{file} or exists $my->{param}{hash} or exists $my->{param}{text} ;
    my $css = new CSS({'adaptor' => 'CSS::Adaptor::Pretty'});

    if (exists $my->{param}{file}) {
	my $file = $my->{param}{file} ;
    }
    if (exists $my->{param}{text}) {
	$css->read_string($my->{param}{text}) ;
    }
    if (exists $my->{param}{hash}) {
	my $text ;
	my $hash = $my->{param}{hash} ;
	for my $key (keys %$hash) {
	    $text .= "$key {" ;
	    my @subKeys = keys(%{$hash->{$key}}) ;
	    for my $subKey (@subKeys) {
		$text .= $subKey . ": " ;
		my $v = $hash->{$key}{$subKey} ;
		$text .= $v . "; " ;
	    }
	    $text .= "}\n" ;
	}
	$css->read_string($text) ;
    }

    $my->{css} = $css ;

    bless $my, $class;
    return $my ;
}

sub output_text {
    my $my = shift ;
    my $id = shift ;
    # This is a filename

    if (exists $my->{param}{file}) {
	my $fileName = $my->{param}{file} ;
	my $css = qq[\@import "$fileName";\n] ;
	return $css ;
    }

    if (exists $my->{param}{text} or exists $my->{param}{hash}) {
	my $css = $my->{css} ;
	my $result = qq[\n] . $css->output() . "" ;
	return $result ;
    }
}
1;
__END__