Gecko [ porsche-kaitori.click ]

Name	Size	Permission
Atom	[ DIR ]	drwxr-xr-x
DOM	[ DIR ]	drwxr-xr-x
Entities	[ DIR ]	drwxr-xr-x
Feed	[ DIR ]	drwxr-xr-x
Filter	[ DIR ]	drwxr-xr-x
Generator	[ DIR ]	drwxr-xr-x
Grove	[ DIR ]	drwxr-xr-x
Handler	[ DIR ]	drwxr-xr-x
Hash	[ DIR ]	drwxr-xr-x
Parser	[ DIR ]	drwxr-xr-x
PatAct	[ DIR ]	drwxr-xr-x
RSS	[ DIR ]	drwxr-xr-x
SAX	[ DIR ]	drwxr-xr-x
SemanticDiff	[ DIR ]	drwxr-xr-x
Simple	[ DIR ]	drwxr-xr-x
Smart	[ DIR ]	drwxr-xr-x
Stream	[ DIR ]	drwxr-xr-x
XPath	[ DIR ]	drwxr-xr-x
XPathEngine	[ DIR ]	drwxr-xr-x
Atom.pm	2.2 KB	-rw-r--r--
Catalog.pm	12.49 KB	-rw-r--r--
DOM-ecmascript.pod	3.8 KB	-rw-r--r--
DOM.pm	108.08 KB	-rw-r--r--
Dumper.pm	25.91 KB	-rw-r--r--
ESISParser.pm	19.5 KB	-rw-r--r--
Element.pm	3.35 KB	-r--r--r--
Entities.pm	4.82 KB	-rw-r--r--
Feed.pm	12.35 KB	-rw-r--r--
Generator.pm	45.01 KB	-rw-r--r--
Grove.pm	11.47 KB	-rw-r--r--
Merge.pm	30.67 KB	-rw-r--r--
NamespaceSupport.pm	20.21 KB	-rw-r--r--
Perl2SAX.pm	2.52 KB	-rw-r--r--
RSS.pm	56.86 KB	-rw-r--r--
RegExp.pm	5.92 KB	-rw-r--r--
SAX.pm	9.05 KB	-rw-r--r--
SAX2Perl.pm	6.33 KB	-rw-r--r--
SemanticDiff.pm	22.67 KB	-rw-r--r--
Simple.pm	97.16 KB	-rw-r--r--
Smart.pm	61.9 KB	-rw-r--r--
Stream.pm	114.89 KB	-rw-r--r--
Tidy.pm	44.03 KB	-rw-r--r--
TokeParser.pm	20.19 KB	-rw-r--r--
TreeBuilder.pm	10.93 KB	-r--r--r--
TreePP.pm	39.33 KB	-rw-r--r--
Writer.pm	41.59 KB	-r--r--r--
XPath.pm	16.71 KB	-rw-r--r--
XPathEngine.pm	36.48 KB	-rw-r--r--

Code Editor : Element.pm

require 5;

package XML::Element;
use warnings;
use strict;
use HTML::Tagset ();
use HTML::Element 4.1 ();

use vars qw(@ISA $VERSION);
$VERSION = 4.2;
@ISA     = ('HTML::Element');

# Init:
my %emptyElement = ();
foreach my $e (%HTML::Tagset::emptyElement) {
    $emptyElement{$e} = 1
        if substr( $e, 0, 1 ) eq '~' and $HTML::Tagset::emptyElement{$e};
}

#--------------------------------------------------------------------------
#Some basic overrides:

sub _empty_element_map { \%emptyElement }

*_fold_case      = \&HTML::Element::_fold_case_NOT;
*starttag        = \&HTML::Element::starttag_XML;
*endtag          = \&HTML::Element::endtag_XML;
*encoded_content = \$HTML::Element::encoded_content;

# TODO: override id with something that looks for xml:id too/instead?

#--------------------------------------------------------------------------

#TODO: test and document this:
# with no tagname set, assumes ALL all-whitespace nodes are ignorable!

sub delete_ignorable_whitespace {
    my $under_hash = $_[1];
    my (@to_do) = ( $_[0] );

if ( $under_hash and ref($under_hash) eq 'ARRAY' ) {
        $under_hash = { map { ; $_ => 1 } @$under_hash };
    }

my $all = !$under_hash;
    my ( $i, $this, $children );
    while (@to_do) {
        $this = shift @to_do;
        $children = $this->content || next;
        if ( ( $all or $under_hash->{ $this->tag } )
            and @$children )
        {
            for ( $i = $#$children; $i >= 0; --$i ) {

# work backwards thru the list
                next if ref $children->[$i];
                if ( $children->[$i] =~ m<^\s*$>s ) {    # all WS
                    splice @$children, $i, 1;            # delete it.
                }
            }
        }
        unshift @to_do, grep ref($_), @$children;        # recurse
    }

return;
}

#--------------------------------------------------------------------------

__END__

=head1 NAME

XML::Element - XML elements with the same interface as HTML::Element

=head1 SYNOPSIS

[See HTML::Element]

=head1 METHODS AND ATTRIBUTES

=head2 delete_ignorable_whitespace

TODO: test and document this:
with no tagname set, assumes ALL all-whitespace nodes are ignorable!

=head2 endtag

Redirects to HTML::Element::endtag_XML

=head2 starttag

Redirects to HTML::Element::starttag_XML

=head1 DESCRIPTION

This is just a subclass of HTML::Element.  It works basically the same
as HTML::Element, except that tagnames and attribute names aren't
forced to lowercase, as they are in HTML::Element.

L<HTML::Element> describes everything you can do with this class.

=head1 CAVEATS

Has currently no handling of namespaces.

=head1 SEE ALSO

L<XML::TreeBuilder> for a class that actually builds XML::Element
structures.

L<HTML::Element> for all documentation.

L<XML::DOM> and L<XML::Twig> for other XML document tree interfaces.

L<XML::Generator> for more fun.

=head1 COPYRIGHT AND DISCLAIMERS

This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Current Author:
	Jeff Fearn E<lt>jfearn@cpan.orgE<gt>.

Former Authors:
	Sean M. Burke, E<lt>sburke@cpan.orgE<gt>

=cut

${this.title}

Code Editor : Element.pm