Permalink
Fetching contributors…
Cannot retrieve contributors at this time
64 lines (50 sloc) 1.12 KB
#
# Copyright (c) 2013-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.
#
=head1 NAME
PXML::HTML5
=head1 SYNOPSIS
=head1 DESCRIPTION
currently just provides $html5_void_elements and $html5_void_element_h
=cut
package PXML::HTML5;
@ISA="Exporter"; require Exporter;
@EXPORT=qw();
@EXPORT_OK=qw( $html5_void_elements $html5_void_element_h);
%EXPORT_TAGS=(all=>[@EXPORT,@EXPORT_OK]);
use strict; use warnings; use warnings FATAL => 'uninitialized';
# the set of tags that are allowed to be self-closing (<foo/>) without
# semantical changes
our $html5_void_elements=
[
# http://dev.w3.org/html5/markup/syntax.html
# "The following is a complete list of the void elements in HTML:"
qw(
area
base
br
col
command
embed
hr
img
input
keygen
link
meta
param
source
track
wbr
)
];
our $html5_void_element_h=
+{
map { $_=> 1} @$html5_void_elements
};
1