File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/CSS/Adaptor/Debug.pm
Back
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 <cal@iamcal.com> =head1 SEE ALSO L<CSS>, L<CSS::Adaptor> =cut
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.05 |
proxy
|
phpinfo
|
Settings