File Coverage

blib/lib/Text/HyperScript/HTML5.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	37	38	97.3

line	stmt	sub	pod	time	code
1					package Text::HyperScript::HTML5;
2
3	1	1		544	use strict;
	1			3
	1			30
4	1	1		5	use warnings;
	1			2
	1			24
5
6	1	1		6	use Exporter::Lite;
	1			1
	1			5
7	1	1		52	use Text::HyperScript ();
	1			2
	1			181
8
9					our $h = Text::HyperScript->can('h');
10
11					sub h {
12	115	115	1	367	goto $h;
13					}
14
15	0			0	BEGIN {
16					# referenced from: https://developer.mozilla.org/en-US/docs/Web/HTML/Element
17	1	1		12	our @EXPORT = qw(
18					html
19
20					base head link_ meta style title
21
22					body
23
24					address article aside footer header
25					h1 h2 h3 h4 h5 h6 main nav section
26
27					blockquote dd div dl dt figcaption figure
28					hr li menu ol p pre ul
29
30					a abbr b bdi bdo br cite code data em
31					i kbd mark q_ rp rt ruby s_ samp small
32					span strong sub_ sup time_ u var wbr
33
34					area audio img map_ track video
35
36					embed iframe object picture portal source
37
38					svg math
39
40					canvas noscript script
41
42					del ins
43
44					caption col colgroup table tbody td tfoot
45					th thead tr_
46
47					buttom datalist fieldset form input
48					label legend meter optgroup option
49					output progress select_ textarea
50
51					details dialog summary
52
53					slot template
54					);
55
56	1	1		7	no strict 'refs';
	1			4
	1			127
57	1			2	for my $func (@EXPORT) {
58	112			174	my $tag = $func;
59	112			183	$tag =~ s{_}{};
60
61	112			611	*{ __PACKAGE__ . "::${func}" } = sub {
62	115	115		104430	unshift @_, $tag;
63	115			416	goto &h;
64	112			382	};
65					}
66	1	1		7	use strict 'refs';
	1			1
	1			27
67					}
68
69					1;
70
71					=encoding utf-8
72
73					=head1 NAME
74
75					Text::HyperScript::HTML5 - The html5 tagset for L.
76
77					=head1 SYNOPSIS
78
79					use Text::HyperScript::HTML5 qw(p);
80
81					print p('hi,'), "\n";
82					# => " hi, \n"
83
84					=head1 SUPPORTED TAGS
85
86
87					html
88
89					base head link_ meta style title
90
91					body
92
93					address article aside footer header
94					h1 h2 h3 h4 h5 h6 main nav section
95
96					blockquote dd div dl dt figcaption figure
97					hr li menu ol p pre ul
98
99					a abbr b bdi bdo br cite code data em
100					i kbd mark q_ rp rt ruby s_ samp small
101					span strong sub_ sup time_ u var wbr
102
103					area audio img map_ track video
104
105					embed iframe object picture portal source
106
107					svg math
108
109					canvas noscript script
110
111					del ins
112
113					caption col colgroup table tbody td tfoot
114					th thead tr_
115
116					buttom datalist fieldset form input
117					label legend meter optgroup option
118					output progress select_ textarea
119
120					details dialog summary
121
122					slot template
123
124
125					=head1 GLOBAL VARIABLES
126
127					=head2 $h : CodeRef of Text::HyperScript::h
128
129					This variable exist for extends or replace hyperscript functions.
130
131					You could use your C function instead of default C function.
132
133					=head1 NOTE
134
135					some tags added C<_> suffix,
136					these name is conflict to perl builtin functions.
137
138					=head1 LICENSE
139
140					Copyright (C) OKAMURA Naoki a.k.a nyarla.
141
142					This library is free software; you can redistribute it and/or modify
143					it under the same terms as Perl itself.
144
145					=head1 AUTHOR
146
147					OKAMURA Naoki a.k.a nyarla: Enyarla@kalaclista.comE
148
149					=cut