File Coverage

blib/lib/CSS/Adaptor/Debug.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	4	4	100.0
total	34	34	100.0

package CSS::Adaptor::Debug;

$VERSION = 1.01;

use CSS::Adaptor;
@ISA = qw(CSS::Adaptor);

use strict;
use warnings;

my $DIV_LINE = ('-'x50)."\n";

sub output_rule {
	my ($self, $rule) = @_;
	return "NEW RULE\n".$DIV_LINE.$rule->selectors.$rule->properties.$DIV_LINE."\n";
}

sub output_selectors {
        my ($self, $selectors) = @_;
        return "SELECTORS:\n".join('', map {"\t".$_->{name}."\n"} @{$selectors})."\n";
}

sub output_properties {
        my ($self, $properties) = @_;
        return "PROPERTIES:\n".join('', map {"\t".$_->{property}.":\t".$_->values.";\n"} @{$properties})."\n";
}

sub output_values {
        my ($self, $values) = @_;
        return join '', map {$_->{value}} @{$values};
}


1;

__END__

=head1 NAME

CSS::Adaptor::Debug - An example adaptor for debugging CSS.

=head1 SYNOPSIS

  use CSS;
  ...

=head1 DESCRIPTION

This class implements a CSS::Adaptor object to display a
stylesheet in  'debugging' style.

=head1 AUTHORS

Copyright (C) 2003-2004, Cal Henderson <[e-mail]>

=head1 SEE ALSO

L<CSS>, L<CSS::Adaptor>

=cut