Code Index:

package CSS::SAC::Selector::Sibling
EOF

NAME

CSS::SAC::Selector::Sibling - SAC SiblingSelector

SYNOPSIS

 see CSS::SAC::Selector

DESCRIPTION

This is a subclass of CSS::SAC::Selector, look there for more documentation. This class adds the methods described below.

This subclass also defines the constants for the DOM nodes. It uses the same constants as the DOM, and adds the ANY_NODE constant which matches any node.

CONSTANTS

* ELEMENT_NODE
* ATTRIBUTE_NODE
* TEXT_NODE
* CDATA_SECTION_NODE
* ENTITY_REFERENCE_NODE
* ENTITY_NODE
* PROCESSING_INSTRUCTION_NODE
* COMMENT_NODE
* DOCUMENT_NODE
* DOCUMENT_TYPE_NODE
* DOCUMENT_FRAGMENT_NODE
* NOTATION_NODE
* ANY_NODE

METHODS

These also exist in spec style, simply prepend them with 'get'.

* CSS::SAC::Selector::Sibling->new($type,$node_type,$sel,$sibling_sel) =item * $ssel->new($type,$node_type,$sel,$sibling_sel): Creates a new sibling selector.
* $ssel->NodeType([$node_type]): get/set the node type to which we apply
* $ssel->Selector([$sel]): get/set the selector's sub selector
* $ssel->SiblingSelector([$sib_sel]): get/set the selector's sibling selector

AUTHOR

Robin Berjon <robin@knowscape.com>

This module is licensed under the same terms as Perl itself.

### # CSS::SAC::Selector::Sibling - SAC SiblingSelector # Robin Berjon <robin@knowscape.com> # 24/02/2001 ### package CSS::SAC::Selector::Sibling; use strict; use vars qw($VERSION); $VERSION = $CSS::SAC::VERSION || '0.03'; use base qw(CSS::SAC::Selector); #---------------------------------------------------------------------# # build the fields for an array based object #---------------------------------------------------------------------# use Class::ArrayObjects extend => { class => 'CSS::SAC::Selector', with => [qw( _node_type_ _selector_ _sibling_selector_ )], }; #---------------------------------------------------------------------# ### Constants ######################################################### # # # # sub ELEMENT_NODE () { 1 } sub ATTRIBUTE_NODE () { 2 } sub TEXT_NODE () { 3 } sub CDATA_SECTION_NODE () { 4 } sub ENTITY_REFERENCE_NODE () { 5 } sub ENTITY_NODE () { 6 } sub PROCESSING_INSTRUCTION_NODE () { 7 } sub COMMENT_NODE () { 8 } sub DOCUMENT_NODE () { 9 } sub DOCUMENT_TYPE_NODE () { 10 } sub DOCUMENT_FRAGMENT_NODE () { 11 } sub NOTATION_NODE () { 12 } sub ANY_NODE () { 13 } #---------------------------------------------------------------------# # import() # all import can do is export the constants #---------------------------------------------------------------------# sub import { my $class = shift; my $tag = shift || ''; # check that we have the right tag return unless $tag eq ':constants'; # define some useful vars my $pkg = caller; my @constants = qw( ELEMENT_NODE ATTRIBUTE_NODE TEXT_NODE CDATA_SECTION_NODE ENTITY_REFERENCE_NODE ENTITY_NODE PROCESSING_INSTRUCTION_NODE COMMENT_NODE DOCUMENT_NODE DOCUMENT_TYPE_NODE DOCUMENT_FRAGMENT_NODE NOTATION_NODE ANY_NODE ); # now lets create the constants in the caller's package no strict 'refs'; for my $c (@constants) { my $qname = "${pkg}::$c"; *$qname = \&{$c}; } } #---------------------------------------------------------------------# # # # # ### Constants ######################################################### ### Constructor ####################################################### # # # # #---------------------------------------------------------------------# # CSS::SAC::Selector::Sibling->new($type,$node_type,$sel,$sibling_sel) # creates a new sac SiblingSelector object #---------------------------------------------------------------------# sub new { my $class = ref($_[0])?ref(shift):shift; my $type = shift; my $node_type = shift; my $sel = shift; my $sibling_sel = shift; # create a selector my $ssel = $class->SUPER::new($type); # add our fields $ssel->[_node_type_] = $node_type || ANY_NODE; $ssel->[_selector_] = $sel; $ssel->[_sibling_selector_] = $sibling_sel; return $ssel; } #---------------------------------------------------------------------# # # # # ### Constructor ####################################################### ### Accessors ######################################################### # # # # *CSS::SAC::Selector::Sibling::getNodeType = \&NodeType; *CSS::SAC::Selector::Sibling::getSelector = \&Selector; *CSS::SAC::Selector::Sibling::getSiblingSelector = \&SiblingSelector; #---------------------------------------------------------------------# # my $node_type = $ssel->NodeType() # $ssel->NodeType($node_type) # get/set the node type to which we apply #---------------------------------------------------------------------# sub NodeType { (@_==2) ? $_[0]->[_node_type_] = $_[1] : $_[0]->[_node_type_]; } #---------------------------------------------------------------------# #---------------------------------------------------------------------# # my $sel = $ssel->Selector() # $ssel->Selector($sel) # get/set the selector #---------------------------------------------------------------------# sub Selector { (@_==2) ? $_[0]->[_selector_] = $_[1] : $_[0]->[_selector_]; } #---------------------------------------------------------------------# #---------------------------------------------------------------------# # my $o_ssel = $ssel->SiblingSelector() # $ssel->SiblingSelector($o_ssel) # get/set the sibling selector #---------------------------------------------------------------------# sub SiblingSelector { (@_==2) ? $_[0]->[_sibling_selector_] = $_[1] : $_[0]->[_sibling_selector_]; } #---------------------------------------------------------------------# # # # # ### Accessors ######################################################### 1;