CSS-SAC

 view release on metacpan or  search on metacpan

lib/CSS/SAC/Selector/CharacterData.pm  view on Meta::CPAN

#                                                                     #
#                                                                     #


#---------------------------------------------------------------------#
# CSS::SAC::Selector::CharacterData->new($type,$data)
# creates a new sac CharacterDataSelector object
#---------------------------------------------------------------------#
sub new {
    my $class = ref($_[0])?ref(shift):shift;
    my $type = shift; # should be one of the cdata selectors
    my $data = shift;

    # create a selector
    my $csel = $class->SUPER::new($type);

    # add our fields
    $csel->[_data_] = $data if defined $data;

    return $csel;
}

lib/CSS/SAC/Selector/CharacterData.pm  view on Meta::CPAN

### Accessors #########################################################
#                                                                     #
#                                                                     #

*CSS::SAC::Selector::CharacterData::getData = \&Data;

#---------------------------------------------------------------------#
# my $data = $csel->Data()
# $csel->Data($data)
# get/set the selector's cdata
#---------------------------------------------------------------------#
sub Data {
    (@_==2) ? $_[0]->[_data_] = $_[1] :
              $_[0]->[_data_];
}
#---------------------------------------------------------------------#


#                                                                     #
#                                                                     #

lib/CSS/SAC/Selector/CharacterData.pm  view on Meta::CPAN

documentation. This class adds the following methods (which also exist
in spec style, simply prepend them with 'get'):

=head1 METHODS

=over

=item * CSS::SAC::Selector::CharacterData->new($type,$data)
=item * $sel->new($type,$data)

Creates a new cdata selector.

=item * $csel->Data([$data])

get/set the selector's data

=back

=head1 AUTHOR

Robin Berjon <robin@knowscape.com>

lib/CSS/SAC/SelectorFactory.pm  view on Meta::CPAN

### Factory Methods ###################################################
#                                                                     #
#                                                                     #


# defined aliases
*CSS::SAC::SelectorFactory::createAnyNodeSelector = \&create_any_node_selector;
*CSS::SAC::SelectorFactory::createCdataSectionSelector = \&create_cdata_section_selector;
*CSS::SAC::SelectorFactory::createChildSelector = \&create_child_selector;
*CSS::SAC::SelectorFactory::createCommentSelector = \&create_comment_selector;
*CSS::SAC::SelectorFactory::createConditionalSelector = \&create_conditional_selector;
*CSS::SAC::SelectorFactory::createDescendantSelector = \&create_descendant_selector;
*CSS::SAC::SelectorFactory::createDirectAdjacentSelector = \&create_direct_adjacent_selector;
*CSS::SAC::SelectorFactory::createElementSelector = \&create_element_selector;
*CSS::SAC::SelectorFactory::createNegativeSelector = \&create_negative_selector;
*CSS::SAC::SelectorFactory::createProcessingInstructionSelector = \&create_processing_instruction_selector;
*CSS::SAC::SelectorFactory::createPseudoElementSelector = \&create_pseudo_element_selector;
*CSS::SAC::SelectorFactory::createRootNodeSelector = \&create_root_node_selector;

lib/CSS/SAC/SelectorFactory.pm  view on Meta::CPAN

# creates a any-node selector
#---------------------------------------------------------------------#
sub create_any_node_selector {
    my $cf = shift;
    return CSS::SAC::Selector::Simple->new(ANY_NODE_SELECTOR);
}
#---------------------------------------------------------------------#


#---------------------------------------------------------------------#
# my $sel = $sf->create_cdata_section_selector($data)
# creates a cdata selector
#---------------------------------------------------------------------#
sub create_cdata_section_selector {
    my $cf = shift;
    my $data = shift;

    return CSS::SAC::Selector::CharacterData->new(
                                                  CDATA_SECTION_NODE_SELECTOR,
                                                  $data
                                                 );
}
#---------------------------------------------------------------------#

lib/CSS/SAC/SelectorFactory.pm  view on Meta::CPAN

=over 4

=item * CSS::SAC::SelectorFactory->new or $cf->new

Creates a new condition factory object.

=item * $sf->create_any_node_selector

creates a any-node selector

=item * $sf->create_cdata_section_selector($data)

creates a cdata selector

=item * $sf->create_child_selector($parent_sel,$child_sel)

creates a child selector

=item * $sf->create_comment_selector($data)

creates a comment selector

=item * $sf->create_conditional_selector($sel,$cond)