—

              
#
# Copyright (c) 2014-2015 Christian Jaeger, copying@christianjaeger.ch
#
# This is free software, offered under either the same terms as perl 5
# or the terms of the Artistic License version 2 or the terms of the
# MIT License (Expat version). See the file COPYING.md that came
# bundled with this file.
#
HideShow 16 lines of Pod
=head1 NAME
PXML::SVG
=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::SVG;
use strict;
use warnings;
use warnings FATAL => 'uninitialized';
use Exporter "import";
use PXML::Element;
our $tags = [
    'svg', 'path', 'a',
    # XXX unfinished! Many more of course.
];
sub svg {
    my $attrs  = ref $_[0] eq "HASH" ? shift : {};
    my $attrs2 = +{%$attrs};
    $$attrs2{xmlns}         = "http://www.w3.org/2000/svg";
    $$attrs2{"xmlns:xlink"} = "http://www.w3.org/1999/xlink";
    PXML::SVG::SVG($attrs2, @_)
}
# XX mostly copy paste from PXHTML. Abstract away, please.
our $nbsp = "\xa0";
our $funcs = [
    map {
        my $tag = $_;
        [
            uc $tag,
            sub {
                my $atts = ref($_[0]) eq "HASH" ? shift : undef;
                PXML::PSVG->new($tag, $atts, [@_]);
            }
        ]
    } @$tags
];
for (@$funcs) {
    my ($name, $fn) = @$_;
    no strict 'refs';
    *{"PXML::SVG::$name"} = $fn
}
our @EXPORT_OK   = ('svg', '$nbsp', map { $$_[0] } @$funcs);
our %EXPORT_TAGS = (all => \@EXPORT_OK);
{
    package PXML::PSVG;
    our @ISA = "PXML::Element";
    # serialize to HTML5 compatible representation: -- nope, not
    # necessary for SVG, ok? Assuming XHTML always? And different tags
    # anyway, ok?
}
1