view release on metacpan or  search on metacpan

lib/PXML/XHTML.pm  view on Meta::CPAN

=head1 SYNOPSIS

=head1 DESCRIPTION


=head1 NOTE

This is alpha software! Read the status section in the package README
or on the L<website|http://functional-perl.org/>.

=cut

package PXML::XHTML;
use strict;
use warnings;
use warnings FATAL => 'uninitialized';
use Exporter "import";

use PXML::Element;

our $nbsp = "\xa0";

our $tags = [
    'a', 'abbr', 'acronym', 'address', 'applet', 'area', 'b', 'base',
    'basefont', 'bdo', 'big', 'blockquote', 'body', 'br', 'button', 'caption',
    'center', 'cite', 'code', 'col', 'colgroup', 'dd', 'del', 'dfn', 'dir',
    'div', 'dl', 'dt', 'em', 'fieldset', 'font', 'form', 'h1', 'h2', 'h3',
    'h4', 'h5', 'h6', 'head', 'hr', 'html', 'i', 'iframe', 'img', 'input',
    'ins', 'isindex', 'kbd', 'label', 'legend', 'li', 'link', 'map', 'menu',
    'meta', 'noframes', 'noscript', 'object', 'ol', 'optgroup', 'option', 'p',
    'param', 'pre', 'q', 's', 'samp', 'script', 'select', 'small',
    'source',    # not XHTML?, hack
    'span', 'strike', 'strong', 'style', 'sub', 'sup', 'table', 'tbody', 'td',
    'textarea', 'tfoot', 'th', 'thead', 'title', 'tr', 'tt', 'u', 'ul', 'var',
    'video',     # not XHTML?, hack
];

our $funcs = [
    map {
        my $tag = $_;
        [
            uc $tag,
            sub {
                my $atts = ref($_[0]) eq "HASH" ? shift : undef;
                PXML::_::XHTML->new($tag, $atts, [@_]);
            }
        ]
    } @$tags
];

for (@$funcs) {
    my ($name, $fn) = @$_;
    no strict 'refs';
    *{"PXML::XHTML::$name"} = $fn
}

our @EXPORT_OK   = ('$nbsp', map { $$_[0] } @$funcs);
our %EXPORT_TAGS = (all => \@EXPORT_OK);

package PXML::_::XHTML {
    our @ISA = "PXML::Element";

    # serialize to HTML5 compatible representation:
    sub require_printing_nonvoid_elements_nonselfreferential {
        1
    }

    use PXML::HTML5 '$html5_void_element_h';

    sub void_element_h {
        $html5_void_element_h
    }

    use FP::Show ();

    # This "should" be moved to PXML::Element except that we only know
    # in the HTML case how to map back tag names to constructors (XX
    # is it actually safe here?). (Would have to store what mapping
    # functions were created under which function names for which tag
    # names, and which packages they were exported to.) XXX at least
    # move to common base class of XHTML and HTML5.
    sub FP_Show_show {
        my ($s, $show) = @_;
        my $a = $s->maybe_attributes;
        my $b = $s->body;
        (
            uc($s->name) . "("
                . join(", ",
                (defined($a) and keys %$a) ? &$show($a) : (),
                ref($b) eq "ARRAY"
                ? join(", ", map { &$show($_) } @$b)
                : &$show($b))
                . ")"
        )
    }
}

1