| 1 |
package WebHACC::Language::CSS; |
package WebHACC::Language::CSS; |
| 2 |
use strict; |
use strict; |
| 3 |
require WebHACC::Langauge::Base; |
require WebHACC::Language::Base; |
| 4 |
push our @ISA, 'WebHACC::Language::Base'; |
push our @ISA, 'WebHACC::Language::Base'; |
| 5 |
|
|
| 6 |
sub new ($) { |
sub new ($) { |
| 64 |
sub generate_structure_dump_section ($) { |
sub generate_structure_dump_section ($) { |
| 65 |
my $self = shift; |
my $self = shift; |
| 66 |
|
|
| 67 |
my $out = $self->input; |
my $out = $self->output; |
| 68 |
$out->start_section (id => 'document-tree', title => 'Document Tree', |
$out->start_section (id => 'document-tree', title => 'Document Tree', |
| 69 |
short_title => 'Tree'); |
short_title => 'Tree'); |
| 70 |
|
|
| 71 |
$out->start_code_block; |
$out->start_code_block; |
| 72 |
$out->text ($cssom->css_text); |
$out->text ($self->{structure}->css_text); |
| 73 |
$out->end_code_block; |
$out->end_code_block; |
| 74 |
|
|
| 75 |
$out->end_section; |
$out->end_section; |
| 85 |
|
|
| 86 |
$self->result->add_error (level => 'u', |
$self->result->add_error (level => 'u', |
| 87 |
layer => 'structure', |
layer => 'structure', |
| 88 |
|
input => $self->input, |
| 89 |
type => 'CSSOM validation not supported'); |
type => 'CSSOM validation not supported'); |
| 90 |
|
|
| 91 |
$out->end_tag ('dl'); |
$out->end_tag ('dl'); |