/[suikacvs]/markup/html/whatpm/Whatpm/ContentChecker.pm
Suika

Diff of /markup/html/whatpm/Whatpm/ContentChecker.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.104 by wakaba, Sat Dec 6 12:20:08 2008 UTC revision 1.105 by wakaba, Fri Dec 12 11:50:47 2008 UTC
# Line 224  our %AnyChecker = ( Line 224  our %AnyChecker = (
224    ## NOTE: |check_start| is invoked before anything on the element's    ## NOTE: |check_start| is invoked before anything on the element's
225    ## attributes and contents is checked.    ## attributes and contents is checked.
226    check_start => sub { },    check_start => sub { },
227    ## NOTE: |check_attrs| is invoked after |check_start| and before    ## NOTE: |check_attrs| and |check_attrs2| are invoked after
228    ## anything on the element's contents is checked.    ## |check_start| and before anything on the element's contents is
229      ## checked.  |check_attrs| is invoked immediately before
230      ## |check_attrs2|.
231    check_attrs => sub {    check_attrs => sub {
232      my ($self, $item, $element_state) = @_;      my ($self, $item, $element_state) = @_;
233      for my $attr (@{$item->{node}->attributes}) {      for my $attr (@{$item->{node}->attributes}) {
# Line 260  our %AnyChecker = ( Line 262  our %AnyChecker = (
262        $self->_attr_status_info ($attr, $status);        $self->_attr_status_info ($attr, $status);
263      }      }
264    },    },
265      check_attrs2 => sub { },
266    ## NOTE: |check_child_element| is invoked for each occurence of    ## NOTE: |check_child_element| is invoked for each occurence of
267    ## child elements.  It is invoked after |check_attrs| and before    ## child elements.  It is invoked after |check_attrs| and before
268    ## |check_end|.  |check_child_element| and |check_child_text| are    ## |check_end|.  |check_child_element| and |check_child_text| are
# Line 652  next unless $code;## TODO: temp. Line 655  next unless $code;## TODO: temp.
655        my @new_item;        my @new_item;
656        push @new_item, [$eldef->{check_start}, $self, $item, $element_state];        push @new_item, [$eldef->{check_start}, $self, $item, $element_state];
657        push @new_item, [$eldef->{check_attrs}, $self, $item, $element_state];        push @new_item, [$eldef->{check_attrs}, $self, $item, $element_state];
658          push @new_item, [$eldef->{check_attrs2}, $self, $item, $element_state];
659                
660        my @child = @{$item->{node}->child_nodes};        my @child = @{$item->{node}->child_nodes};
661        while (@child) {        while (@child) {
Legend:
Removed from v.1.104  
changed lines
  Added in v.1.105
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24