view release on metacpan or  search on metacpan

lib/XML/Axk/SAX/BuildDOM2.pm  view on Meta::CPAN

sub entity_reference # was Default
{
    my $self = $_[0];
    my $name = $_[1]->{Name};

    $self->{Element}->appendChild (
                            $self->{Document}->createEntityReference ($name));
    undef $self->{LastText};
} #entity_reference()

sub start_cdata
{
    my $self = shift;
    $self->{InCDATA} = 1;
} #start_cdata()

sub end_cdata
{
    my $self = shift;
    $self->{InCDATA} = 0;
} #end_cdata()

sub comment
{
    my $self = $_[0];

    local $XML::DOM::IgnoreReadOnly = 1;

    undef $self->{LastText};
    my $comment = $self->{Document}->createComment ($_[1]->{Data});
    $self->{Element}->appendChild ($comment);

lib/XML/Axk/SAX/Handler.pm  view on Meta::CPAN

sub comment {
    my $self = shift;
    $self->SUPER::comment(@_);
    $self->work(HI); # no BYE for comments
} #comment()

# }}}1
# Unimplemented routines ================================================ {{{3
# Ones we don't need to override
#start_cdata
#end_cdata

# Not doing these yet
#doctype_decl
#attlist_decl
#xml_decl
#entity_decl
#unparse_decl
#element_decl
#notation_decl
#processing_instruction