File Coverage

blib/lib/Pod/WikiDoc/Parser.pm

Criterion	Covered	Total	%
statement	2779	3179	87.4
branch	877	1886	46.5
condition	239	522	45.7
subroutine	121	121	100.0
pod	0	1	0.0
total	4016	5709	70.3

line	stmt	bran	cond	sub	pod	time	code
1							package Pod::WikiDoc::Parser;
2
3							our $VERSION = 0.20;
4
5	24			24		63372	use Parse::RecDescent;
	24					1716321
	24					256
6							{ my $ERRORS;
7
8
9							package Parse::RecDescent::Pod::WikiDoc::Parser;
10	24			24		3215	use strict;
	24					58
	24					903
11	24			24		125	use vars qw($skip $AUTOLOAD );
	24					49
	24					2122
12							@Parse::RecDescent::Pod::WikiDoc::Parser::ISA = ();
13							$skip = '';
14	24			24		146	use Text::Balanced qw( extract_tagged ) ;
	24					44
	24					2690
15
16
17							{
18							local $SIG{__WARN__} = sub {0};
19							# PRETEND TO BE IN Parse::RecDescent NAMESPACE
20							*Parse::RecDescent::Pod::WikiDoc::Parser::AUTOLOAD = sub
21							{
22	24			24		136	no strict 'refs';
	24					46
	24					3319
23
24	4822			4822		5819	${"AUTOLOAD"} =~ s/^Parse::RecDescent::Pod::WikiDoc::Parser/Parse::RecDescent/;
	4822					28513
25	4822					7259	goto &{${"AUTOLOAD"}};
	4822					6517
	4822					42427
26							}
27							}
28
29							push @Parse::RecDescent::Pod::WikiDoc::Parser::ISA, 'Parse::RecDescent';
30							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
31							sub Parse::RecDescent::Pod::WikiDoc::Parser::RegularText
32							{
33	925			925		1631	my $thisparser = $_[0];
34	24			24		239	use vars q{$tracelevel};
	24					47
	24					30456
35	925		50			2842	local $tracelevel = ($tracelevel\|\|0)+1;
36	925					1155	$ERRORS = 0;
37	925					2125	my $thisrule = $thisparser->{"rules"}{"RegularText"};
38
39	925	50				2407	Parse::RecDescent::_trace(q{Trying rule: [RegularText]},
40							Parse::RecDescent::_tracefirst($_[1]),
41							q{RegularText},
42							$tracelevel)
43							if defined $::RD_TRACE;
44
45
46	925					1099	my $err_at = @{$thisparser->{errors}};
	925					3068
47
48	925					1651	my $score;
49							my $score_return;
50	0					0	my $_tok;
51	925					1329	my $return = undef;
52	925					1350	my $_matched=0;
53	925					2490	my $commit=0;
54	925					1519	my @item = ();
55	925					1650	my %item = ();
56	925					1360	my $repeating = $_[2];
57	925					1220	my $_noactions = $_[3];
58	925	50				2234	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	925					1074
	925					2961
59	925					1549	my $_itempos = $_[5];
60	925	50				4641	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
61	925					1385	my $text;
62							my $lastsep;
63	0					0	my $current_match;
64	925					3554	my $expectation = new Parse::RecDescent::Expectation(q{m\{ ^ \\S+ \}x});
65	925					9366	$expectation->at($_[1]);
66
67	925					3870	my $thisline;
68	925					5394	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
69
70
71
72	925		33			10338	while (!$_matched && !$commit)
73							{
74
75	925	50				2283	Parse::RecDescent::_trace(q{Trying production: [m\{ ^ \\S+ \}x]},
76							Parse::RecDescent::_tracefirst($_[1]),
77							q{RegularText},
78							$tracelevel)
79							if defined $::RD_TRACE;
80	925					2441	my $thisprod = $thisrule->{"prods"}[0];
81	925					1550	$text = $_[1];
82	925					1160	my $_savetext;
83	925					1984	@item = (q{RegularText});
84	925					2244	%item = (__RULE__ => q{RegularText});
85	925					1223	my $repcount = 0;
86
87
88	925	50				2133	Parse::RecDescent::_trace(q{Trying terminal: [m\{ ^ \\S+ \}x]}, Parse::RecDescent::_tracefirst($text),
89							q{RegularText},
90							$tracelevel)
91							if defined $::RD_TRACE;
92	925					1326	undef $lastsep;
93	925					2915	$expectation->is(q{})->at($text);
94
95
96	925	50	66			10236	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m{\A(?: ^ \S+ )}x)
	925	100				8997
97							{
98	245	50				901	$text = $lastsep . $text if defined $lastsep;
99	245					840	$expectation->failed();
100	245	50				7782	Parse::RecDescent::_trace(q{<>},
101							Parse::RecDescent::_tracefirst($text))
102							if defined $::RD_TRACE;
103
104	245					541	last;
105							}
106	680					4099	$current_match = substr($text, $-[0], $+[0] - $-[0]);
107	680					2603	substr($text,0,length($current_match),q{});
108	680	50				3057	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
109							. $current_match . q{])},
110							Parse::RecDescent::_tracefirst($text))
111							if defined $::RD_TRACE;
112	680					1969	push @item, $item{__PATTERN1__}=$current_match;
113
114
115	680	50				1583	Parse::RecDescent::_trace(q{Trying action},
116							Parse::RecDescent::_tracefirst($text),
117							q{RegularText},
118							$tracelevel)
119							if defined $::RD_TRACE;
120
121
122	680	50				1507	$_tok = ($_noactions) ? 0 : do {
123	680					3181	$return = {
124							type => $item[0],
125							content => $item[1],
126							}
127							};
128	680	50				2043	unless (defined $_tok)
129							{
130	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
131							if defined $::RD_TRACE;
132	0					0	last;
133							}
134	680	50				1566	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
135							. $_tok . q{])},
136							Parse::RecDescent::_tracefirst($text))
137							if defined $::RD_TRACE;
138	680					995	push @item, $_tok;
139	680					1377	$item{__ACTION1__}=$_tok;
140
141
142	680	50				1438	Parse::RecDescent::_trace(q{>>Matched production: [m\{ ^ \\S+ \}x]<<},
143							Parse::RecDescent::_tracefirst($text),
144							q{RegularText},
145							$tracelevel)
146							if defined $::RD_TRACE;
147
148
149
150	680					916	$_matched = 1;
151	680					1496	last;
152							}
153
154
155	925	100	66			3389	unless ( $_matched \|\| defined($score) )
156							{
157
158
159	245					446	$_[1] = $text; # NOT SURE THIS IS NEEDED
160	245	50				652	Parse::RecDescent::_trace(q{<>},
161							Parse::RecDescent::_tracefirst($_[1]),
162							q{RegularText},
163							$tracelevel)
164							if defined $::RD_TRACE;
165	245					1989	return undef;
166							}
167	680	50	33			1881	if (!defined($return) && defined($score))
168							{
169	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
170							q{RegularText},
171							$tracelevel)
172							if defined $::RD_TRACE;
173	0					0	$return = $score_return;
174							}
175	680					21968	splice @{$thisparser->{errors}}, $err_at;
	680					1739
176	680	50				1672	$return = $item[$#item] unless defined $return;
177	680	50				1473	if (defined $::RD_TRACE)
178							{
179	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
180							$return . q{])}, "",
181							q{RegularText},
182							$tracelevel);
183	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
184							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
185							Parse::RecDescent::_tracefirst($text),
186							, q{RegularText},
187							$tracelevel)
188							}
189	680					1280	$_[1] = $text;
190	680					5682	return $return;
191							}
192
193							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
194							sub Parse::RecDescent::Pod::WikiDoc::Parser::WikiDoc
195							{
196	116			116		8951	my $thisparser = $_[0];
197	24			24		239	use vars q{$tracelevel};
	24					44
	24					33654
198	116		50			829	local $tracelevel = ($tracelevel\|\|0)+1;
199	116					225	$ERRORS = 0;
200	116					363	my $thisrule = $thisparser->{"rules"}{"WikiDoc"};
201
202	116	50				389	Parse::RecDescent::_trace(q{Trying rule: [WikiDoc]},
203							Parse::RecDescent::_tracefirst($_[1]),
204							q{WikiDoc},
205							$tracelevel)
206							if defined $::RD_TRACE;
207
208
209	116					195	my $err_at = @{$thisparser->{errors}};
	116					618
210
211	116					245	my $score;
212							my $score_return;
213	0					0	my $_tok;
214	116					196	my $return = undef;
215	116					192	my $_matched=0;
216	116					195	my $commit=0;
217	116					250	my @item = ();
218	116					373	my %item = ();
219	116					202	my $repeating = $_[2];
220	116					199	my $_noactions = $_[3];
221	116	50				5329	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	116					181
	116					371
222	116					581	my $_itempos = $_[5];
223	116	50				431	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
224	116					283	my $text;
225							my $lastsep;
226	0					0	my $current_match;
227	116					1149	my $expectation = new Parse::RecDescent::Expectation(q{Block});
228	116					2887	$expectation->at($_[1]);
229
230	116					743	my $thisline;
231	116					855	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
232
233
234
235	116		33			1656	while (!$_matched && !$commit)
236							{
237
238	116	50				402	Parse::RecDescent::_trace(q{Trying production: [Block]},
239							Parse::RecDescent::_tracefirst($_[1]),
240							q{WikiDoc},
241							$tracelevel)
242							if defined $::RD_TRACE;
243	116					556	my $thisprod = $thisrule->{"prods"}[0];
244	116					239	$text = $_[1];
245	116					218	my $_savetext;
246	116					312	@item = (q{WikiDoc});
247	116					499	%item = (__RULE__ => q{WikiDoc});
248	116					205	my $repcount = 0;
249
250
251	116	50				348	Parse::RecDescent::_trace(q{Trying repeated subrule: [Block]},
252							Parse::RecDescent::_tracefirst($text),
253							q{WikiDoc},
254							$tracelevel)
255							if defined $::RD_TRACE;
256	116					543	$expectation->is(q{})->at($text);
257
258	116	50		436		1752	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::Block, 0, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
	436					1145
259							{
260	0	0				0	Parse::RecDescent::_trace(q{<>},
261							Parse::RecDescent::_tracefirst($text),
262							q{WikiDoc},
263							$tracelevel)
264							if defined $::RD_TRACE;
265	0					0	last;
266							}
267	116	50				2019	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Block]<< (}
268							. @$_tok . q{ times)},
269
270							Parse::RecDescent::_tracefirst($text),
271							q{WikiDoc},
272							$tracelevel)
273							if defined $::RD_TRACE;
274	116					399	$item{q{Block(s?)}} = $_tok;
275	116					241	push @item, $_tok;
276
277
278
279	116	50				362	Parse::RecDescent::_trace(q{Trying action},
280							Parse::RecDescent::_tracefirst($text),
281							q{WikiDoc},
282							$tracelevel)
283							if defined $::RD_TRACE;
284
285
286	116	50				298	$_tok = ($_noactions) ? 0 : do { $return = [ grep { $_->{type} ne 'Empty_Line' } @{ $item[1] } ] };
	116					182
	320					1135
	116					376
287	116	50				397	unless (defined $_tok)
288							{
289	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
290							if defined $::RD_TRACE;
291	0					0	last;
292							}
293	116	50				309	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
294							. $_tok . q{])},
295							Parse::RecDescent::_tracefirst($text))
296							if defined $::RD_TRACE;
297	116					213	push @item, $_tok;
298	116					250	$item{__ACTION1__}=$_tok;
299
300
301	116	50				301	Parse::RecDescent::_trace(q{>>Matched production: [Block]<<},
302							Parse::RecDescent::_tracefirst($text),
303							q{WikiDoc},
304							$tracelevel)
305							if defined $::RD_TRACE;
306
307
308
309	116					192	$_matched = 1;
310	116					313	last;
311							}
312
313
314	116	50	33			398	unless ( $_matched \|\| defined($score) )
315							{
316
317
318	0					0	$_[1] = $text; # NOT SURE THIS IS NEEDED
319	0	0				0	Parse::RecDescent::_trace(q{<>},
320							Parse::RecDescent::_tracefirst($_[1]),
321							q{WikiDoc},
322							$tracelevel)
323							if defined $::RD_TRACE;
324	0					0	return undef;
325							}
326	116	50	33			445	if (!defined($return) && defined($score))
327							{
328	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
329							q{WikiDoc},
330							$tracelevel)
331							if defined $::RD_TRACE;
332	0					0	$return = $score_return;
333							}
334	116					176	splice @{$thisparser->{errors}}, $err_at;
	116					367
335	116	50				1492	$return = $item[$#item] unless defined $return;
336	116	50				414	if (defined $::RD_TRACE)
337							{
338	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
339							$return . q{])}, "",
340							q{WikiDoc},
341							$tracelevel);
342	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
343							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
344							Parse::RecDescent::_tracefirst($text),
345							, q{WikiDoc},
346							$tracelevel)
347							}
348	116					307	$_[1] = $text;
349	116					1567	return $return;
350							}
351
352							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
353							sub Parse::RecDescent::Pod::WikiDoc::Parser::Unordered_List
354							{
355	368			368		710	my $thisparser = $_[0];
356	24			24		175	use vars q{$tracelevel};
	24					49
	24					44466
357	368		50			1220	local $tracelevel = ($tracelevel\|\|0)+1;
358	368					585	$ERRORS = 0;
359	368					943	my $thisrule = $thisparser->{"rules"}{"Unordered_List"};
360
361	368	50				897	Parse::RecDescent::_trace(q{Trying rule: [Unordered_List]},
362							Parse::RecDescent::_tracefirst($_[1]),
363							q{Unordered_List},
364							$tracelevel)
365							if defined $::RD_TRACE;
366
367
368	368					532	my $err_at = @{$thisparser->{errors}};
	368					830
369
370	368					685	my $score;
371							my $score_return;
372	0					0	my $_tok;
373	368					600	my $return = undef;
374	368					531	my $_matched=0;
375	368					525	my $commit=0;
376	368					742	my @item = ();
377	368					626	my %item = ();
378	368					508	my $repeating = $_[2];
379	368					529	my $_noactions = $_[3];
380	368	50				1077	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	368					502
	368					1395
381	368					627	my $_itempos = $_[5];
382	368	50				1282	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
383	368					758	my $text;
384							my $lastsep;
385	0					0	my $current_match;
386	368					1734	my $expectation = new Parse::RecDescent::Expectation(q{Bullet_Item});
387	368					3311	$expectation->at($_[1]);
388
389	368					1561	my $thisline;
390	368					1768	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
391
392
393
394	368		33			8417	while (!$_matched && !$commit)
395							{
396
397	368	50				1012	Parse::RecDescent::_trace(q{Trying production: [Bullet_Item Empty_Line]},
398							Parse::RecDescent::_tracefirst($_[1]),
399							q{Unordered_List},
400							$tracelevel)
401							if defined $::RD_TRACE;
402	368					1014	my $thisprod = $thisrule->{"prods"}[0];
403	368					773	$text = $_[1];
404	368					489	my $_savetext;
405	368					771	@item = (q{Unordered_List});
406	368					942	%item = (__RULE__ => q{Unordered_List});
407	368					524	my $repcount = 0;
408
409
410	368	50				892	Parse::RecDescent::_trace(q{Trying repeated subrule: [Bullet_Item]},
411							Parse::RecDescent::_tracefirst($text),
412							q{Unordered_List},
413							$tracelevel)
414							if defined $::RD_TRACE;
415	368					1225	$expectation->is(q{})->at($text);
416
417	368	100		388		4535	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::Bullet_Item, 1, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
	388					983
418							{
419	358	50				5128	Parse::RecDescent::_trace(q{<>},
420							Parse::RecDescent::_tracefirst($text),
421							q{Unordered_List},
422							$tracelevel)
423							if defined $::RD_TRACE;
424	358					750	last;
425							}
426	10	50				206	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Bullet_Item]<< (}
427							. @$_tok . q{ times)},
428
429							Parse::RecDescent::_tracefirst($text),
430							q{Unordered_List},
431							$tracelevel)
432							if defined $::RD_TRACE;
433	10					34	$item{q{Bullet_Item(s)}} = $_tok;
434	10					22	push @item, $_tok;
435
436
437
438	10	50				36	Parse::RecDescent::_trace(q{Trying repeated subrule: [Empty_Line]},
439							Parse::RecDescent::_tracefirst($text),
440							q{Unordered_List},
441							$tracelevel)
442							if defined $::RD_TRACE;
443	10					54	$expectation->is(q{Empty_Line})->at($text);
444
445	10	50		10		154	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::Empty_Line, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
	10					30
446							{
447	0	0				0	Parse::RecDescent::_trace(q{<>},
448							Parse::RecDescent::_tracefirst($text),
449							q{Unordered_List},
450							$tracelevel)
451							if defined $::RD_TRACE;
452	0					0	last;
453							}
454	10	50				166	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Empty_Line]<< (}
455							. @$_tok . q{ times)},
456
457							Parse::RecDescent::_tracefirst($text),
458							q{Unordered_List},
459							$tracelevel)
460							if defined $::RD_TRACE;
461	10					37	$item{q{Empty_Line(?)}} = $_tok;
462	10					19	push @item, $_tok;
463
464
465
466	10	50				35	Parse::RecDescent::_trace(q{Trying action},
467							Parse::RecDescent::_tracefirst($text),
468							q{Unordered_List},
469							$tracelevel)
470							if defined $::RD_TRACE;
471
472
473	10	50				35	$_tok = ($_noactions) ? 0 : do {
474	10					49	$return = {
475							type => $item[0],
476							content => $item[1],
477							}
478							};
479	10	50				45	unless (defined $_tok)
480							{
481	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
482							if defined $::RD_TRACE;
483	0					0	last;
484							}
485	10	50				79	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
486							. $_tok . q{])},
487							Parse::RecDescent::_tracefirst($text))
488							if defined $::RD_TRACE;
489	10					28	push @item, $_tok;
490	10					23	$item{__ACTION1__}=$_tok;
491
492
493	10	50				37	Parse::RecDescent::_trace(q{>>Matched production: [Bullet_Item Empty_Line]<<},
494							Parse::RecDescent::_tracefirst($text),
495							q{Unordered_List},
496							$tracelevel)
497							if defined $::RD_TRACE;
498
499
500
501	10					20	$_matched = 1;
502	10					37	last;
503							}
504
505
506	368	100	66			2519	unless ( $_matched \|\| defined($score) )
507							{
508
509
510	358					699	$_[1] = $text; # NOT SURE THIS IS NEEDED
511	358	50				763	Parse::RecDescent::_trace(q{<>},
512							Parse::RecDescent::_tracefirst($_[1]),
513							q{Unordered_List},
514							$tracelevel)
515							if defined $::RD_TRACE;
516	358					8558	return undef;
517							}
518	10	50	33			100	if (!defined($return) && defined($score))
519							{
520	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
521							q{Unordered_List},
522							$tracelevel)
523							if defined $::RD_TRACE;
524	0					0	$return = $score_return;
525							}
526	10					25	splice @{$thisparser->{errors}}, $err_at;
	10					49
527	10	50				42	$return = $item[$#item] unless defined $return;
528	10	50				50	if (defined $::RD_TRACE)
529							{
530	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
531							$return . q{])}, "",
532							q{Unordered_List},
533							$tracelevel);
534	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
535							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
536							Parse::RecDescent::_tracefirst($text),
537							, q{Unordered_List},
538							$tracelevel)
539							}
540	10					27	$_[1] = $text;
541	10					122	return $return;
542							}
543
544							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
545							sub Parse::RecDescent::Pod::WikiDoc::Parser::Block
546							{
547	436			436		6888	my $thisparser = $_[0];
548	24			24		178	use vars q{$tracelevel};
	24					57
	24					13483
549	436		50			2683	local $tracelevel = ($tracelevel\|\|0)+1;
550	436					658	$ERRORS = 0;
551	436					1118	my $thisrule = $thisparser->{"rules"}{"Block"};
552
553	436	50				1138	Parse::RecDescent::_trace(q{Trying rule: [Block]},
554							Parse::RecDescent::_tracefirst($_[1]),
555							q{Block},
556							$tracelevel)
557							if defined $::RD_TRACE;
558
559
560	436					581	my $err_at = @{$thisparser->{errors}};
	436					1018
561
562	436					670	my $score;
563							my $score_return;
564	0					0	my $_tok;
565	436					668	my $return = undef;
566	436					650	my $_matched=0;
567	436					588	my $commit=0;
568	436					923	my @item = ();
569	436					3739	my %item = ();
570	436					644	my $repeating = $_[2];
571	436					672	my $_noactions = $_[3];
572	436	50				1103	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	436					594
	436					996
573	436					696	my $_itempos = $_[5];
574	436	50				1326	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
575	436					730	my $text;
576							my $lastsep;
577	0					0	my $current_match;
578	436					1675	my $expectation = new Parse::RecDescent::Expectation(q{Header, or Unordered_List, or Ordered_List, or Preformat, or Paragraph, or Empty_Line});
579	436					4400	$expectation->at($_[1]);
580
581	436					1903	my $thisline;
582	436					2005	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
583
584
585
586	436		33			4836	while (!$_matched && !$commit)
587							{
588
589	436	50				1205	Parse::RecDescent::_trace(q{Trying production: [Header]},
590							Parse::RecDescent::_tracefirst($_[1]),
591							q{Block},
592							$tracelevel)
593							if defined $::RD_TRACE;
594	436					1241	my $thisprod = $thisrule->{"prods"}[0];
595	436					839	$text = $_[1];
596	436					2255	my $_savetext;
597	436					963	@item = (q{Block});
598	436					1108	%item = (__RULE__ => q{Block});
599	436					630	my $repcount = 0;
600
601
602	436	50				1087	Parse::RecDescent::_trace(q{Trying subrule: [Header]},
603							Parse::RecDescent::_tracefirst($text),
604							q{Block},
605							$tracelevel)
606							if defined $::RD_TRACE;
607	24			24		160	if (1) { no strict qw{refs};
	24					61
	24					19082
	436					714
608	436					1438	$expectation->is(q{})->at($text);
609	436	100		436		5322	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::Header($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	436					1197
610							{
611
612	368	50				1025	Parse::RecDescent::_trace(q{<>},
613							Parse::RecDescent::_tracefirst($text),
614							q{Block},
615							$tracelevel)
616							if defined $::RD_TRACE;
617	368					1139	$expectation->failed();
618	368					1781	last;
619							}
620	68	50				430	Parse::RecDescent::_trace(q{>>Matched subrule: [Header]<< (return value: [}
621							. $_tok . q{]},
622
623							Parse::RecDescent::_tracefirst($text),
624							q{Block},
625							$tracelevel)
626							if defined $::RD_TRACE;
627	68					173	$item{q{Header}} = $_tok;
628	68					148	push @item, $_tok;
629
630							}
631
632	68	50				193	Parse::RecDescent::_trace(q{Trying action},
633							Parse::RecDescent::_tracefirst($text),
634							q{Block},
635							$tracelevel)
636							if defined $::RD_TRACE;
637
638
639	68	50				298	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	68					142
640	68	50				213	unless (defined $_tok)
641							{
642	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
643							if defined $::RD_TRACE;
644	0					0	last;
645							}
646	68	50				191	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
647							. $_tok . q{])},
648							Parse::RecDescent::_tracefirst($text))
649							if defined $::RD_TRACE;
650	68					122	push @item, $_tok;
651	68					139	$item{__ACTION1__}=$_tok;
652
653
654	68	50				215	Parse::RecDescent::_trace(q{>>Matched production: [Header]<<},
655							Parse::RecDescent::_tracefirst($text),
656							q{Block},
657							$tracelevel)
658							if defined $::RD_TRACE;
659
660
661
662	68					101	$_matched = 1;
663	68					157	last;
664							}
665
666
667	436		66			2509	while (!$_matched && !$commit)
668							{
669
670	368	50				912	Parse::RecDescent::_trace(q{Trying production: [Unordered_List]},
671							Parse::RecDescent::_tracefirst($_[1]),
672							q{Block},
673							$tracelevel)
674							if defined $::RD_TRACE;
675	368					1148	my $thisprod = $thisrule->{"prods"}[1];
676	368					606	$text = $_[1];
677	368					469	my $_savetext;
678	368					873	@item = (q{Block});
679	368					1066	%item = (__RULE__ => q{Block});
680	368					675	my $repcount = 0;
681
682
683	368	50				906	Parse::RecDescent::_trace(q{Trying subrule: [Unordered_List]},
684							Parse::RecDescent::_tracefirst($text),
685							q{Block},
686							$tracelevel)
687							if defined $::RD_TRACE;
688	24			24		338	if (1) { no strict qw{refs};
	24					49
	24					16870
	368					659
689	368					1135	$expectation->is(q{})->at($text);
690	368	100		368		4662	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::Unordered_List($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	368					885
691							{
692
693	358	50				837	Parse::RecDescent::_trace(q{<>},
694							Parse::RecDescent::_tracefirst($text),
695							q{Block},
696							$tracelevel)
697							if defined $::RD_TRACE;
698	358					1021	$expectation->failed();
699	358					1418	last;
700							}
701	10	50				80	Parse::RecDescent::_trace(q{>>Matched subrule: [Unordered_List]<< (return value: [}
702							. $_tok . q{]},
703
704							Parse::RecDescent::_tracefirst($text),
705							q{Block},
706							$tracelevel)
707							if defined $::RD_TRACE;
708	10					29	$item{q{Unordered_List}} = $_tok;
709	10					28	push @item, $_tok;
710
711							}
712
713	10	50				35	Parse::RecDescent::_trace(q{Trying action},
714							Parse::RecDescent::_tracefirst($text),
715							q{Block},
716							$tracelevel)
717							if defined $::RD_TRACE;
718
719
720	10	50				36	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	10					32
721	10	50				38	unless (defined $_tok)
722							{
723	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
724							if defined $::RD_TRACE;
725	0					0	last;
726							}
727	10	50				34	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
728							. $_tok . q{])},
729							Parse::RecDescent::_tracefirst($text))
730							if defined $::RD_TRACE;
731	10					36	push @item, $_tok;
732	10					29	$item{__ACTION1__}=$_tok;
733
734
735	10	50				33	Parse::RecDescent::_trace(q{>>Matched production: [Unordered_List]<<},
736							Parse::RecDescent::_tracefirst($text),
737							q{Block},
738							$tracelevel)
739							if defined $::RD_TRACE;
740
741
742
743	10					18	$_matched = 1;
744	10					78	last;
745							}
746
747
748	436		66			2547	while (!$_matched && !$commit)
749							{
750
751	358	50				822	Parse::RecDescent::_trace(q{Trying production: [Ordered_List]},
752							Parse::RecDescent::_tracefirst($_[1]),
753							q{Block},
754							$tracelevel)
755							if defined $::RD_TRACE;
756	358					859	my $thisprod = $thisrule->{"prods"}[2];
757	358					603	$text = $_[1];
758	358					453	my $_savetext;
759	358					853	@item = (q{Block});
760	358					893	%item = (__RULE__ => q{Block});
761	358					629	my $repcount = 0;
762
763
764	358	50				893	Parse::RecDescent::_trace(q{Trying subrule: [Ordered_List]},
765							Parse::RecDescent::_tracefirst($text),
766							q{Block},
767							$tracelevel)
768							if defined $::RD_TRACE;
769	24			24		164	if (1) { no strict qw{refs};
	24					57
	24					14630
	358					531
770	358					1268	$expectation->is(q{})->at($text);
771	358	100		358		4163	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::Ordered_List($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	358					835
772							{
773
774	349	50				823	Parse::RecDescent::_trace(q{<>},
775							Parse::RecDescent::_tracefirst($text),
776							q{Block},
777							$tracelevel)
778							if defined $::RD_TRACE;
779	349					1010	$expectation->failed();
780	349					1362	last;
781							}
782	9	50				63	Parse::RecDescent::_trace(q{>>Matched subrule: [Ordered_List]<< (return value: [}
783							. $_tok . q{]},
784
785							Parse::RecDescent::_tracefirst($text),
786							q{Block},
787							$tracelevel)
788							if defined $::RD_TRACE;
789	9					25	$item{q{Ordered_List}} = $_tok;
790	9					24	push @item, $_tok;
791
792							}
793
794	9	50				48	Parse::RecDescent::_trace(q{Trying action},
795							Parse::RecDescent::_tracefirst($text),
796							q{Block},
797							$tracelevel)
798							if defined $::RD_TRACE;
799
800
801	9	50				32	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	9					27
802	9	50				35	unless (defined $_tok)
803							{
804	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
805							if defined $::RD_TRACE;
806	0					0	last;
807							}
808	9	50				64	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
809							. $_tok . q{])},
810							Parse::RecDescent::_tracefirst($text))
811							if defined $::RD_TRACE;
812	9					20	push @item, $_tok;
813	9					22	$item{__ACTION1__}=$_tok;
814
815
816	9	50				37	Parse::RecDescent::_trace(q{>>Matched production: [Ordered_List]<<},
817							Parse::RecDescent::_tracefirst($text),
818							q{Block},
819							$tracelevel)
820							if defined $::RD_TRACE;
821
822
823
824	9					20	$_matched = 1;
825	9					57	last;
826							}
827
828
829	436		66			2401	while (!$_matched && !$commit)
830							{
831
832	349	50				836	Parse::RecDescent::_trace(q{Trying production: [Preformat]},
833							Parse::RecDescent::_tracefirst($_[1]),
834							q{Block},
835							$tracelevel)
836							if defined $::RD_TRACE;
837	349					851	my $thisprod = $thisrule->{"prods"}[3];
838	349					532	$text = $_[1];
839	349					451	my $_savetext;
840	349					972	@item = (q{Block});
841	349					866	%item = (__RULE__ => q{Block});
842	349					591	my $repcount = 0;
843
844
845	349	50				812	Parse::RecDescent::_trace(q{Trying subrule: [Preformat]},
846							Parse::RecDescent::_tracefirst($text),
847							q{Block},
848							$tracelevel)
849							if defined $::RD_TRACE;
850	24			24		170	if (1) { no strict qw{refs};
	24					71
	24					21216
	349					479
851	349					1116	$expectation->is(q{})->at($text);
852	349	100		349		4468	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::Preformat($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	349					821
853							{
854
855	345	50				773	Parse::RecDescent::_trace(q{<>},
856							Parse::RecDescent::_tracefirst($text),
857							q{Block},
858							$tracelevel)
859							if defined $::RD_TRACE;
860	345					1015	$expectation->failed();
861	345					1376	last;
862							}
863	4	50				21	Parse::RecDescent::_trace(q{>>Matched subrule: [Preformat]<< (return value: [}
864							. $_tok . q{]},
865
866							Parse::RecDescent::_tracefirst($text),
867							q{Block},
868							$tracelevel)
869							if defined $::RD_TRACE;
870	4					9	$item{q{Preformat}} = $_tok;
871	4					9	push @item, $_tok;
872
873							}
874
875	4	50				11	Parse::RecDescent::_trace(q{Trying action},
876							Parse::RecDescent::_tracefirst($text),
877							q{Block},
878							$tracelevel)
879							if defined $::RD_TRACE;
880
881
882	4	50				10	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	4					9
883	4	50				12	unless (defined $_tok)
884							{
885	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
886							if defined $::RD_TRACE;
887	0					0	last;
888							}
889	4	50				13	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
890							. $_tok . q{])},
891							Parse::RecDescent::_tracefirst($text))
892							if defined $::RD_TRACE;
893	4					6	push @item, $_tok;
894	4					36	$item{__ACTION1__}=$_tok;
895
896
897	4	50				10	Parse::RecDescent::_trace(q{>>Matched production: [Preformat]<<},
898							Parse::RecDescent::_tracefirst($text),
899							q{Block},
900							$tracelevel)
901							if defined $::RD_TRACE;
902
903
904
905	4					6	$_matched = 1;
906	4					9	last;
907							}
908
909
910	436		66			2146	while (!$_matched && !$commit)
911							{
912
913	345	50				906	Parse::RecDescent::_trace(q{Trying production: [Paragraph]},
914							Parse::RecDescent::_tracefirst($_[1]),
915							q{Block},
916							$tracelevel)
917							if defined $::RD_TRACE;
918	345					784	my $thisprod = $thisrule->{"prods"}[4];
919	345					520	$text = $_[1];
920	345					440	my $_savetext;
921	345					812	@item = (q{Block});
922	345					913	%item = (__RULE__ => q{Block});
923	345					485	my $repcount = 0;
924
925
926	345	50				794	Parse::RecDescent::_trace(q{Trying subrule: [Paragraph]},
927							Parse::RecDescent::_tracefirst($text),
928							q{Block},
929							$tracelevel)
930							if defined $::RD_TRACE;
931	24			24		156	if (1) { no strict qw{refs};
	24					51
	24					16080
	345					429
932	345					1390	$expectation->is(q{})->at($text);
933	345	100		345		16739	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::Paragraph($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	345					800
934							{
935
936	243	50				561	Parse::RecDescent::_trace(q{<>},
937							Parse::RecDescent::_tracefirst($text),
938							q{Block},
939							$tracelevel)
940							if defined $::RD_TRACE;
941	243					963	$expectation->failed();
942	243					1425	last;
943							}
944	102	50				801	Parse::RecDescent::_trace(q{>>Matched subrule: [Paragraph]<< (return value: [}
945							. $_tok . q{]},
946
947							Parse::RecDescent::_tracefirst($text),
948							q{Block},
949							$tracelevel)
950							if defined $::RD_TRACE;
951	102					327	$item{q{Paragraph}} = $_tok;
952	102					256	push @item, $_tok;
953
954							}
955
956	102	50				354	Parse::RecDescent::_trace(q{Trying action},
957							Parse::RecDescent::_tracefirst($text),
958							q{Block},
959							$tracelevel)
960							if defined $::RD_TRACE;
961
962
963	102	50				288	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	102					245
964	102	50				322	unless (defined $_tok)
965							{
966	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
967							if defined $::RD_TRACE;
968	0					0	last;
969							}
970	102	50				456	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
971							. $_tok . q{])},
972							Parse::RecDescent::_tracefirst($text))
973							if defined $::RD_TRACE;
974	102					353	push @item, $_tok;
975	102					214	$item{__ACTION1__}=$_tok;
976
977
978	102	50				265	Parse::RecDescent::_trace(q{>>Matched production: [Paragraph]<<},
979							Parse::RecDescent::_tracefirst($text),
980							q{Block},
981							$tracelevel)
982							if defined $::RD_TRACE;
983
984
985
986	102					209	$_matched = 1;
987	102					537	last;
988							}
989
990
991	436		66			2825	while (!$_matched && !$commit)
992							{
993
994	243	50				823	Parse::RecDescent::_trace(q{Trying production: [Empty_Line]},
995							Parse::RecDescent::_tracefirst($_[1]),
996							q{Block},
997							$tracelevel)
998							if defined $::RD_TRACE;
999	243					798	my $thisprod = $thisrule->{"prods"}[5];
1000	243					376	$text = $_[1];
1001	243					315	my $_savetext;
1002	243					576	@item = (q{Block});
1003	243					600	%item = (__RULE__ => q{Block});
1004	243					340	my $repcount = 0;
1005
1006
1007	243	50				601	Parse::RecDescent::_trace(q{Trying subrule: [Empty_Line]},
1008							Parse::RecDescent::_tracefirst($text),
1009							q{Block},
1010							$tracelevel)
1011							if defined $::RD_TRACE;
1012	24			24		263	if (1) { no strict qw{refs};
	24					54
	24					22553
	243					344
1013	243					750	$expectation->is(q{})->at($text);
1014	243	100		243		3003	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::Empty_Line($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	243					568
1015							{
1016
1017	116	50				611	Parse::RecDescent::_trace(q{<>},
1018							Parse::RecDescent::_tracefirst($text),
1019							q{Block},
1020							$tracelevel)
1021							if defined $::RD_TRACE;
1022	116					373	$expectation->failed();
1023	116					470	last;
1024							}
1025	127	50				679	Parse::RecDescent::_trace(q{>>Matched subrule: [Empty_Line]<< (return value: [}
1026							. $_tok . q{]},
1027
1028							Parse::RecDescent::_tracefirst($text),
1029							q{Block},
1030							$tracelevel)
1031							if defined $::RD_TRACE;
1032	127					254	$item{q{Empty_Line}} = $_tok;
1033	127					228	push @item, $_tok;
1034
1035							}
1036
1037	127	50				287	Parse::RecDescent::_trace(q{Trying action},
1038							Parse::RecDescent::_tracefirst($text),
1039							q{Block},
1040							$tracelevel)
1041							if defined $::RD_TRACE;
1042
1043
1044	127	50				312	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	127					220
1045	127	50				511	unless (defined $_tok)
1046							{
1047	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
1048							if defined $::RD_TRACE;
1049	0					0	last;
1050							}
1051	127	50				287	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
1052							. $_tok . q{])},
1053							Parse::RecDescent::_tracefirst($text))
1054							if defined $::RD_TRACE;
1055	127					193	push @item, $_tok;
1056	127					344	$item{__ACTION1__}=$_tok;
1057
1058
1059	127	50				452	Parse::RecDescent::_trace(q{>>Matched production: [Empty_Line]<<},
1060							Parse::RecDescent::_tracefirst($text),
1061							q{Block},
1062							$tracelevel)
1063							if defined $::RD_TRACE;
1064
1065
1066
1067	127					168	$_matched = 1;
1068	127					216	last;
1069							}
1070
1071
1072	436	100	66			2039	unless ( $_matched \|\| defined($score) )
1073							{
1074
1075
1076	116					217	$_[1] = $text; # NOT SURE THIS IS NEEDED
1077	116	50				306	Parse::RecDescent::_trace(q{<>},
1078							Parse::RecDescent::_tracefirst($_[1]),
1079							q{Block},
1080							$tracelevel)
1081							if defined $::RD_TRACE;
1082	116					852	return undef;
1083							}
1084	320	50	33			986	if (!defined($return) && defined($score))
1085							{
1086	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
1087							q{Block},
1088							$tracelevel)
1089							if defined $::RD_TRACE;
1090	0					0	$return = $score_return;
1091							}
1092	320					628	splice @{$thisparser->{errors}}, $err_at;
	320					738
1093	320	50				839	$return = $item[$#item] unless defined $return;
1094	320	50				808	if (defined $::RD_TRACE)
1095							{
1096	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
1097							$return . q{])}, "",
1098							q{Block},
1099							$tracelevel);
1100	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
1101							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
1102							Parse::RecDescent::_tracefirst($text),
1103							, q{Block},
1104							$tracelevel)
1105							}
1106	320					607	$_[1] = $text;
1107	320					3052	return $return;
1108							}
1109
1110							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
1111							sub Parse::RecDescent::Pod::WikiDoc::Parser::BoldText
1112							{
1113	976			976		1577	my $thisparser = $_[0];
1114	24			24		162	use vars q{$tracelevel};
	24					45
	24					39334
1115	976		50			2929	local $tracelevel = ($tracelevel\|\|0)+1;
1116	976					1412	$ERRORS = 0;
1117	976					2302	my $thisrule = $thisparser->{"rules"}{"BoldText"};
1118
1119	976	50				2153	Parse::RecDescent::_trace(q{Trying rule: [BoldText]},
1120							Parse::RecDescent::_tracefirst($_[1]),
1121							q{BoldText},
1122							$tracelevel)
1123							if defined $::RD_TRACE;
1124
1125
1126	976					1089	my $err_at = @{$thisparser->{errors}};
	976					2065
1127
1128	976					1462	my $score;
1129							my $score_return;
1130	0					0	my $_tok;
1131	976					1290	my $return = undef;
1132	976					1708	my $_matched=0;
1133	976					1260	my $commit=0;
1134	976					1899	my @item = ();
1135	976					1768	my %item = ();
1136	976					1258	my $repeating = $_[2];
1137	976					1217	my $_noactions = $_[3];
1138	976	50				2417	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	976					1295
	976					2121
1139	976					1648	my $_itempos = $_[5];
1140	976	50				2798	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
1141	976					10820	my $text;
1142							my $lastsep;
1143	0					0	my $current_match;
1144	976					3332	my $expectation = new Parse::RecDescent::Expectation(q{});
1145	976					14522	$expectation->at($_[1]);
1146
1147	976					4207	my $thisline;
1148	976					4556	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
1149
1150
1151
1152	976		33			10666	while (!$_matched && !$commit)
1153							{
1154
1155	976	50				10077	Parse::RecDescent::_trace(q{Trying production: []},
1156							Parse::RecDescent::_tracefirst($_[1]),
1157							q{BoldText},
1158							$tracelevel)
1159							if defined $::RD_TRACE;
1160	976					2619	my $thisprod = $thisrule->{"prods"}[0];
1161	976					1536	$text = $_[1];
1162	976					1171	my $_savetext;
1163	976					1844	@item = (q{BoldText});
1164	976					2218	%item = (__RULE__ => q{BoldText});
1165	976					1346	my $repcount = 0;
1166
1167
1168	976	50				2017	Parse::RecDescent::_trace(q{Trying action},
1169							Parse::RecDescent::_tracefirst($text),
1170							q{BoldText},
1171							$tracelevel)
1172							if defined $::RD_TRACE;
1173
1174
1175	976	50				1787	$_tok = ($_noactions) ? 0 : do { extract_delimited( $text, '*' ) };
	976					16797
1176	976	100				95976	unless (defined $_tok)
1177							{
1178	964	50				3072	Parse::RecDescent::_trace(q{<> (return value: [undef])})
1179							if defined $::RD_TRACE;
1180	964					1975	last;
1181							}
1182	12	50				40	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
1183							. $_tok . q{])},
1184							Parse::RecDescent::_tracefirst($text))
1185							if defined $::RD_TRACE;
1186	12					22	push @item, $_tok;
1187	12					27	$item{__ACTION1__}=$_tok;
1188
1189
1190	12	50				42	Parse::RecDescent::_trace(q{Trying action},
1191							Parse::RecDescent::_tracefirst($text),
1192							q{BoldText},
1193							$tracelevel)
1194							if defined $::RD_TRACE;
1195
1196
1197	12	50				41	$_tok = ($_noactions) ? 0 : do {
1198	12					149	$return = {
1199							type => $item[0],
1200							content => $thisparser->Inline(
1201							substr( substr( $item[1], 1), 0, -1 )
1202							),
1203							}
1204							};
1205	12	50				386	unless (defined $_tok)
1206							{
1207	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
1208							if defined $::RD_TRACE;
1209	0					0	last;
1210							}
1211	12	50				35	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
1212							. $_tok . q{])},
1213							Parse::RecDescent::_tracefirst($text))
1214							if defined $::RD_TRACE;
1215	12					20	push @item, $_tok;
1216	12					26	$item{__ACTION2__}=$_tok;
1217
1218
1219	12	50				30	Parse::RecDescent::_trace(q{>>Matched production: []<<},
1220							Parse::RecDescent::_tracefirst($text),
1221							q{BoldText},
1222							$tracelevel)
1223							if defined $::RD_TRACE;
1224
1225
1226
1227	12					15	$_matched = 1;
1228	12					19	last;
1229							}
1230
1231
1232	976	100	66			6399	unless ( $_matched \|\| defined($score) )
1233							{
1234
1235
1236	964					4456	$_[1] = $text; # NOT SURE THIS IS NEEDED
1237	964	50				2423	Parse::RecDescent::_trace(q{<>},
1238							Parse::RecDescent::_tracefirst($_[1]),
1239							q{BoldText},
1240							$tracelevel)
1241							if defined $::RD_TRACE;
1242	964					7304	return undef;
1243							}
1244	12	50	33			37	if (!defined($return) && defined($score))
1245							{
1246	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
1247							q{BoldText},
1248							$tracelevel)
1249							if defined $::RD_TRACE;
1250	0					0	$return = $score_return;
1251							}
1252	12					18	splice @{$thisparser->{errors}}, $err_at;
	12					31
1253	12	50				29	$return = $item[$#item] unless defined $return;
1254	12	50				30	if (defined $::RD_TRACE)
1255							{
1256	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
1257							$return . q{])}, "",
1258							q{BoldText},
1259							$tracelevel);
1260	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
1261							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
1262							Parse::RecDescent::_tracefirst($text),
1263							, q{BoldText},
1264							$tracelevel)
1265							}
1266	12					26	$_[1] = $text;
1267	12					111	return $return;
1268							}
1269
1270							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
1271							sub Parse::RecDescent::Pod::WikiDoc::Parser::Bullet_Item
1272							{
1273	388			388		5274	my $thisparser = $_[0];
1274	24			24		192	use vars q{$tracelevel};
	24					68
	24					12002
1275	388		50			1247	local $tracelevel = ($tracelevel\|\|0)+1;
1276	388					544	$ERRORS = 0;
1277	388					1009	my $thisrule = $thisparser->{"rules"}{"Bullet_Item"};
1278
1279	388	50				1041	Parse::RecDescent::_trace(q{Trying rule: [Bullet_Item]},
1280							Parse::RecDescent::_tracefirst($_[1]),
1281							q{Bullet_Item},
1282							$tracelevel)
1283							if defined $::RD_TRACE;
1284
1285
1286	388					516	my $err_at = @{$thisparser->{errors}};
	388					952
1287
1288	388					641	my $score;
1289							my $score_return;
1290	0					0	my $_tok;
1291	388					529	my $return = undef;
1292	388					524	my $_matched=0;
1293	388					660	my $commit=0;
1294	388					674	my @item = ();
1295	388					666	my %item = ();
1296	388					721	my $repeating = $_[2];
1297	388					576	my $_noactions = $_[3];
1298	388	50				961	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	388					573
	388					14352
1299	388					634	my $_itempos = $_[5];
1300	388	50				1189	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
1301	388					621	my $text;
1302							my $lastsep;
1303	0					0	my $current_match;
1304	388					1358	my $expectation = new Parse::RecDescent::Expectation(q{Bullet_Line});
1305	388					3617	$expectation->at($_[1]);
1306
1307	388					12271	my $thisline;
1308	388					1724	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
1309
1310
1311
1312	388		33			4226	while (!$_matched && !$commit)
1313							{
1314
1315	388	50				1005	Parse::RecDescent::_trace(q{Trying production: [Bullet_Line List_Continuation]},
1316							Parse::RecDescent::_tracefirst($_[1]),
1317							q{Bullet_Item},
1318							$tracelevel)
1319							if defined $::RD_TRACE;
1320	388					1069	my $thisprod = $thisrule->{"prods"}[0];
1321	388					635	$text = $_[1];
1322	388					518	my $_savetext;
1323	388					1124	@item = (q{Bullet_Item});
1324	388					936	%item = (__RULE__ => q{Bullet_Item});
1325	388					535	my $repcount = 0;
1326
1327
1328	388	50				885	Parse::RecDescent::_trace(q{Trying subrule: [Bullet_Line]},
1329							Parse::RecDescent::_tracefirst($text),
1330							q{Bullet_Item},
1331							$tracelevel)
1332							if defined $::RD_TRACE;
1333	24			24		148	if (1) { no strict qw{refs};
	24					70
	24					24856
	388					475
1334	388					1298	$expectation->is(q{})->at($text);
1335	388	100		388		4419	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::Bullet_Line($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	388					878
1336							{
1337
1338	368	50				835	Parse::RecDescent::_trace(q{<>},
1339							Parse::RecDescent::_tracefirst($text),
1340							q{Bullet_Item},
1341							$tracelevel)
1342							if defined $::RD_TRACE;
1343	368					1407	$expectation->failed();
1344	368					1479	last;
1345							}
1346	20	50				118	Parse::RecDescent::_trace(q{>>Matched subrule: [Bullet_Line]<< (return value: [}
1347							. $_tok . q{]},
1348
1349							Parse::RecDescent::_tracefirst($text),
1350							q{Bullet_Item},
1351							$tracelevel)
1352							if defined $::RD_TRACE;
1353	20					45	$item{q{Bullet_Line}} = $_tok;
1354	20					46	push @item, $_tok;
1355
1356							}
1357
1358	20	50				64	Parse::RecDescent::_trace(q{Trying repeated subrule: [List_Continuation]},
1359							Parse::RecDescent::_tracefirst($text),
1360							q{Bullet_Item},
1361							$tracelevel)
1362							if defined $::RD_TRACE;
1363	20					79	$expectation->is(q{List_Continuation})->at($text);
1364
1365	20	50		24		307	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::List_Continuation, 0, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
	24					72
1366							{
1367	0	0				0	Parse::RecDescent::_trace(q{<>},
1368							Parse::RecDescent::_tracefirst($text),
1369							q{Bullet_Item},
1370							$tracelevel)
1371							if defined $::RD_TRACE;
1372	0					0	last;
1373							}
1374	20	50				473	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [List_Continuation]<< (}
1375							. @$_tok . q{ times)},
1376
1377							Parse::RecDescent::_tracefirst($text),
1378							q{Bullet_Item},
1379							$tracelevel)
1380							if defined $::RD_TRACE;
1381	20					61	$item{q{List_Continuation(s?)}} = $_tok;
1382	20					36	push @item, $_tok;
1383
1384
1385
1386	20	50				70	Parse::RecDescent::_trace(q{Trying action},
1387							Parse::RecDescent::_tracefirst($text),
1388							q{Bullet_Item},
1389							$tracelevel)
1390							if defined $::RD_TRACE;
1391
1392
1393	20	50				152	$_tok = ($_noactions) ? 0 : do {
1394	20					616	$return = {
1395							type => $item[0],
1396	20					41	content => $thisparser->Inline( join( "\n", $item[1], @{$item[2]} ) ),
1397							}
1398							};
1399	20	50				473	unless (defined $_tok)
1400							{
1401	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
1402							if defined $::RD_TRACE;
1403	0					0	last;
1404							}
1405	20	50				65	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
1406							. $_tok . q{])},
1407							Parse::RecDescent::_tracefirst($text))
1408							if defined $::RD_TRACE;
1409	20					60	push @item, $_tok;
1410	20					58	$item{__ACTION1__}=$_tok;
1411
1412
1413	20	50				61	Parse::RecDescent::_trace(q{>>Matched production: [Bullet_Line List_Continuation]<<},
1414							Parse::RecDescent::_tracefirst($text),
1415							q{Bullet_Item},
1416							$tracelevel)
1417							if defined $::RD_TRACE;
1418
1419
1420
1421	20					35	$_matched = 1;
1422	20					54	last;
1423							}
1424
1425
1426	388	100	66			2611	unless ( $_matched \|\| defined($score) )
1427							{
1428
1429
1430	368					619	$_[1] = $text; # NOT SURE THIS IS NEEDED
1431	368	50				925	Parse::RecDescent::_trace(q{<>},
1432							Parse::RecDescent::_tracefirst($_[1]),
1433							q{Bullet_Item},
1434							$tracelevel)
1435							if defined $::RD_TRACE;
1436	368					2259	return undef;
1437							}
1438	20	50	33			88	if (!defined($return) && defined($score))
1439							{
1440	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
1441							q{Bullet_Item},
1442							$tracelevel)
1443							if defined $::RD_TRACE;
1444	0					0	$return = $score_return;
1445							}
1446	20					36	splice @{$thisparser->{errors}}, $err_at;
	20					58
1447	20	50				76	$return = $item[$#item] unless defined $return;
1448	20	50				62	if (defined $::RD_TRACE)
1449							{
1450	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
1451							$return . q{])}, "",
1452							q{Bullet_Item},
1453							$tracelevel);
1454	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
1455							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
1456							Parse::RecDescent::_tracefirst($text),
1457							, q{Bullet_Item},
1458							$tracelevel)
1459							}
1460	20					53	$_[1] = $text;
1461	20					231	return $return;
1462							}
1463
1464							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
1465							sub Parse::RecDescent::Pod::WikiDoc::Parser::LinkLabel
1466							{
1467	10			10		32	my $thisparser = $_[0];
1468	24			24		164	use vars q{$tracelevel};
	24					51
	24					39623
1469	10		50			39	local $tracelevel = ($tracelevel\|\|0)+1;
1470	10					18	$ERRORS = 0;
1471	10					33	my $thisrule = $thisparser->{"rules"}{"LinkLabel"};
1472
1473	10	50				30	Parse::RecDescent::_trace(q{Trying rule: [LinkLabel]},
1474							Parse::RecDescent::_tracefirst($_[1]),
1475							q{LinkLabel},
1476							$tracelevel)
1477							if defined $::RD_TRACE;
1478
1479
1480	10					19	my $err_at = @{$thisparser->{errors}};
	10					27
1481
1482	10					22	my $score;
1483							my $score_return;
1484	0					0	my $_tok;
1485	10					21	my $return = undef;
1486	10					20	my $_matched=0;
1487	10					18	my $commit=0;
1488	10					20	my @item = ();
1489	10					29	my %item = ();
1490	10					14	my $repeating = $_[2];
1491	10					18	my $_noactions = $_[3];
1492	10	50				25	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	10					14
	10					24
1493	10					17	my $_itempos = $_[5];
1494	10	50				36	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
1495	10					21	my $text;
1496							my $lastsep;
1497	0					0	my $current_match;
1498	10					44	my $expectation = new Parse::RecDescent::Expectation(q{/^[^\|]*/});
1499	10					108	$expectation->at($_[1]);
1500
1501	10					40	my $thisline;
1502	10					40	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
1503
1504
1505
1506	10		33			150	while (!$_matched && !$commit)
1507							{
1508
1509	10	50				29	Parse::RecDescent::_trace(q{Trying production: [/^[^\|]*/]},
1510							Parse::RecDescent::_tracefirst($_[1]),
1511							q{LinkLabel},
1512							$tracelevel)
1513							if defined $::RD_TRACE;
1514	10					34	my $thisprod = $thisrule->{"prods"}[0];
1515	10					18	$text = $_[1];
1516	10					14	my $_savetext;
1517	10					30	@item = (q{LinkLabel});
1518	10					29	%item = (__RULE__ => q{LinkLabel});
1519	10					18	my $repcount = 0;
1520
1521
1522	10	50				37	Parse::RecDescent::_trace(q{Trying terminal: [/^[^\|]*/]}, Parse::RecDescent::_tracefirst($text),
1523							q{LinkLabel},
1524							$tracelevel)
1525							if defined $::RD_TRACE;
1526	10					21	undef $lastsep;
1527	10					112	$expectation->is(q{})->at($text);
1528
1529
1530	10	50	33			152	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:^[^\|]*)/)
	10	50				127
1531							{
1532	0	0				0	$text = $lastsep . $text if defined $lastsep;
1533	0					0	$expectation->failed();
1534	0	0				0	Parse::RecDescent::_trace(q{<>},
1535							Parse::RecDescent::_tracefirst($text))
1536							if defined $::RD_TRACE;
1537
1538	0					0	last;
1539							}
1540	10					67	$current_match = substr($text, $-[0], $+[0] - $-[0]);
1541	10					36	substr($text,0,length($current_match),q{});
1542	10	50				28	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
1543							. $current_match . q{])},
1544							Parse::RecDescent::_tracefirst($text))
1545							if defined $::RD_TRACE;
1546	10					30	push @item, $item{__PATTERN1__}=$current_match;
1547
1548
1549	10	50				32	Parse::RecDescent::_trace(q{Trying action},
1550							Parse::RecDescent::_tracefirst($text),
1551							q{LinkLabel},
1552							$tracelevel)
1553							if defined $::RD_TRACE;
1554
1555
1556	10	50				30	$_tok = ($_noactions) ? 0 : do {
1557	10					107	$return = {
1558							type => $item[0],
1559							content => $thisparser->Inline( $item[1] ),
1560							}
1561							};
1562	10	50				247	unless (defined $_tok)
1563							{
1564	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
1565							if defined $::RD_TRACE;
1566	0					0	last;
1567							}
1568	10	50				33	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
1569							. $_tok . q{])},
1570							Parse::RecDescent::_tracefirst($text))
1571							if defined $::RD_TRACE;
1572	10					22	push @item, $_tok;
1573	10					28	$item{__ACTION1__}=$_tok;
1574
1575
1576	10	50				30	Parse::RecDescent::_trace(q{>>Matched production: [/^[^\|]*/]<<},
1577							Parse::RecDescent::_tracefirst($text),
1578							q{LinkLabel},
1579							$tracelevel)
1580							if defined $::RD_TRACE;
1581
1582
1583
1584	10					104	$_matched = 1;
1585	10					32	last;
1586							}
1587
1588
1589	10	50	33			39	unless ( $_matched \|\| defined($score) )
1590							{
1591
1592
1593	0					0	$_[1] = $text; # NOT SURE THIS IS NEEDED
1594	0	0				0	Parse::RecDescent::_trace(q{<>},
1595							Parse::RecDescent::_tracefirst($_[1]),
1596							q{LinkLabel},
1597							$tracelevel)
1598							if defined $::RD_TRACE;
1599	0					0	return undef;
1600							}
1601	10	50	33			38	if (!defined($return) && defined($score))
1602							{
1603	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
1604							q{LinkLabel},
1605							$tracelevel)
1606							if defined $::RD_TRACE;
1607	0					0	$return = $score_return;
1608							}
1609	10					20	splice @{$thisparser->{errors}}, $err_at;
	10					27
1610	10	50				27	$return = $item[$#item] unless defined $return;
1611	10	50				32	if (defined $::RD_TRACE)
1612							{
1613	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
1614							$return . q{])}, "",
1615							q{LinkLabel},
1616							$tracelevel);
1617	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
1618							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
1619							Parse::RecDescent::_tracefirst($text),
1620							, q{LinkLabel},
1621							$tracelevel)
1622							}
1623	10					41	$_[1] = $text;
1624	10					118	return $return;
1625							}
1626
1627							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
1628							sub Parse::RecDescent::Pod::WikiDoc::Parser::EscapedChar
1629							{
1630	942			942		1557	my $thisparser = $_[0];
1631	24			24		179	use vars q{$tracelevel};
	24					64
	24					38896
1632	942		50			2785	local $tracelevel = ($tracelevel\|\|0)+1;
1633	942					1269	$ERRORS = 0;
1634	942					2224	my $thisrule = $thisparser->{"rules"}{"EscapedChar"};
1635
1636	942	50				2030	Parse::RecDescent::_trace(q{Trying rule: [EscapedChar]},
1637							Parse::RecDescent::_tracefirst($_[1]),
1638							q{EscapedChar},
1639							$tracelevel)
1640							if defined $::RD_TRACE;
1641
1642
1643	942					1096	my $err_at = @{$thisparser->{errors}};
	942					2258
1644
1645	942					1330	my $score;
1646							my $score_return;
1647	0					0	my $_tok;
1648	942					1179	my $return = undef;
1649	942					2405	my $_matched=0;
1650	942					1166	my $commit=0;
1651	942					1577	my @item = ();
1652	942					1748	my %item = ();
1653	942					1516	my $repeating = $_[2];
1654	942					1155	my $_noactions = $_[3];
1655	942	50				2179	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	942					1152
	942					2133
1656	942					1475	my $_itempos = $_[5];
1657	942	50				2865	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
1658	942					1396	my $text;
1659							my $lastsep;
1660	0					0	my $current_match;
1661	942					3136	my $expectation = new Parse::RecDescent::Expectation(q{'E'});
1662	942					7966	$expectation->at($_[1]);
1663
1664	942					3993	my $thisline;
1665	942					9592	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
1666
1667
1668
1669	942		33			9747	while (!$_matched && !$commit)
1670							{
1671
1672	942	50				2252	Parse::RecDescent::_trace(q{Trying production: ['E']},
1673							Parse::RecDescent::_tracefirst($_[1]),
1674							q{EscapedChar},
1675							$tracelevel)
1676							if defined $::RD_TRACE;
1677	942					2810	my $thisprod = $thisrule->{"prods"}[0];
1678	942					1761	$text = $_[1];
1679	942					1131	my $_savetext;
1680	942					2033	@item = (q{EscapedChar});
1681	942					2079	%item = (__RULE__ => q{EscapedChar});
1682	942					1331	my $repcount = 0;
1683
1684
1685	942	50				2035	Parse::RecDescent::_trace(q{Trying terminal: ['E']},
1686							Parse::RecDescent::_tracefirst($text),
1687							q{EscapedChar},
1688							$tracelevel)
1689							if defined $::RD_TRACE;
1690	942					1321	undef $lastsep;
1691	942					3370	$expectation->is(q{})->at($text);
1692
1693
1694	942	50	33			21376	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and do { $_tok = "E"; 1 } and
	942	100	66			7085
	942		66			1334
	942					6409
1695							substr($text,0,length($_tok)) eq $_tok and
1696	11					27	do { substr($text,0,length($_tok)) = ""; 1; }
	11					32
1697							)
1698							{
1699	931	50				2950	$text = $lastsep . $text if defined $lastsep;
1700
1701	931					2963	$expectation->failed();
1702	931	50				17042	Parse::RecDescent::_trace(q{<>},
1703							Parse::RecDescent::_tracefirst($text))
1704							if defined $::RD_TRACE;
1705	931					1957	last;
1706							}
1707	11	50				41	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
1708							. $_tok . q{])},
1709							Parse::RecDescent::_tracefirst($text))
1710							if defined $::RD_TRACE;
1711	11					32	push @item, $item{__STRING1__}=$_tok;
1712
1713
1714	11	50				34	Parse::RecDescent::_trace(q{Trying action},
1715							Parse::RecDescent::_tracefirst($text),
1716							q{EscapedChar},
1717							$tracelevel)
1718							if defined $::RD_TRACE;
1719
1720
1721	11	50				32	$_tok = ($_noactions) ? 0 : do { extract_bracketed( $text, '<' ) };
	11					82
1722	11	100				969	unless (defined $_tok)
1723							{
1724	7	50				27	Parse::RecDescent::_trace(q{<> (return value: [undef])})
1725							if defined $::RD_TRACE;
1726	7					19	last;
1727							}
1728	4	50				15	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
1729							. $_tok . q{])},
1730							Parse::RecDescent::_tracefirst($text))
1731							if defined $::RD_TRACE;
1732	4					10	push @item, $_tok;
1733	4					11	$item{__ACTION1__}=$_tok;
1734
1735
1736	4	50				53	Parse::RecDescent::_trace(q{Trying action},
1737							Parse::RecDescent::_tracefirst($text),
1738							q{EscapedChar},
1739							$tracelevel)
1740							if defined $::RD_TRACE;
1741
1742
1743	4	50				16	$_tok = ($_noactions) ? 0 : do {
1744	4					25	$return = {
1745							type => $item[0],
1746							content => $item[1] . $item[2]
1747							}
1748							};
1749	4	50				55	unless (defined $_tok)
1750							{
1751	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
1752							if defined $::RD_TRACE;
1753	0					0	last;
1754							}
1755	4	50				16	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
1756							. $_tok . q{])},
1757							Parse::RecDescent::_tracefirst($text))
1758							if defined $::RD_TRACE;
1759	4					9	push @item, $_tok;
1760	4					13	$item{__ACTION2__}=$_tok;
1761
1762
1763	4	50				13	Parse::RecDescent::_trace(q{>>Matched production: ['E']<<},
1764							Parse::RecDescent::_tracefirst($text),
1765							q{EscapedChar},
1766							$tracelevel)
1767							if defined $::RD_TRACE;
1768
1769
1770
1771	4					8	$_matched = 1;
1772	4					9	last;
1773							}
1774
1775
1776	942	100	66			4963	unless ( $_matched \|\| defined($score) )
1777							{
1778
1779
1780	938					1568	$_[1] = $text; # NOT SURE THIS IS NEEDED
1781	938	50				2127	Parse::RecDescent::_trace(q{<>},
1782							Parse::RecDescent::_tracefirst($_[1]),
1783							q{EscapedChar},
1784							$tracelevel)
1785							if defined $::RD_TRACE;
1786	938					7065	return undef;
1787							}
1788	4	50	33			19	if (!defined($return) && defined($score))
1789							{
1790	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
1791							q{EscapedChar},
1792							$tracelevel)
1793							if defined $::RD_TRACE;
1794	0					0	$return = $score_return;
1795							}
1796	4					8	splice @{$thisparser->{errors}}, $err_at;
	4					11
1797	4	50				14	$return = $item[$#item] unless defined $return;
1798	4	50				13	if (defined $::RD_TRACE)
1799							{
1800	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
1801							$return . q{])}, "",
1802							q{EscapedChar},
1803							$tracelevel);
1804	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
1805							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
1806							Parse::RecDescent::_tracefirst($text),
1807							, q{EscapedChar},
1808							$tracelevel)
1809							}
1810	4					7	$_[1] = $text;
1811	4					42	return $return;
1812							}
1813
1814							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
1815							sub Parse::RecDescent::Pod::WikiDoc::Parser::Paragraph
1816							{
1817	345			345		614	my $thisparser = $_[0];
1818	24			24		186	use vars q{$tracelevel};
	24					54
	24					30879
1819	345		50			1142	local $tracelevel = ($tracelevel\|\|0)+1;
1820	345					487	$ERRORS = 0;
1821	345					1072	my $thisrule = $thisparser->{"rules"}{"Paragraph"};
1822
1823	345	50				793	Parse::RecDescent::_trace(q{Trying rule: [Paragraph]},
1824							Parse::RecDescent::_tracefirst($_[1]),
1825							q{Paragraph},
1826							$tracelevel)
1827							if defined $::RD_TRACE;
1828
1829
1830	345					522	my $err_at = @{$thisparser->{errors}};
	345					737
1831
1832	345					500	my $score;
1833							my $score_return;
1834	0					0	my $_tok;
1835	345					460	my $return = undef;
1836	345					434	my $_matched=0;
1837	345					448	my $commit=0;
1838	345					622	my @item = ();
1839	345					579	my %item = ();
1840	345					525	my $repeating = $_[2];
1841	345					470	my $_noactions = $_[3];
1842	345	50				863	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	345					477
	345					736
1843	345					560	my $_itempos = $_[5];
1844	345	50				1047	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
1845	345					572	my $text;
1846							my $lastsep;
1847	0					0	my $current_match;
1848	345					1359	my $expectation = new Parse::RecDescent::Expectation(q{Plain_Line});
1849	345					3189	$expectation->at($_[1]);
1850
1851	345					1481	my $thisline;
1852	345					1640	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
1853
1854
1855
1856	345		33			3777	while (!$_matched && !$commit)
1857							{
1858
1859	345	50				833	Parse::RecDescent::_trace(q{Trying production: [Plain_Line]},
1860							Parse::RecDescent::_tracefirst($_[1]),
1861							q{Paragraph},
1862							$tracelevel)
1863							if defined $::RD_TRACE;
1864	345					948	my $thisprod = $thisrule->{"prods"}[0];
1865	345					505	$text = $_[1];
1866	345					427	my $_savetext;
1867	345					785	@item = (q{Paragraph});
1868	345					792	%item = (__RULE__ => q{Paragraph});
1869	345					496	my $repcount = 0;
1870
1871
1872	345	50				787	Parse::RecDescent::_trace(q{Trying repeated subrule: [Plain_Line]},
1873							Parse::RecDescent::_tracefirst($text),
1874							q{Paragraph},
1875							$tracelevel)
1876							if defined $::RD_TRACE;
1877	345					1127	$expectation->is(q{})->at($text);
1878
1879	345	100		459		5005	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::Plain_Line, 1, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
	459					1072
1880							{
1881	243	50				2804	Parse::RecDescent::_trace(q{<>},
1882							Parse::RecDescent::_tracefirst($text),
1883							q{Paragraph},
1884							$tracelevel)
1885							if defined $::RD_TRACE;
1886	243					426	last;
1887							}
1888	102	50				1516	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Plain_Line]<< (}
1889							. @$_tok . q{ times)},
1890
1891							Parse::RecDescent::_tracefirst($text),
1892							q{Paragraph},
1893							$tracelevel)
1894							if defined $::RD_TRACE;
1895	102					1031	$item{q{Plain_Line(s)}} = $_tok;
1896	102					180	push @item, $_tok;
1897
1898
1899
1900	102	50				251	Parse::RecDescent::_trace(q{Trying action},
1901							Parse::RecDescent::_tracefirst($text),
1902							q{Paragraph},
1903							$tracelevel)
1904							if defined $::RD_TRACE;
1905
1906
1907	102	50				239	$_tok = ($_noactions) ? 0 : do {
1908	102					1353	$return = {
1909							type => $item[0],
1910							content => $thisparser->Inline(
1911	102					206	join( q{}, @{$item[1]} )
1912							),
1913							}
1914							};
1915	102	50				2539	unless (defined $_tok)
1916							{
1917	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
1918							if defined $::RD_TRACE;
1919	0					0	last;
1920							}
1921	102	50				303	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
1922							. $_tok . q{])},
1923							Parse::RecDescent::_tracefirst($text))
1924							if defined $::RD_TRACE;
1925	102					210	push @item, $_tok;
1926	102					269	$item{__ACTION1__}=$_tok;
1927
1928
1929	102	50				289	Parse::RecDescent::_trace(q{>>Matched production: [Plain_Line]<<},
1930							Parse::RecDescent::_tracefirst($text),
1931							q{Paragraph},
1932							$tracelevel)
1933							if defined $::RD_TRACE;
1934
1935
1936
1937	102					206	$_matched = 1;
1938	102					564	last;
1939							}
1940
1941
1942	345	100	66			2748	unless ( $_matched \|\| defined($score) )
1943							{
1944
1945
1946	243					425	$_[1] = $text; # NOT SURE THIS IS NEEDED
1947	243	50				543	Parse::RecDescent::_trace(q{<>},
1948							Parse::RecDescent::_tracefirst($_[1]),
1949							q{Paragraph},
1950							$tracelevel)
1951							if defined $::RD_TRACE;
1952	243					1705	return undef;
1953							}
1954	102	50	33			393	if (!defined($return) && defined($score))
1955							{
1956	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
1957							q{Paragraph},
1958							$tracelevel)
1959							if defined $::RD_TRACE;
1960	0					0	$return = $score_return;
1961							}
1962	102					245	splice @{$thisparser->{errors}}, $err_at;
	102					343
1963	102	50				283	$return = $item[$#item] unless defined $return;
1964	102	50				385	if (defined $::RD_TRACE)
1965							{
1966	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
1967							$return . q{])}, "",
1968							q{Paragraph},
1969							$tracelevel);
1970	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
1971							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
1972							Parse::RecDescent::_tracefirst($text),
1973							, q{Paragraph},
1974							$tracelevel)
1975							}
1976	102					247	$_[1] = $text;
1977	102					1240	return $return;
1978							}
1979
1980							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
1981							sub Parse::RecDescent::Pod::WikiDoc::Parser::Parens
1982							{
1983	930			930		1551	my $thisparser = $_[0];
1984	24			24		180	use vars q{$tracelevel};
	24					66
	24					47364
1985	930		50			3066	local $tracelevel = ($tracelevel\|\|0)+1;
1986	930					1399	$ERRORS = 0;
1987	930					2150	my $thisrule = $thisparser->{"rules"}{"Parens"};
1988
1989	930	50				1950	Parse::RecDescent::_trace(q{Trying rule: [Parens]},
1990							Parse::RecDescent::_tracefirst($_[1]),
1991							q{Parens},
1992							$tracelevel)
1993							if defined $::RD_TRACE;
1994
1995
1996	930					1067	my $err_at = @{$thisparser->{errors}};
	930					2266
1997
1998	930					1390	my $score;
1999							my $score_return;
2000	0					0	my $_tok;
2001	930					1275	my $return = undef;
2002	930					1093	my $_matched=0;
2003	930					1107	my $commit=0;
2004	930					1525	my @item = ();
2005	930					1596	my %item = ();
2006	930					1286	my $repeating = $_[2];
2007	930					1273	my $_noactions = $_[3];
2008	930	50				3530	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	930					1159
	930					1873
2009	930					1870	my $_itempos = $_[5];
2010	930	50				2693	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
2011	930					1680	my $text;
2012							my $lastsep;
2013	0					0	my $current_match;
2014	930					3468	my $expectation = new Parse::RecDescent::Expectation(q{});
2015	930					18568	$expectation->at($_[1]);
2016
2017	930					4164	my $thisline;
2018	930					4220	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
2019
2020
2021
2022	930		33			12278	while (!$_matched && !$commit)
2023							{
2024
2025	930	50				2144	Parse::RecDescent::_trace(q{Trying production: []},
2026							Parse::RecDescent::_tracefirst($_[1]),
2027							q{Parens},
2028							$tracelevel)
2029							if defined $::RD_TRACE;
2030	930					2193	my $thisprod = $thisrule->{"prods"}[0];
2031	930					1456	$text = $_[1];
2032	930					1134	my $_savetext;
2033	930					2919	@item = (q{Parens});
2034	930					2111	%item = (__RULE__ => q{Parens});
2035	930					1343	my $repcount = 0;
2036
2037
2038	930	50				2045	Parse::RecDescent::_trace(q{Trying action},
2039							Parse::RecDescent::_tracefirst($text),
2040							q{Parens},
2041							$tracelevel)
2042							if defined $::RD_TRACE;
2043
2044
2045	930	50				1762	$_tok = ($_noactions) ? 0 : do { extract_bracketed( $text, '(' ) };
	930					13422
2046	930	100				77137	unless (defined $_tok)
2047							{
2048	925	50				2230	Parse::RecDescent::_trace(q{<> (return value: [undef])})
2049							if defined $::RD_TRACE;
2050	925					1654	last;
2051							}
2052	5	50				28	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
2053							. $_tok . q{])},
2054							Parse::RecDescent::_tracefirst($text))
2055							if defined $::RD_TRACE;
2056	5					13	push @item, $_tok;
2057	5					16	$item{__ACTION1__}=$_tok;
2058
2059
2060	5	50				22	Parse::RecDescent::_trace(q{Trying action},
2061							Parse::RecDescent::_tracefirst($text),
2062							q{Parens},
2063							$tracelevel)
2064							if defined $::RD_TRACE;
2065
2066
2067	5	50				17	$_tok = ($_noactions) ? 0 : do {
2068	5					111	$return = {
2069							type => $item[0],
2070							content => $thisparser->Inline(
2071							substr( substr( $item[1], 1), 0, -1 )
2072							),
2073							}
2074							};
2075	5	50				131	unless (defined $_tok)
2076							{
2077	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
2078							if defined $::RD_TRACE;
2079	0					0	last;
2080							}
2081	5	50				21	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
2082							. $_tok . q{])},
2083							Parse::RecDescent::_tracefirst($text))
2084							if defined $::RD_TRACE;
2085	5					12	push @item, $_tok;
2086	5					15	$item{__ACTION2__}=$_tok;
2087
2088
2089	5	50				19	Parse::RecDescent::_trace(q{>>Matched production: []<<},
2090							Parse::RecDescent::_tracefirst($text),
2091							q{Parens},
2092							$tracelevel)
2093							if defined $::RD_TRACE;
2094
2095
2096
2097	5					12	$_matched = 1;
2098	5					10	last;
2099							}
2100
2101
2102	930	100	66			10494	unless ( $_matched \|\| defined($score) )
2103							{
2104
2105
2106	925					1635	$_[1] = $text; # NOT SURE THIS IS NEEDED
2107	925	50				2125	Parse::RecDescent::_trace(q{<>},
2108							Parse::RecDescent::_tracefirst($_[1]),
2109							q{Parens},
2110							$tracelevel)
2111							if defined $::RD_TRACE;
2112	925					12937	return undef;
2113							}
2114	5	50	33			24	if (!defined($return) && defined($score))
2115							{
2116	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
2117							q{Parens},
2118							$tracelevel)
2119							if defined $::RD_TRACE;
2120	0					0	$return = $score_return;
2121							}
2122	5					10	splice @{$thisparser->{errors}}, $err_at;
	5					14
2123	5	50				19	$return = $item[$#item] unless defined $return;
2124	5	50				17	if (defined $::RD_TRACE)
2125							{
2126	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
2127							$return . q{])}, "",
2128							q{Parens},
2129							$tracelevel);
2130	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
2131							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
2132							Parse::RecDescent::_tracefirst($text),
2133							, q{Parens},
2134							$tracelevel)
2135							}
2136	5					15	$_[1] = $text;
2137	5					135	return $return;
2138							}
2139
2140							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
2141							sub Parse::RecDescent::Pod::WikiDoc::Parser::Inline
2142							{
2143	245			245		15955	my $thisparser = $_[0];
2144	24			24		194	use vars q{$tracelevel};
	24					53
	24					28647
2145	245		50			879	local $tracelevel = ($tracelevel\|\|0)+1;
2146	245					382	$ERRORS = 0;
2147	245					772	my $thisrule = $thisparser->{"rules"}{"Inline"};
2148
2149	245	50				676	Parse::RecDescent::_trace(q{Trying rule: [Inline]},
2150							Parse::RecDescent::_tracefirst($_[1]),
2151							q{Inline},
2152							$tracelevel)
2153							if defined $::RD_TRACE;
2154
2155
2156	245					358	my $err_at = @{$thisparser->{errors}};
	245					527
2157
2158	245					473	my $score;
2159							my $score_return;
2160	0					0	my $_tok;
2161	245					365	my $return = undef;
2162	245					448	my $_matched=0;
2163	245					351	my $commit=0;
2164	245					482	my @item = ();
2165	245					478	my %item = ();
2166	245					493	my $repeating = $_[2];
2167	245					355	my $_noactions = $_[3];
2168	245	50				691	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	245					330
	245					692
2169	245					1139	my $_itempos = $_[5];
2170	245	50				803	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
2171	245					541	my $text;
2172							my $lastsep;
2173	0					0	my $current_match;
2174	245					3575	my $expectation = new Parse::RecDescent::Expectation(q{Chunk});
2175	245					2252	$expectation->at($_[1]);
2176
2177	245					1091	my $thisline;
2178	245					1386	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
2179
2180
2181
2182	245		33			2732	while (!$_matched && !$commit)
2183							{
2184
2185	245	50				650	Parse::RecDescent::_trace(q{Trying production: [Chunk]},
2186							Parse::RecDescent::_tracefirst($_[1]),
2187							q{Inline},
2188							$tracelevel)
2189							if defined $::RD_TRACE;
2190	245					819	my $thisprod = $thisrule->{"prods"}[0];
2191	245					517	$text = $_[1];
2192	245					321	my $_savetext;
2193	245					562	@item = (q{Inline});
2194	245					607	%item = (__RULE__ => q{Inline});
2195	245					366	my $repcount = 0;
2196
2197
2198	245	50				593	Parse::RecDescent::_trace(q{Trying repeated subrule: [Chunk]},
2199							Parse::RecDescent::_tracefirst($text),
2200							q{Inline},
2201							$tracelevel)
2202							if defined $::RD_TRACE;
2203	245					1442	$expectation->is(q{})->at($text);
2204
2205	245	50		1592		6107	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::Chunk, 0, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
	1592					3658
2206							{
2207	0	0				0	Parse::RecDescent::_trace(q{<>},
2208							Parse::RecDescent::_tracefirst($text),
2209							q{Inline},
2210							$tracelevel)
2211							if defined $::RD_TRACE;
2212	0					0	last;
2213							}
2214	245	50				6181	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Chunk]<< (}
2215							. @$_tok . q{ times)},
2216
2217							Parse::RecDescent::_tracefirst($text),
2218							q{Inline},
2219							$tracelevel)
2220							if defined $::RD_TRACE;
2221	245					681	$item{q{Chunk(s?)}} = $_tok;
2222	245					512	push @item, $_tok;
2223
2224
2225
2226	245	50				697	Parse::RecDescent::_trace(q{Trying action},
2227							Parse::RecDescent::_tracefirst($text),
2228							q{Inline},
2229							$tracelevel)
2230							if defined $::RD_TRACE;
2231
2232
2233	245	50				765	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	245					488
2234	245	50				707	unless (defined $_tok)
2235							{
2236	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
2237							if defined $::RD_TRACE;
2238	0					0	last;
2239							}
2240	245	50				632	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
2241							. $_tok . q{])},
2242							Parse::RecDescent::_tracefirst($text))
2243							if defined $::RD_TRACE;
2244	245					5894	push @item, $_tok;
2245	245					555	$item{__ACTION1__}=$_tok;
2246
2247
2248	245	50				679	Parse::RecDescent::_trace(q{>>Matched production: [Chunk]<<},
2249							Parse::RecDescent::_tracefirst($text),
2250							q{Inline},
2251							$tracelevel)
2252							if defined $::RD_TRACE;
2253
2254
2255
2256	245					509	$_matched = 1;
2257	245					506	last;
2258							}
2259
2260
2261	245	50	33			754	unless ( $_matched \|\| defined($score) )
2262							{
2263
2264
2265	0					0	$_[1] = $text; # NOT SURE THIS IS NEEDED
2266	0	0				0	Parse::RecDescent::_trace(q{<>},
2267							Parse::RecDescent::_tracefirst($_[1]),
2268							q{Inline},
2269							$tracelevel)
2270							if defined $::RD_TRACE;
2271	0					0	return undef;
2272							}
2273	245	50	33			754	if (!defined($return) && defined($score))
2274							{
2275	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
2276							q{Inline},
2277							$tracelevel)
2278							if defined $::RD_TRACE;
2279	0					0	$return = $score_return;
2280							}
2281	245					332	splice @{$thisparser->{errors}}, $err_at;
	245					656
2282	245	50				650	$return = $item[$#item] unless defined $return;
2283	245	50				607	if (defined $::RD_TRACE)
2284							{
2285	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
2286							$return . q{])}, "",
2287							q{Inline},
2288							$tracelevel);
2289	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
2290							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
2291							Parse::RecDescent::_tracefirst($text),
2292							, q{Inline},
2293							$tracelevel)
2294							}
2295	245					609	$_[1] = $text;
2296	245					2397	return $return;
2297							}
2298
2299							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
2300							sub Parse::RecDescent::Pod::WikiDoc::Parser::ItalicText
2301							{
2302	964			964		1648	my $thisparser = $_[0];
2303	24			24		1723	use vars q{$tracelevel};
	24					53
	24					32935
2304	964		50			10419	local $tracelevel = ($tracelevel\|\|0)+1;
2305	964					1232	$ERRORS = 0;
2306	964					2236	my $thisrule = $thisparser->{"rules"}{"ItalicText"};
2307
2308	964	50				2109	Parse::RecDescent::_trace(q{Trying rule: [ItalicText]},
2309							Parse::RecDescent::_tracefirst($_[1]),
2310							q{ItalicText},
2311							$tracelevel)
2312							if defined $::RD_TRACE;
2313
2314
2315	964					1131	my $err_at = @{$thisparser->{errors}};
	964					2047
2316
2317	964					1397	my $score;
2318							my $score_return;
2319	0					0	my $_tok;
2320	964					1620	my $return = undef;
2321	964					2683	my $_matched=0;
2322	964					1223	my $commit=0;
2323	964					1747	my @item = ();
2324	964					1622	my %item = ();
2325	964					1229	my $repeating = $_[2];
2326	964					1295	my $_noactions = $_[3];
2327	964	50				2092	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	964					1325
	964					1963
2328	964					1513	my $_itempos = $_[5];
2329	964	50				2655	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
2330	964					1435	my $text;
2331							my $lastsep;
2332	0					0	my $current_match;
2333	964					3677	my $expectation = new Parse::RecDescent::Expectation(q{});
2334	964					7921	$expectation->at($_[1]);
2335
2336	964					4659	my $thisline;
2337	964					4444	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
2338
2339
2340
2341	964		33			11128	while (!$_matched && !$commit)
2342							{
2343
2344	964	50				2274	Parse::RecDescent::_trace(q{Trying production: []},
2345							Parse::RecDescent::_tracefirst($_[1]),
2346							q{ItalicText},
2347							$tracelevel)
2348							if defined $::RD_TRACE;
2349	964					2410	my $thisprod = $thisrule->{"prods"}[0];
2350	964					1400	$text = $_[1];
2351	964					1266	my $_savetext;
2352	964					1897	@item = (q{ItalicText});
2353	964					2134	%item = (__RULE__ => q{ItalicText});
2354	964					1752	my $repcount = 0;
2355
2356
2357	964	50				2248	Parse::RecDescent::_trace(q{Trying action},
2358							Parse::RecDescent::_tracefirst($text),
2359							q{ItalicText},
2360							$tracelevel)
2361							if defined $::RD_TRACE;
2362
2363
2364	964	50				1739	$_tok = ($_noactions) ? 0 : do { extract_delimited( $text, '~' ) };
	964					4418
2365	964	100				77213	unless (defined $_tok)
2366							{
2367	952	50				2350	Parse::RecDescent::_trace(q{<> (return value: [undef])})
2368							if defined $::RD_TRACE;
2369	952					1848	last;
2370							}
2371	12	50				45	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
2372							. $_tok . q{])},
2373							Parse::RecDescent::_tracefirst($text))
2374							if defined $::RD_TRACE;
2375	12					26	push @item, $_tok;
2376	12					35	$item{__ACTION1__}=$_tok;
2377
2378
2379	12	50				32	Parse::RecDescent::_trace(q{Trying action},
2380							Parse::RecDescent::_tracefirst($text),
2381							q{ItalicText},
2382							$tracelevel)
2383							if defined $::RD_TRACE;
2384
2385
2386	12	50				61	$_tok = ($_noactions) ? 0 : do {
2387	12					197	$return = {
2388							type => $item[0],
2389							content => $thisparser->Inline(
2390							substr( substr( $item[1], 1), 0, -1 )
2391							),
2392							}
2393							};
2394	12	50				347	unless (defined $_tok)
2395							{
2396	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
2397							if defined $::RD_TRACE;
2398	0					0	last;
2399							}
2400	12	50				38	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
2401							. $_tok . q{])},
2402							Parse::RecDescent::_tracefirst($text))
2403							if defined $::RD_TRACE;
2404	12					23	push @item, $_tok;
2405	12					34	$item{__ACTION2__}=$_tok;
2406
2407
2408	12	50				31	Parse::RecDescent::_trace(q{>>Matched production: []<<},
2409							Parse::RecDescent::_tracefirst($text),
2410							q{ItalicText},
2411							$tracelevel)
2412							if defined $::RD_TRACE;
2413
2414
2415
2416	12					20	$_matched = 1;
2417	12					29	last;
2418							}
2419
2420
2421	964	100	66			6466	unless ( $_matched \|\| defined($score) )
2422							{
2423
2424
2425	952					1669	$_[1] = $text; # NOT SURE THIS IS NEEDED
2426	952	50				2011	Parse::RecDescent::_trace(q{<>},
2427							Parse::RecDescent::_tracefirst($_[1]),
2428							q{ItalicText},
2429							$tracelevel)
2430							if defined $::RD_TRACE;
2431	952					7174	return undef;
2432							}
2433	12	50	33			43	if (!defined($return) && defined($score))
2434							{
2435	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
2436							q{ItalicText},
2437							$tracelevel)
2438							if defined $::RD_TRACE;
2439	0					0	$return = $score_return;
2440							}
2441	12					18	splice @{$thisparser->{errors}}, $err_at;
	12					30
2442	12	50				49	$return = $item[$#item] unless defined $return;
2443	12	50				32	if (defined $::RD_TRACE)
2444							{
2445	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
2446							$return . q{])}, "",
2447							q{ItalicText},
2448							$tracelevel);
2449	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
2450							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
2451							Parse::RecDescent::_tracefirst($text),
2452							, q{ItalicText},
2453							$tracelevel)
2454							}
2455	12					30	$_[1] = $text;
2456	12					121	return $return;
2457							}
2458
2459							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
2460							sub Parse::RecDescent::Pod::WikiDoc::Parser::Preformat
2461							{
2462	349			349		698	my $thisparser = $_[0];
2463	24			24		943	use vars q{$tracelevel};
	24					59
	24					42285
2464	349		50			1064	local $tracelevel = ($tracelevel\|\|0)+1;
2465	349					488	$ERRORS = 0;
2466	349					916	my $thisrule = $thisparser->{"rules"}{"Preformat"};
2467
2468	349	50				3173	Parse::RecDescent::_trace(q{Trying rule: [Preformat]},
2469							Parse::RecDescent::_tracefirst($_[1]),
2470							q{Preformat},
2471							$tracelevel)
2472							if defined $::RD_TRACE;
2473
2474
2475	349					449	my $err_at = @{$thisparser->{errors}};
	349					755
2476
2477	349					962	my $score;
2478							my $score_return;
2479	0					0	my $_tok;
2480	349					486	my $return = undef;
2481	349					421	my $_matched=0;
2482	349					454	my $commit=0;
2483	349					588	my @item = ();
2484	349					605	my %item = ();
2485	349					482	my $repeating = $_[2];
2486	349					606	my $_noactions = $_[3];
2487	349	50				870	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	349					499
	349					718
2488	349					648	my $_itempos = $_[5];
2489	349	50				1064	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
2490	349					586	my $text;
2491							my $lastsep;
2492	0					0	my $current_match;
2493	349					1246	my $expectation = new Parse::RecDescent::Expectation(q{Indented_Line});
2494	349					3041	$expectation->at($_[1]);
2495
2496	349					1888	my $thisline;
2497	349					1671	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
2498
2499
2500
2501	349		33			3641	while (!$_matched && !$commit)
2502							{
2503
2504	349	50				924	Parse::RecDescent::_trace(q{Trying production: [Indented_Line Indent_Continuation Empty_Line]},
2505							Parse::RecDescent::_tracefirst($_[1]),
2506							q{Preformat},
2507							$tracelevel)
2508							if defined $::RD_TRACE;
2509	349					912	my $thisprod = $thisrule->{"prods"}[0];
2510	349					936	$text = $_[1];
2511	349					422	my $_savetext;
2512	349					741	@item = (q{Preformat});
2513	349					814	%item = (__RULE__ => q{Preformat});
2514	349					570	my $repcount = 0;
2515
2516
2517	349	50				799	Parse::RecDescent::_trace(q{Trying repeated subrule: [Indented_Line]},
2518							Parse::RecDescent::_tracefirst($text),
2519							q{Preformat},
2520							$tracelevel)
2521							if defined $::RD_TRACE;
2522	349					1613	$expectation->is(q{})->at($text);
2523
2524	349	100		358		4335	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::Indented_Line, 1, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
	358					887
2525							{
2526	345	50				4316	Parse::RecDescent::_trace(q{<>},
2527							Parse::RecDescent::_tracefirst($text),
2528							q{Preformat},
2529							$tracelevel)
2530							if defined $::RD_TRACE;
2531	345					634	last;
2532							}
2533	4	50				66	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Indented_Line]<< (}
2534							. @$_tok . q{ times)},
2535
2536							Parse::RecDescent::_tracefirst($text),
2537							q{Preformat},
2538							$tracelevel)
2539							if defined $::RD_TRACE;
2540	4					10	$item{q{Indented_Line(s)}} = $_tok;
2541	4					7	push @item, $_tok;
2542
2543
2544
2545	4	50				12	Parse::RecDescent::_trace(q{Trying repeated subrule: [Indent_Continuation]},
2546							Parse::RecDescent::_tracefirst($text),
2547							q{Preformat},
2548							$tracelevel)
2549							if defined $::RD_TRACE;
2550	4					16	$expectation->is(q{Indent_Continuation})->at($text);
2551
2552	4	50		6		55	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::Indent_Continuation, 0, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
	6					24
2553							{
2554	0	0				0	Parse::RecDescent::_trace(q{<>},
2555							Parse::RecDescent::_tracefirst($text),
2556							q{Preformat},
2557							$tracelevel)
2558							if defined $::RD_TRACE;
2559	0					0	last;
2560							}
2561	4	50				58	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Indent_Continuation]<< (}
2562							. @$_tok . q{ times)},
2563
2564							Parse::RecDescent::_tracefirst($text),
2565							q{Preformat},
2566							$tracelevel)
2567							if defined $::RD_TRACE;
2568	4					9	$item{q{Indent_Continuation(s?)}} = $_tok;
2569	4					14	push @item, $_tok;
2570
2571
2572
2573	4	50				21	Parse::RecDescent::_trace(q{Trying repeated subrule: [Empty_Line]},
2574							Parse::RecDescent::_tracefirst($text),
2575							q{Preformat},
2576							$tracelevel)
2577							if defined $::RD_TRACE;
2578	4					16	$expectation->is(q{Empty_Line})->at($text);
2579
2580	4	50		4		51	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::Empty_Line, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
	4					12
2581							{
2582	0	0				0	Parse::RecDescent::_trace(q{<>},
2583							Parse::RecDescent::_tracefirst($text),
2584							q{Preformat},
2585							$tracelevel)
2586							if defined $::RD_TRACE;
2587	0					0	last;
2588							}
2589	4	50				61	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Empty_Line]<< (}
2590							. @$_tok . q{ times)},
2591
2592							Parse::RecDescent::_tracefirst($text),
2593							q{Preformat},
2594							$tracelevel)
2595							if defined $::RD_TRACE;
2596	4					9	$item{q{Empty_Line(?)}} = $_tok;
2597	4					9	push @item, $_tok;
2598
2599
2600
2601	4	50				15	Parse::RecDescent::_trace(q{Trying action},
2602							Parse::RecDescent::_tracefirst($text),
2603							q{Preformat},
2604							$tracelevel)
2605							if defined $::RD_TRACE;
2606
2607
2608	4	50				11	$_tok = ($_noactions) ? 0 : do {
2609	4					9	$return = {
2610							type => $item[0],
2611	4					6	content => [ @{$item[1]}, map { @{$_} } @{$item[2]} ],
	2					3
	2					10
	4					20
2612							}
2613							};
2614	4	50				15	unless (defined $_tok)
2615							{
2616	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
2617							if defined $::RD_TRACE;
2618	0					0	last;
2619							}
2620	4	50				13	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
2621							. $_tok . q{])},
2622							Parse::RecDescent::_tracefirst($text))
2623							if defined $::RD_TRACE;
2624	4					171	push @item, $_tok;
2625	4					294	$item{__ACTION1__}=$_tok;
2626
2627
2628	4	50				14	Parse::RecDescent::_trace(q{>>Matched production: [Indented_Line Indent_Continuation Empty_Line]<<},
2629							Parse::RecDescent::_tracefirst($text),
2630							q{Preformat},
2631							$tracelevel)
2632							if defined $::RD_TRACE;
2633
2634
2635
2636	4					6	$_matched = 1;
2637	4					8	last;
2638							}
2639
2640
2641	349	100	66			2256	unless ( $_matched \|\| defined($score) )
2642							{
2643
2644
2645	345					637	$_[1] = $text; # NOT SURE THIS IS NEEDED
2646	345	50				1011	Parse::RecDescent::_trace(q{<>},
2647							Parse::RecDescent::_tracefirst($_[1]),
2648							q{Preformat},
2649							$tracelevel)
2650							if defined $::RD_TRACE;
2651	345					2578	return undef;
2652							}
2653	4	50	33			19	if (!defined($return) && defined($score))
2654							{
2655	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
2656							q{Preformat},
2657							$tracelevel)
2658							if defined $::RD_TRACE;
2659	0					0	$return = $score_return;
2660							}
2661	4					4	splice @{$thisparser->{errors}}, $err_at;
	4					12
2662	4	50				12	$return = $item[$#item] unless defined $return;
2663	4	50				10	if (defined $::RD_TRACE)
2664							{
2665	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
2666							$return . q{])}, "",
2667							q{Preformat},
2668							$tracelevel);
2669	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
2670							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
2671							Parse::RecDescent::_tracefirst($text),
2672							, q{Preformat},
2673							$tracelevel)
2674							}
2675	4					9	$_[1] = $text;
2676	4					41	return $return;
2677							}
2678
2679							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
2680							sub Parse::RecDescent::Pod::WikiDoc::Parser::Chunk
2681							{
2682	1592			1592		28474	my $thisparser = $_[0];
2683	24			24		289	use vars q{$tracelevel};
	24					56
	24					11895
2684	1592		50			4359	local $tracelevel = ($tracelevel\|\|0)+1;
2685	1592					2143	$ERRORS = 0;
2686	1592					3344	my $thisrule = $thisparser->{"rules"}{"Chunk"};
2687
2688	1592	50				4493	Parse::RecDescent::_trace(q{Trying rule: [Chunk]},
2689							Parse::RecDescent::_tracefirst($_[1]),
2690							q{Chunk},
2691							$tracelevel)
2692							if defined $::RD_TRACE;
2693
2694
2695	1592					1849	my $err_at = @{$thisparser->{errors}};
	1592					4541
2696
2697	1592					2221	my $score;
2698							my $score_return;
2699	0					0	my $_tok;
2700	1592					1985	my $return = undef;
2701	1592					1805	my $_matched=0;
2702	1592					2195	my $commit=0;
2703	1592					2460	my @item = ();
2704	1592					8266	my %item = ();
2705	1592					1993	my $repeating = $_[2];
2706	1592					2188	my $_noactions = $_[3];
2707	1592	50				3209	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	1592					1854
	1592					3443
2708	1592					2178	my $_itempos = $_[5];
2709	1592	50				4158	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
2710	1592					2312	my $text;
2711							my $lastsep;
2712	0					0	my $current_match;
2713	1592					5569	my $expectation = new Parse::RecDescent::Expectation(q{WhiteSpace, or InlineCode, or BoldText, or ItalicText, or LinkText, or EscapedChar, or KeyWord, or Parens, or RegularText});
2714	1592					13667	$expectation->at($_[1]);
2715
2716	1592					6600	my $thisline;
2717	1592					7583	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
2718
2719
2720
2721	1592		33			20019	while (!$_matched && !$commit)
2722							{
2723
2724	1592	50				5120	Parse::RecDescent::_trace(q{Trying production: [WhiteSpace]},
2725							Parse::RecDescent::_tracefirst($_[1]),
2726							q{Chunk},
2727							$tracelevel)
2728							if defined $::RD_TRACE;
2729	1592					3176	my $thisprod = $thisrule->{"prods"}[0];
2730	1592					2247	$text = $_[1];
2731	1592					1735	my $_savetext;
2732	1592					3157	@item = (q{Chunk});
2733	1592					3398	%item = (__RULE__ => q{Chunk});
2734	1592					1924	my $repcount = 0;
2735
2736
2737	1592	50				3643	Parse::RecDescent::_trace(q{Trying subrule: [WhiteSpace]},
2738							Parse::RecDescent::_tracefirst($text),
2739							q{Chunk},
2740							$tracelevel)
2741							if defined $::RD_TRACE;
2742	24			24		177	if (1) { no strict qw{refs};
	24					62
	24					14454
	1592					1950
2743	1592					4840	$expectation->is(q{})->at($text);
2744	1592	100		1592		19005	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::WhiteSpace($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	1592					3665
2745							{
2746
2747	989	50				2340	Parse::RecDescent::_trace(q{<>},
2748							Parse::RecDescent::_tracefirst($text),
2749							q{Chunk},
2750							$tracelevel)
2751							if defined $::RD_TRACE;
2752	989					3010	$expectation->failed();
2753	989					4556	last;
2754							}
2755	603	50				2589	Parse::RecDescent::_trace(q{>>Matched subrule: [WhiteSpace]<< (return value: [}
2756							. $_tok . q{]},
2757
2758							Parse::RecDescent::_tracefirst($text),
2759							q{Chunk},
2760							$tracelevel)
2761							if defined $::RD_TRACE;
2762	603					1259	$item{q{WhiteSpace}} = $_tok;
2763	603					1006	push @item, $_tok;
2764
2765							}
2766
2767	603	50				1608	Parse::RecDescent::_trace(q{Trying action},
2768							Parse::RecDescent::_tracefirst($text),
2769							q{Chunk},
2770							$tracelevel)
2771							if defined $::RD_TRACE;
2772
2773
2774	603	50				1275	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	603					1212
2775	603	50				1438	unless (defined $_tok)
2776							{
2777	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
2778							if defined $::RD_TRACE;
2779	0					0	last;
2780							}
2781	603	50				1392	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
2782							. $_tok . q{])},
2783							Parse::RecDescent::_tracefirst($text))
2784							if defined $::RD_TRACE;
2785	603					836	push @item, $_tok;
2786	603					1037	$item{__ACTION1__}=$_tok;
2787
2788
2789	603	50				1488	Parse::RecDescent::_trace(q{>>Matched production: [WhiteSpace]<<},
2790							Parse::RecDescent::_tracefirst($text),
2791							q{Chunk},
2792							$tracelevel)
2793							if defined $::RD_TRACE;
2794
2795
2796
2797	603					834	$_matched = 1;
2798	603					1188	last;
2799							}
2800
2801
2802	1592		66			7925	while (!$_matched && !$commit)
2803							{
2804
2805	989	50				2066	Parse::RecDescent::_trace(q{Trying production: [InlineCode]},
2806							Parse::RecDescent::_tracefirst($_[1]),
2807							q{Chunk},
2808							$tracelevel)
2809							if defined $::RD_TRACE;
2810	989					2339	my $thisprod = $thisrule->{"prods"}[1];
2811	989					1628	$text = $_[1];
2812	989					1174	my $_savetext;
2813	989					2933	@item = (q{Chunk});
2814	989					2302	%item = (__RULE__ => q{Chunk});
2815	989					1520	my $repcount = 0;
2816
2817
2818	989	50				4481	Parse::RecDescent::_trace(q{Trying subrule: [InlineCode]},
2819							Parse::RecDescent::_tracefirst($text),
2820							q{Chunk},
2821							$tracelevel)
2822							if defined $::RD_TRACE;
2823	24			24		175	if (1) { no strict qw{refs};
	24					62
	24					13730
	989					1401
2824	989					9932	$expectation->is(q{})->at($text);
2825	989	100		989		10898	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::InlineCode($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	989					2158
2826							{
2827
2828	976	50				2384	Parse::RecDescent::_trace(q{<>},
2829							Parse::RecDescent::_tracefirst($text),
2830							q{Chunk},
2831							$tracelevel)
2832							if defined $::RD_TRACE;
2833	976					3188	$expectation->failed();
2834	976					4217	last;
2835							}
2836	13	50				64	Parse::RecDescent::_trace(q{>>Matched subrule: [InlineCode]<< (return value: [}
2837							. $_tok . q{]},
2838
2839							Parse::RecDescent::_tracefirst($text),
2840							q{Chunk},
2841							$tracelevel)
2842							if defined $::RD_TRACE;
2843	13					33	$item{q{InlineCode}} = $_tok;
2844	13					28	push @item, $_tok;
2845
2846							}
2847
2848	13	50				38	Parse::RecDescent::_trace(q{Trying action},
2849							Parse::RecDescent::_tracefirst($text),
2850							q{Chunk},
2851							$tracelevel)
2852							if defined $::RD_TRACE;
2853
2854
2855	13	50				29	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	13					169
2856	13	50				32	unless (defined $_tok)
2857							{
2858	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
2859							if defined $::RD_TRACE;
2860	0					0	last;
2861							}
2862	13	50				42	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
2863							. $_tok . q{])},
2864							Parse::RecDescent::_tracefirst($text))
2865							if defined $::RD_TRACE;
2866	13					21	push @item, $_tok;
2867	13					24	$item{__ACTION1__}=$_tok;
2868
2869
2870	13	50				41	Parse::RecDescent::_trace(q{>>Matched production: [InlineCode]<<},
2871							Parse::RecDescent::_tracefirst($text),
2872							q{Chunk},
2873							$tracelevel)
2874							if defined $::RD_TRACE;
2875
2876
2877
2878	13					20	$_matched = 1;
2879	13					22	last;
2880							}
2881
2882
2883	1592		66			7023	while (!$_matched && !$commit)
2884							{
2885
2886	976	50				3238	Parse::RecDescent::_trace(q{Trying production: [BoldText]},
2887							Parse::RecDescent::_tracefirst($_[1]),
2888							q{Chunk},
2889							$tracelevel)
2890							if defined $::RD_TRACE;
2891	976					2852	my $thisprod = $thisrule->{"prods"}[2];
2892	976					1452	$text = $_[1];
2893	976					1432	my $_savetext;
2894	976					2109	@item = (q{Chunk});
2895	976					2366	%item = (__RULE__ => q{Chunk});
2896	976					1327	my $repcount = 0;
2897
2898
2899	976	50				2062	Parse::RecDescent::_trace(q{Trying subrule: [BoldText]},
2900							Parse::RecDescent::_tracefirst($text),
2901							q{Chunk},
2902							$tracelevel)
2903							if defined $::RD_TRACE;
2904	24			24		159	if (1) { no strict qw{refs};
	24					52
	24					28877
	976					1221
2905	976					2932	$expectation->is(q{})->at($text);
2906	976	100		976		11128	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::BoldText($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	976					2208
2907							{
2908
2909	964	50				2118	Parse::RecDescent::_trace(q{<>},
2910							Parse::RecDescent::_tracefirst($text),
2911							q{Chunk},
2912							$tracelevel)
2913							if defined $::RD_TRACE;
2914	964					7156	$expectation->failed();
2915	964					5758	last;
2916							}
2917	12	50				55	Parse::RecDescent::_trace(q{>>Matched subrule: [BoldText]<< (return value: [}
2918							. $_tok . q{]},
2919
2920							Parse::RecDescent::_tracefirst($text),
2921							q{Chunk},
2922							$tracelevel)
2923							if defined $::RD_TRACE;
2924	12					39	$item{q{BoldText}} = $_tok;
2925	12					23	push @item, $_tok;
2926
2927							}
2928
2929	12	50				38	Parse::RecDescent::_trace(q{Trying action},
2930							Parse::RecDescent::_tracefirst($text),
2931							q{Chunk},
2932							$tracelevel)
2933							if defined $::RD_TRACE;
2934
2935
2936	12	50				43	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	12					23
2937	12	50				34	unless (defined $_tok)
2938							{
2939	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
2940							if defined $::RD_TRACE;
2941	0					0	last;
2942							}
2943	12	50				28	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
2944							. $_tok . q{])},
2945							Parse::RecDescent::_tracefirst($text))
2946							if defined $::RD_TRACE;
2947	12					27	push @item, $_tok;
2948	12					28	$item{__ACTION1__}=$_tok;
2949
2950
2951	12	50				34	Parse::RecDescent::_trace(q{>>Matched production: [BoldText]<<},
2952							Parse::RecDescent::_tracefirst($text),
2953							q{Chunk},
2954							$tracelevel)
2955							if defined $::RD_TRACE;
2956
2957
2958
2959	12					17	$_matched = 1;
2960	12					23	last;
2961							}
2962
2963
2964	1592		66			13442	while (!$_matched && !$commit)
2965							{
2966
2967	964	50				2871	Parse::RecDescent::_trace(q{Trying production: [ItalicText]},
2968							Parse::RecDescent::_tracefirst($_[1]),
2969							q{Chunk},
2970							$tracelevel)
2971							if defined $::RD_TRACE;
2972	964					2379	my $thisprod = $thisrule->{"prods"}[3];
2973	964					1543	$text = $_[1];
2974	964					1134	my $_savetext;
2975	964					2082	@item = (q{Chunk});
2976	964					2416	%item = (__RULE__ => q{Chunk});
2977	964					1299	my $repcount = 0;
2978
2979
2980	964	50				2064	Parse::RecDescent::_trace(q{Trying subrule: [ItalicText]},
2981							Parse::RecDescent::_tracefirst($text),
2982							q{Chunk},
2983							$tracelevel)
2984							if defined $::RD_TRACE;
2985	24			24		157	if (1) { no strict qw{refs};
	24					47
	24					13941
	964					1072
2986	964					3833	$expectation->is(q{})->at($text);
2987	964	100		964		12710	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::ItalicText($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	964					2298
2988							{
2989
2990	952	50				2001	Parse::RecDescent::_trace(q{<>},
2991							Parse::RecDescent::_tracefirst($text),
2992							q{Chunk},
2993							$tracelevel)
2994							if defined $::RD_TRACE;
2995	952					3458	$expectation->failed();
2996	952					4438	last;
2997							}
2998	12	50				78	Parse::RecDescent::_trace(q{>>Matched subrule: [ItalicText]<< (return value: [}
2999							. $_tok . q{]},
3000
3001							Parse::RecDescent::_tracefirst($text),
3002							q{Chunk},
3003							$tracelevel)
3004							if defined $::RD_TRACE;
3005	12					34	$item{q{ItalicText}} = $_tok;
3006	12					21	push @item, $_tok;
3007
3008							}
3009
3010	12	50				35	Parse::RecDescent::_trace(q{Trying action},
3011							Parse::RecDescent::_tracefirst($text),
3012							q{Chunk},
3013							$tracelevel)
3014							if defined $::RD_TRACE;
3015
3016
3017	12	50				43	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	12					24
3018	12	50				37	unless (defined $_tok)
3019							{
3020	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
3021							if defined $::RD_TRACE;
3022	0					0	last;
3023							}
3024	12	50				33	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
3025							. $_tok . q{])},
3026							Parse::RecDescent::_tracefirst($text))
3027							if defined $::RD_TRACE;
3028	12					19	push @item, $_tok;
3029	12					26	$item{__ACTION1__}=$_tok;
3030
3031
3032	12	50				29	Parse::RecDescent::_trace(q{>>Matched production: [ItalicText]<<},
3033							Parse::RecDescent::_tracefirst($text),
3034							q{Chunk},
3035							$tracelevel)
3036							if defined $::RD_TRACE;
3037
3038
3039
3040	12					22	$_matched = 1;
3041	12					23	last;
3042							}
3043
3044
3045	1592		66			6811	while (!$_matched && !$commit)
3046							{
3047
3048	952	50				2342	Parse::RecDescent::_trace(q{Trying production: [LinkText]},
3049							Parse::RecDescent::_tracefirst($_[1]),
3050							q{Chunk},
3051							$tracelevel)
3052							if defined $::RD_TRACE;
3053	952					2418	my $thisprod = $thisrule->{"prods"}[4];
3054	952					1887	$text = $_[1];
3055	952					1155	my $_savetext;
3056	952					2173	@item = (q{Chunk});
3057	952					2699	%item = (__RULE__ => q{Chunk});
3058	952					1460	my $repcount = 0;
3059
3060
3061	952	50				2107	Parse::RecDescent::_trace(q{Trying subrule: [LinkText]},
3062							Parse::RecDescent::_tracefirst($text),
3063							q{Chunk},
3064							$tracelevel)
3065							if defined $::RD_TRACE;
3066	24			24		148	if (1) { no strict qw{refs};
	24					55
	24					14700
	952					1286
3067	952					4300	$expectation->is(q{})->at($text);
3068	952	100		952		10991	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::LinkText($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	952					2373
3069							{
3070
3071	942	50				2027	Parse::RecDescent::_trace(q{<>},
3072							Parse::RecDescent::_tracefirst($text),
3073							q{Chunk},
3074							$tracelevel)
3075							if defined $::RD_TRACE;
3076	942					3005	$expectation->failed();
3077	942					4600	last;
3078							}
3079	10	50				52	Parse::RecDescent::_trace(q{>>Matched subrule: [LinkText]<< (return value: [}
3080							. $_tok . q{]},
3081
3082							Parse::RecDescent::_tracefirst($text),
3083							q{Chunk},
3084							$tracelevel)
3085							if defined $::RD_TRACE;
3086	10					27	$item{q{LinkText}} = $_tok;
3087	10					27	push @item, $_tok;
3088
3089							}
3090
3091	10	50				34	Parse::RecDescent::_trace(q{Trying action},
3092							Parse::RecDescent::_tracefirst($text),
3093							q{Chunk},
3094							$tracelevel)
3095							if defined $::RD_TRACE;
3096
3097
3098	10	50				26	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	10					24
3099	10	50				63	unless (defined $_tok)
3100							{
3101	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
3102							if defined $::RD_TRACE;
3103	0					0	last;
3104							}
3105	10	50				26	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
3106							. $_tok . q{])},
3107							Parse::RecDescent::_tracefirst($text))
3108							if defined $::RD_TRACE;
3109	10					18	push @item, $_tok;
3110	10					28	$item{__ACTION1__}=$_tok;
3111
3112
3113	10	50				27	Parse::RecDescent::_trace(q{>>Matched production: [LinkText]<<},
3114							Parse::RecDescent::_tracefirst($text),
3115							q{Chunk},
3116							$tracelevel)
3117							if defined $::RD_TRACE;
3118
3119
3120
3121	10					17	$_matched = 1;
3122	10					20	last;
3123							}
3124
3125
3126	1592		66			6918	while (!$_matched && !$commit)
3127							{
3128
3129	942	50				2210	Parse::RecDescent::_trace(q{Trying production: [EscapedChar]},
3130							Parse::RecDescent::_tracefirst($_[1]),
3131							q{Chunk},
3132							$tracelevel)
3133							if defined $::RD_TRACE;
3134	942					2156	my $thisprod = $thisrule->{"prods"}[5];
3135	942					1491	$text = $_[1];
3136	942					1188	my $_savetext;
3137	942					1972	@item = (q{Chunk});
3138	942					2441	%item = (__RULE__ => q{Chunk});
3139	942					1311	my $repcount = 0;
3140
3141
3142	942	50				2114	Parse::RecDescent::_trace(q{Trying subrule: [EscapedChar]},
3143							Parse::RecDescent::_tracefirst($text),
3144							q{Chunk},
3145							$tracelevel)
3146							if defined $::RD_TRACE;
3147	24			24		176	if (1) { no strict qw{refs};
	24					53
	24					20261
	942					1268
3148	942					2910	$expectation->is(q{})->at($text);
3149	942	100		942		10845	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::EscapedChar($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	942					2246
3150							{
3151
3152	938	50				2213	Parse::RecDescent::_trace(q{<>},
3153							Parse::RecDescent::_tracefirst($text),
3154							q{Chunk},
3155							$tracelevel)
3156							if defined $::RD_TRACE;
3157	938					2875	$expectation->failed();
3158	938					3742	last;
3159							}
3160	4	50				24	Parse::RecDescent::_trace(q{>>Matched subrule: [EscapedChar]<< (return value: [}
3161							. $_tok . q{]},
3162
3163							Parse::RecDescent::_tracefirst($text),
3164							q{Chunk},
3165							$tracelevel)
3166							if defined $::RD_TRACE;
3167	4					12	$item{q{EscapedChar}} = $_tok;
3168	4					7	push @item, $_tok;
3169
3170							}
3171
3172	4	50				15	Parse::RecDescent::_trace(q{Trying action},
3173							Parse::RecDescent::_tracefirst($text),
3174							q{Chunk},
3175							$tracelevel)
3176							if defined $::RD_TRACE;
3177
3178
3179	4	50				12	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	4					7
3180	4	50				16	unless (defined $_tok)
3181							{
3182	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
3183							if defined $::RD_TRACE;
3184	0					0	last;
3185							}
3186	4	50				12	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
3187							. $_tok . q{])},
3188							Parse::RecDescent::_tracefirst($text))
3189							if defined $::RD_TRACE;
3190	4					7	push @item, $_tok;
3191	4					78	$item{__ACTION1__}=$_tok;
3192
3193
3194	4	50				11	Parse::RecDescent::_trace(q{>>Matched production: [EscapedChar]<<},
3195							Parse::RecDescent::_tracefirst($text),
3196							q{Chunk},
3197							$tracelevel)
3198							if defined $::RD_TRACE;
3199
3200
3201
3202	4					7	$_matched = 1;
3203	4					8	last;
3204							}
3205
3206
3207	1592		66			7940	while (!$_matched && !$commit)
3208							{
3209
3210	938	50				4383	Parse::RecDescent::_trace(q{Trying production: [KeyWord]},
3211							Parse::RecDescent::_tracefirst($_[1]),
3212							q{Chunk},
3213							$tracelevel)
3214							if defined $::RD_TRACE;
3215	938					2136	my $thisprod = $thisrule->{"prods"}[6];
3216	938					1449	$text = $_[1];
3217	938					1134	my $_savetext;
3218	938					2057	@item = (q{Chunk});
3219	938					2535	%item = (__RULE__ => q{Chunk});
3220	938					1213	my $repcount = 0;
3221
3222
3223	938	50				2311	Parse::RecDescent::_trace(q{Trying subrule: [KeyWord]},
3224							Parse::RecDescent::_tracefirst($text),
3225							q{Chunk},
3226							$tracelevel)
3227							if defined $::RD_TRACE;
3228	24			24		153	if (1) { no strict qw{refs};
	24					52
	24					13966
	938					1087
3229	938					3072	$expectation->is(q{})->at($text);
3230	938	100		938		12640	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::KeyWord($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	938					2061
3231							{
3232
3233	930	50				2307	Parse::RecDescent::_trace(q{<>},
3234							Parse::RecDescent::_tracefirst($text),
3235							q{Chunk},
3236							$tracelevel)
3237							if defined $::RD_TRACE;
3238	930					3092	$expectation->failed();
3239	930					4060	last;
3240							}
3241	8	50				36	Parse::RecDescent::_trace(q{>>Matched subrule: [KeyWord]<< (return value: [}
3242							. $_tok . q{]},
3243
3244							Parse::RecDescent::_tracefirst($text),
3245							q{Chunk},
3246							$tracelevel)
3247							if defined $::RD_TRACE;
3248	8					22	$item{q{KeyWord}} = $_tok;
3249	8					13	push @item, $_tok;
3250
3251							}
3252
3253	8	50				25	Parse::RecDescent::_trace(q{Trying action},
3254							Parse::RecDescent::_tracefirst($text),
3255							q{Chunk},
3256							$tracelevel)
3257							if defined $::RD_TRACE;
3258
3259
3260	8	50				16	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	8					16
3261	8	50				23	unless (defined $_tok)
3262							{
3263	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
3264							if defined $::RD_TRACE;
3265	0					0	last;
3266							}
3267	8	50				21	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
3268							. $_tok . q{])},
3269							Parse::RecDescent::_tracefirst($text))
3270							if defined $::RD_TRACE;
3271	8					26	push @item, $_tok;
3272	8					15	$item{__ACTION1__}=$_tok;
3273
3274
3275	8	50				23	Parse::RecDescent::_trace(q{>>Matched production: [KeyWord]<<},
3276							Parse::RecDescent::_tracefirst($text),
3277							q{Chunk},
3278							$tracelevel)
3279							if defined $::RD_TRACE;
3280
3281
3282
3283	8					11	$_matched = 1;
3284	8					19	last;
3285							}
3286
3287
3288	1592		66			7415	while (!$_matched && !$commit)
3289							{
3290
3291	930	50				2029	Parse::RecDescent::_trace(q{Trying production: [Parens]},
3292							Parse::RecDescent::_tracefirst($_[1]),
3293							q{Chunk},
3294							$tracelevel)
3295							if defined $::RD_TRACE;
3296	930					2029	my $thisprod = $thisrule->{"prods"}[7];
3297	930					1403	$text = $_[1];
3298	930					1258	my $_savetext;
3299	930					1944	@item = (q{Chunk});
3300	930					2374	%item = (__RULE__ => q{Chunk});
3301	930					1412	my $repcount = 0;
3302
3303
3304	930	50				2017	Parse::RecDescent::_trace(q{Trying subrule: [Parens]},
3305							Parse::RecDescent::_tracefirst($text),
3306							q{Chunk},
3307							$tracelevel)
3308							if defined $::RD_TRACE;
3309	24			24		174	if (1) { no strict qw{refs};
	24					80
	24					14895
	930					1094
3310	930					3112	$expectation->is(q{})->at($text);
3311	930	100		930		10165	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::Parens($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	930					2251
3312							{
3313
3314	925	50				1964	Parse::RecDescent::_trace(q{<>},
3315							Parse::RecDescent::_tracefirst($text),
3316							q{Chunk},
3317							$tracelevel)
3318							if defined $::RD_TRACE;
3319	925					5913	$expectation->failed();
3320	925					5581	last;
3321							}
3322	5	50				30	Parse::RecDescent::_trace(q{>>Matched subrule: [Parens]<< (return value: [}
3323							. $_tok . q{]},
3324
3325							Parse::RecDescent::_tracefirst($text),
3326							q{Chunk},
3327							$tracelevel)
3328							if defined $::RD_TRACE;
3329	5					13	$item{q{Parens}} = $_tok;
3330	5					15	push @item, $_tok;
3331
3332							}
3333
3334	5	50				19	Parse::RecDescent::_trace(q{Trying action},
3335							Parse::RecDescent::_tracefirst($text),
3336							q{Chunk},
3337							$tracelevel)
3338							if defined $::RD_TRACE;
3339
3340
3341	5	50				18	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	5					28
3342	5	50				17	unless (defined $_tok)
3343							{
3344	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
3345							if defined $::RD_TRACE;
3346	0					0	last;
3347							}
3348	5	50				19	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
3349							. $_tok . q{])},
3350							Parse::RecDescent::_tracefirst($text))
3351							if defined $::RD_TRACE;
3352	5					9	push @item, $_tok;
3353	5					13	$item{__ACTION1__}=$_tok;
3354
3355
3356	5	50				37	Parse::RecDescent::_trace(q{>>Matched production: [Parens]<<},
3357							Parse::RecDescent::_tracefirst($text),
3358							q{Chunk},
3359							$tracelevel)
3360							if defined $::RD_TRACE;
3361
3362
3363
3364	5					10	$_matched = 1;
3365	5					10	last;
3366							}
3367
3368
3369	1592		66			6869	while (!$_matched && !$commit)
3370							{
3371
3372	925	50				2317	Parse::RecDescent::_trace(q{Trying production: [RegularText]},
3373							Parse::RecDescent::_tracefirst($_[1]),
3374							q{Chunk},
3375							$tracelevel)
3376							if defined $::RD_TRACE;
3377	925					3237	my $thisprod = $thisrule->{"prods"}[8];
3378	925					1668	$text = $_[1];
3379	925					1122	my $_savetext;
3380	925					2213	@item = (q{Chunk});
3381	925					2185	%item = (__RULE__ => q{Chunk});
3382	925					1883	my $repcount = 0;
3383
3384
3385	925	50				2207	Parse::RecDescent::_trace(q{Trying subrule: [RegularText]},
3386							Parse::RecDescent::_tracefirst($text),
3387							q{Chunk},
3388							$tracelevel)
3389							if defined $::RD_TRACE;
3390	24			24		740	if (1) { no strict qw{refs};
	24					52
	24					30808
	925					1136
3391	925					2851	$expectation->is(q{})->at($text);
3392	925	100		925		12370	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::RegularText($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	925					2148
3393							{
3394
3395	245	50				777	Parse::RecDescent::_trace(q{<>},
3396							Parse::RecDescent::_tracefirst($text),
3397							q{Chunk},
3398							$tracelevel)
3399							if defined $::RD_TRACE;
3400	245					854	$expectation->failed();
3401	245					1084	last;
3402							}
3403	680	50				2806	Parse::RecDescent::_trace(q{>>Matched subrule: [RegularText]<< (return value: [}
3404							. $_tok . q{]},
3405
3406							Parse::RecDescent::_tracefirst($text),
3407							q{Chunk},
3408							$tracelevel)
3409							if defined $::RD_TRACE;
3410	680					1374	$item{q{RegularText}} = $_tok;
3411	680					1231	push @item, $_tok;
3412
3413							}
3414
3415	680	50				1455	Parse::RecDescent::_trace(q{Trying action},
3416							Parse::RecDescent::_tracefirst($text),
3417							q{Chunk},
3418							$tracelevel)
3419							if defined $::RD_TRACE;
3420
3421
3422	680	50				1337	$_tok = ($_noactions) ? 0 : do { $return = $item[1] };
	680					1252
3423	680	50				1789	unless (defined $_tok)
3424							{
3425	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
3426							if defined $::RD_TRACE;
3427	0					0	last;
3428							}
3429	680	50				1511	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
3430							. $_tok . q{])},
3431							Parse::RecDescent::_tracefirst($text))
3432							if defined $::RD_TRACE;
3433	680					1001	push @item, $_tok;
3434	680					1207	$item{__ACTION1__}=$_tok;
3435
3436
3437	680	50				1530	Parse::RecDescent::_trace(q{>>Matched production: [RegularText]<<},
3438							Parse::RecDescent::_tracefirst($text),
3439							q{Chunk},
3440							$tracelevel)
3441							if defined $::RD_TRACE;
3442
3443
3444
3445	680					828	$_matched = 1;
3446	680					1121	last;
3447							}
3448
3449
3450	1592	100	66			5134	unless ( $_matched \|\| defined($score) )
3451							{
3452
3453
3454	245					484	$_[1] = $text; # NOT SURE THIS IS NEEDED
3455	245	50				612	Parse::RecDescent::_trace(q{<>},
3456							Parse::RecDescent::_tracefirst($_[1]),
3457							q{Chunk},
3458							$tracelevel)
3459							if defined $::RD_TRACE;
3460	245					1678	return undef;
3461							}
3462	1347	50	33			3665	if (!defined($return) && defined($score))
3463							{
3464	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
3465							q{Chunk},
3466							$tracelevel)
3467							if defined $::RD_TRACE;
3468	0					0	$return = $score_return;
3469							}
3470	1347					1723	splice @{$thisparser->{errors}}, $err_at;
	1347					3047
3471	1347	50				2892	$return = $item[$#item] unless defined $return;
3472	1347	50				2690	if (defined $::RD_TRACE)
3473							{
3474	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
3475							$return . q{])}, "",
3476							q{Chunk},
3477							$tracelevel);
3478	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
3479							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
3480							Parse::RecDescent::_tracefirst($text),
3481							, q{Chunk},
3482							$tracelevel)
3483							}
3484	1347					7802	$_[1] = $text;
3485	1347					10487	return $return;
3486							}
3487
3488							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
3489							sub Parse::RecDescent::Pod::WikiDoc::Parser::Indent_Continuation
3490							{
3491	6			6		78	my $thisparser = $_[0];
3492	24			24		178	use vars q{$tracelevel};
	24					62
	24					48198
3493	6		50			34	local $tracelevel = ($tracelevel\|\|0)+1;
3494	6					8	$ERRORS = 0;
3495	6					17	my $thisrule = $thisparser->{"rules"}{"Indent_Continuation"};
3496
3497	6	50				16	Parse::RecDescent::_trace(q{Trying rule: [Indent_Continuation]},
3498							Parse::RecDescent::_tracefirst($_[1]),
3499							q{Indent_Continuation},
3500							$tracelevel)
3501							if defined $::RD_TRACE;
3502
3503
3504	6					8	my $err_at = @{$thisparser->{errors}};
	6					31
3505
3506	6					10	my $score;
3507							my $score_return;
3508	0					0	my $_tok;
3509	6					8	my $return = undef;
3510	6					7	my $_matched=0;
3511	6					9	my $commit=0;
3512	6					13	my @item = ();
3513	6					29	my %item = ();
3514	6					9	my $repeating = $_[2];
3515	6					10	my $_noactions = $_[3];
3516	6	50				17	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	6					7
	6					38
3517	6					10	my $_itempos = $_[5];
3518	6	50				21	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
3519	6					8	my $text;
3520							my $lastsep;
3521	0					0	my $current_match;
3522	6					26	my $expectation = new Parse::RecDescent::Expectation(q{Empty_Line});
3523	6					50	$expectation->at($_[1]);
3524
3525	6					27	my $thisline;
3526	6					30	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
3527
3528
3529
3530	6		33			75	while (!$_matched && !$commit)
3531							{
3532
3533	6	50				19	Parse::RecDescent::_trace(q{Trying production: [Empty_Line Indented_Line]},
3534							Parse::RecDescent::_tracefirst($_[1]),
3535							q{Indent_Continuation},
3536							$tracelevel)
3537							if defined $::RD_TRACE;
3538	6					17	my $thisprod = $thisrule->{"prods"}[0];
3539	6					10	$text = $_[1];
3540	6					7	my $_savetext;
3541	6					13	@item = (q{Indent_Continuation});
3542	6					20	%item = (__RULE__ => q{Indent_Continuation});
3543	6					9	my $repcount = 0;
3544
3545
3546	6	50				17	Parse::RecDescent::_trace(q{Trying repeated subrule: [Empty_Line]},
3547							Parse::RecDescent::_tracefirst($text),
3548							q{Indent_Continuation},
3549							$tracelevel)
3550							if defined $::RD_TRACE;
3551	6					20	$expectation->is(q{})->at($text);
3552
3553	6	100		9		94	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::Empty_Line, 1, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
	9					18
3554							{
3555	3	50				36	Parse::RecDescent::_trace(q{<>},
3556							Parse::RecDescent::_tracefirst($text),
3557							q{Indent_Continuation},
3558							$tracelevel)
3559							if defined $::RD_TRACE;
3560	3					5	last;
3561							}
3562	3	50				46	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Empty_Line]<< (}
3563							. @$_tok . q{ times)},
3564
3565							Parse::RecDescent::_tracefirst($text),
3566							q{Indent_Continuation},
3567							$tracelevel)
3568							if defined $::RD_TRACE;
3569	3					8	$item{q{Empty_Line(s)}} = $_tok;
3570	3					6	push @item, $_tok;
3571
3572
3573
3574	3	50				11	Parse::RecDescent::_trace(q{Trying repeated subrule: [Indented_Line]},
3575							Parse::RecDescent::_tracefirst($text),
3576							q{Indent_Continuation},
3577							$tracelevel)
3578							if defined $::RD_TRACE;
3579	3					11	$expectation->is(q{Indented_Line})->at($text);
3580
3581	3	100		5		36	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::Indented_Line, 1, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
	5					13
3582							{
3583	1	50				17	Parse::RecDescent::_trace(q{<>},
3584							Parse::RecDescent::_tracefirst($text),
3585							q{Indent_Continuation},
3586							$tracelevel)
3587							if defined $::RD_TRACE;
3588	1					1	last;
3589							}
3590	2	50				31	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Indented_Line]<< (}
3591							. @$_tok . q{ times)},
3592
3593							Parse::RecDescent::_tracefirst($text),
3594							q{Indent_Continuation},
3595							$tracelevel)
3596							if defined $::RD_TRACE;
3597	2					5	$item{q{Indented_Line(s)}} = $_tok;
3598	2					4	push @item, $_tok;
3599
3600
3601
3602	2	50				5	Parse::RecDescent::_trace(q{Trying action},
3603							Parse::RecDescent::_tracefirst($text),
3604							q{Indent_Continuation},
3605							$tracelevel)
3606							if defined $::RD_TRACE;
3607
3608
3609	2	50				5	$_tok = ($_noactions) ? 0 : do { $return = [ @{$item[1]}, @{$item[2]} ] };
	2					3
	2					4
	2					4
3610	2	50				8	unless (defined $_tok)
3611							{
3612	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
3613							if defined $::RD_TRACE;
3614	0					0	last;
3615							}
3616	2	50				20	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
3617							. $_tok . q{])},
3618							Parse::RecDescent::_tracefirst($text))
3619							if defined $::RD_TRACE;
3620	2					3	push @item, $_tok;
3621	2					8	$item{__ACTION1__}=$_tok;
3622
3623
3624	2	50				4	Parse::RecDescent::_trace(q{>>Matched production: [Empty_Line Indented_Line]<<},
3625							Parse::RecDescent::_tracefirst($text),
3626							q{Indent_Continuation},
3627							$tracelevel)
3628							if defined $::RD_TRACE;
3629
3630
3631
3632	2					3	$_matched = 1;
3633	2					4	last;
3634							}
3635
3636
3637	6	100	66			43	unless ( $_matched \|\| defined($score) )
3638							{
3639
3640
3641	4					9	$_[1] = $text; # NOT SURE THIS IS NEEDED
3642	4	50				10	Parse::RecDescent::_trace(q{<>},
3643							Parse::RecDescent::_tracefirst($_[1]),
3644							q{Indent_Continuation},
3645							$tracelevel)
3646							if defined $::RD_TRACE;
3647	4					37	return undef;
3648							}
3649	2	50	33			15	if (!defined($return) && defined($score))
3650							{
3651	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
3652							q{Indent_Continuation},
3653							$tracelevel)
3654							if defined $::RD_TRACE;
3655	0					0	$return = $score_return;
3656							}
3657	2					4	splice @{$thisparser->{errors}}, $err_at;
	2					6
3658	2	50				6	$return = $item[$#item] unless defined $return;
3659	2	50				6	if (defined $::RD_TRACE)
3660							{
3661	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
3662							$return . q{])}, "",
3663							q{Indent_Continuation},
3664							$tracelevel);
3665	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
3666							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
3667							Parse::RecDescent::_tracefirst($text),
3668							, q{Indent_Continuation},
3669							$tracelevel)
3670							}
3671	2					3	$_[1] = $text;
3672	2					15	return $return;
3673							}
3674
3675							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
3676							sub Parse::RecDescent::Pod::WikiDoc::Parser::LinkContent
3677							{
3678	10			10		643	my $thisparser = $_[0];
3679	24			24		197	use vars q{$tracelevel};
	24					53
	24					13792
3680	10		50			70	local $tracelevel = ($tracelevel\|\|0)+1;
3681	10					16	$ERRORS = 0;
3682	10					29	my $thisrule = $thisparser->{"rules"}{"LinkContent"};
3683
3684	10	50				32	Parse::RecDescent::_trace(q{Trying rule: [LinkContent]},
3685							Parse::RecDescent::_tracefirst($_[1]),
3686							q{LinkContent},
3687							$tracelevel)
3688							if defined $::RD_TRACE;
3689
3690
3691	10					17	my $err_at = @{$thisparser->{errors}};
	10					24
3692
3693	10					19	my $score;
3694							my $score_return;
3695	0					0	my $_tok;
3696	10					17	my $return = undef;
3697	10					14	my $_matched=0;
3698	10					17	my $commit=0;
3699	10					29	my @item = ();
3700	10					22	my %item = ();
3701	10					16	my $repeating = $_[2];
3702	10					20	my $_noactions = $_[3];
3703	10	50				38	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	10					19
	10					31
3704	10					51	my $_itempos = $_[5];
3705	10	50				52	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
3706	10					21	my $text;
3707							my $lastsep;
3708	0					0	my $current_match;
3709	10					89	my $expectation = new Parse::RecDescent::Expectation(q{LinkLabel, or LinkTarget});
3710	10					107	$expectation->at($_[1]);
3711
3712	10					43	my $thisline;
3713	10					49	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
3714
3715
3716
3717	10		33			126	while (!$_matched && !$commit)
3718							{
3719
3720	10	50				37	Parse::RecDescent::_trace(q{Trying production: [LinkLabel '\\\|' LinkTarget]},
3721							Parse::RecDescent::_tracefirst($_[1]),
3722							q{LinkContent},
3723							$tracelevel)
3724							if defined $::RD_TRACE;
3725	10					30	my $thisprod = $thisrule->{"prods"}[0];
3726	10					20	$text = $_[1];
3727	10					17	my $_savetext;
3728	10					24	@item = (q{LinkContent});
3729	10					31	%item = (__RULE__ => q{LinkContent});
3730	10					18	my $repcount = 0;
3731
3732
3733	10	50				31	Parse::RecDescent::_trace(q{Trying subrule: [LinkLabel]},
3734							Parse::RecDescent::_tracefirst($text),
3735							q{LinkContent},
3736							$tracelevel)
3737							if defined $::RD_TRACE;
3738	24			24		171	if (1) { no strict qw{refs};
	24					68
	24					11093
	10					16
3739	10					38	$expectation->is(q{})->at($text);
3740	10	50		10		131	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::LinkLabel($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	10					24
3741							{
3742
3743	0	0				0	Parse::RecDescent::_trace(q{<>},
3744							Parse::RecDescent::_tracefirst($text),
3745							q{LinkContent},
3746							$tracelevel)
3747							if defined $::RD_TRACE;
3748	0					0	$expectation->failed();
3749	0					0	last;
3750							}
3751	10	50				64	Parse::RecDescent::_trace(q{>>Matched subrule: [LinkLabel]<< (return value: [}
3752							. $_tok . q{]},
3753
3754							Parse::RecDescent::_tracefirst($text),
3755							q{LinkContent},
3756							$tracelevel)
3757							if defined $::RD_TRACE;
3758	10					30	$item{q{LinkLabel}} = $_tok;
3759	10					24	push @item, $_tok;
3760
3761							}
3762
3763	10	50				462	Parse::RecDescent::_trace(q{Trying terminal: ['\\\|']},
3764							Parse::RecDescent::_tracefirst($text),
3765							q{LinkContent},
3766							$tracelevel)
3767							if defined $::RD_TRACE;
3768	10					23	undef $lastsep;
3769	10					46	$expectation->is(q{'\\\|'})->at($text);
3770
3771
3772	10	50	33			155	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and do { $_tok = "\\|"; 1 } and
	10	100	66			104
	10		66			20
	10					86
3773							substr($text,0,length($_tok)) eq $_tok and
3774	4					9	do { substr($text,0,length($_tok)) = ""; 1; }
	4					14
3775							)
3776							{
3777	6	50				24	$text = $lastsep . $text if defined $lastsep;
3778
3779	6					21	$expectation->failed();
3780	6	50				71	Parse::RecDescent::_trace(q{<>},
3781							Parse::RecDescent::_tracefirst($text))
3782							if defined $::RD_TRACE;
3783	6					19	last;
3784							}
3785	4	50				17	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
3786							. $_tok . q{])},
3787							Parse::RecDescent::_tracefirst($text))
3788							if defined $::RD_TRACE;
3789	4					11	push @item, $item{__STRING1__}=$_tok;
3790
3791
3792	4	50				15	Parse::RecDescent::_trace(q{Trying subrule: [LinkTarget]},
3793							Parse::RecDescent::_tracefirst($text),
3794							q{LinkContent},
3795							$tracelevel)
3796							if defined $::RD_TRACE;
3797	24			24		156	if (1) { no strict qw{refs};
	24					48
	24					13260
	4					7
3798	4					15	$expectation->is(q{LinkTarget})->at($text);
3799	4	50		4		64	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::LinkTarget($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	4					11
3800							{
3801
3802	0	0				0	Parse::RecDescent::_trace(q{<>},
3803							Parse::RecDescent::_tracefirst($text),
3804							q{LinkContent},
3805							$tracelevel)
3806							if defined $::RD_TRACE;
3807	0					0	$expectation->failed();
3808	0					0	last;
3809							}
3810	4	50				21	Parse::RecDescent::_trace(q{>>Matched subrule: [LinkTarget]<< (return value: [}
3811							. $_tok . q{]},
3812
3813							Parse::RecDescent::_tracefirst($text),
3814							q{LinkContent},
3815							$tracelevel)
3816							if defined $::RD_TRACE;
3817	4					14	$item{q{LinkTarget}} = $_tok;
3818	4					8	push @item, $_tok;
3819
3820							}
3821
3822	4	50				15	Parse::RecDescent::_trace(q{Trying action},
3823							Parse::RecDescent::_tracefirst($text),
3824							q{LinkContent},
3825							$tracelevel)
3826							if defined $::RD_TRACE;
3827
3828
3829	4	50				12	$_tok = ($_noactions) ? 0 : do {
3830	4					25	$return = {
3831							type => $item[0],
3832							content => [ $item[1], $item[3] ],
3833							}
3834							};
3835	4	50				16	unless (defined $_tok)
3836							{
3837	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
3838							if defined $::RD_TRACE;
3839	0					0	last;
3840							}
3841	4	50				13	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
3842							. $_tok . q{])},
3843							Parse::RecDescent::_tracefirst($text))
3844							if defined $::RD_TRACE;
3845	4					10	push @item, $_tok;
3846	4					10	$item{__ACTION1__}=$_tok;
3847
3848
3849	4	50				47	Parse::RecDescent::_trace(q{>>Matched production: [LinkLabel '\\\|' LinkTarget]<<},
3850							Parse::RecDescent::_tracefirst($text),
3851							q{LinkContent},
3852							$tracelevel)
3853							if defined $::RD_TRACE;
3854
3855
3856
3857	4					8	$_matched = 1;
3858	4					13	last;
3859							}
3860
3861
3862	10		66			57	while (!$_matched && !$commit)
3863							{
3864
3865	6	50				13	Parse::RecDescent::_trace(q{Trying production: [LinkTarget]},
3866							Parse::RecDescent::_tracefirst($_[1]),
3867							q{LinkContent},
3868							$tracelevel)
3869							if defined $::RD_TRACE;
3870	6					27	my $thisprod = $thisrule->{"prods"}[1];
3871	6					15	$text = $_[1];
3872	6					8	my $_savetext;
3873	6					16	@item = (q{LinkContent});
3874	6					27	%item = (__RULE__ => q{LinkContent});
3875	6					10	my $repcount = 0;
3876
3877
3878	6	50				16	Parse::RecDescent::_trace(q{Trying subrule: [LinkTarget]},
3879							Parse::RecDescent::_tracefirst($text),
3880							q{LinkContent},
3881							$tracelevel)
3882							if defined $::RD_TRACE;
3883	24			24		159	if (1) { no strict qw{refs};
	24					65
	24					29786
	6					8
3884	6					21	$expectation->is(q{})->at($text);
3885	6	50		6		80	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::LinkTarget($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	6					16
3886							{
3887
3888	0	0				0	Parse::RecDescent::_trace(q{<>},
3889							Parse::RecDescent::_tracefirst($text),
3890							q{LinkContent},
3891							$tracelevel)
3892							if defined $::RD_TRACE;
3893	0					0	$expectation->failed();
3894	0					0	last;
3895							}
3896	6	50				34	Parse::RecDescent::_trace(q{>>Matched subrule: [LinkTarget]<< (return value: [}
3897							. $_tok . q{]},
3898
3899							Parse::RecDescent::_tracefirst($text),
3900							q{LinkContent},
3901							$tracelevel)
3902							if defined $::RD_TRACE;
3903	6					13	$item{q{LinkTarget}} = $_tok;
3904	6					13	push @item, $_tok;
3905
3906							}
3907
3908	6	50				73	Parse::RecDescent::_trace(q{Trying action},
3909							Parse::RecDescent::_tracefirst($text),
3910							q{LinkContent},
3911							$tracelevel)
3912							if defined $::RD_TRACE;
3913
3914
3915	6	50				12	$_tok = ($_noactions) ? 0 : do {
3916	6					29	$return = {
3917							type => $item[0],
3918							content => [ $item[1] ],
3919							}
3920							};
3921	6	50				20	unless (defined $_tok)
3922							{
3923	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
3924							if defined $::RD_TRACE;
3925	0					0	last;
3926							}
3927	6	50				21	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
3928							. $_tok . q{])},
3929							Parse::RecDescent::_tracefirst($text))
3930							if defined $::RD_TRACE;
3931	6					10	push @item, $_tok;
3932	6					11	$item{__ACTION1__}=$_tok;
3933
3934
3935	6	50				18	Parse::RecDescent::_trace(q{>>Matched production: [LinkTarget]<<},
3936							Parse::RecDescent::_tracefirst($text),
3937							q{LinkContent},
3938							$tracelevel)
3939							if defined $::RD_TRACE;
3940
3941
3942
3943	6					8	$_matched = 1;
3944	6					12	last;
3945							}
3946
3947
3948	10	50	33			34	unless ( $_matched \|\| defined($score) )
3949							{
3950
3951
3952	0					0	$_[1] = $text; # NOT SURE THIS IS NEEDED
3953	0	0				0	Parse::RecDescent::_trace(q{<>},
3954							Parse::RecDescent::_tracefirst($_[1]),
3955							q{LinkContent},
3956							$tracelevel)
3957							if defined $::RD_TRACE;
3958	0					0	return undef;
3959							}
3960	10	50	33			32	if (!defined($return) && defined($score))
3961							{
3962	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
3963							q{LinkContent},
3964							$tracelevel)
3965							if defined $::RD_TRACE;
3966	0					0	$return = $score_return;
3967							}
3968	10					17	splice @{$thisparser->{errors}}, $err_at;
	10					27
3969	10	50				23	$return = $item[$#item] unless defined $return;
3970	10	50				27	if (defined $::RD_TRACE)
3971							{
3972	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
3973							$return . q{])}, "",
3974							q{LinkContent},
3975							$tracelevel);
3976	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
3977							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
3978							Parse::RecDescent::_tracefirst($text),
3979							, q{LinkContent},
3980							$tracelevel)
3981							}
3982	10					22	$_[1] = $text;
3983	10					89	return $return;
3984							}
3985
3986							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
3987							sub Parse::RecDescent::Pod::WikiDoc::Parser::InlineCode
3988							{
3989	989			989		2057	my $thisparser = $_[0];
3990	24			24		173	use vars q{$tracelevel};
	24					53
	24					28546
3991	989		50			3164	local $tracelevel = ($tracelevel\|\|0)+1;
3992	989					1400	$ERRORS = 0;
3993	989					2263	my $thisrule = $thisparser->{"rules"}{"InlineCode"};
3994
3995	989	50				2101	Parse::RecDescent::_trace(q{Trying rule: [InlineCode]},
3996							Parse::RecDescent::_tracefirst($_[1]),
3997							q{InlineCode},
3998							$tracelevel)
3999							if defined $::RD_TRACE;
4000
4001
4002	989					1245	my $err_at = @{$thisparser->{errors}};
	989					2064
4003
4004	989					1732	my $score;
4005							my $score_return;
4006	0					0	my $_tok;
4007	989					1236	my $return = undef;
4008	989					1186	my $_matched=0;
4009	989					1515	my $commit=0;
4010	989					1548	my @item = ();
4011	989					1560	my %item = ();
4012	989					1357	my $repeating = $_[2];
4013	989					1304	my $_noactions = $_[3];
4014	989	50				2433	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	989					1289
	989					1940
4015	989					1402	my $_itempos = $_[5];
4016	989	50				2978	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
4017	989					1438	my $text;
4018							my $lastsep;
4019	0					0	my $current_match;
4020	989					3464	my $expectation = new Parse::RecDescent::Expectation(q{});
4021	989					10821	$expectation->at($_[1]);
4022
4023	989					4178	my $thisline;
4024	989					4592	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
4025
4026
4027
4028	989		33			10605	while (!$_matched && !$commit)
4029							{
4030
4031	989	50				2249	Parse::RecDescent::_trace(q{Trying production: []},
4032							Parse::RecDescent::_tracefirst($_[1]),
4033							q{InlineCode},
4034							$tracelevel)
4035							if defined $::RD_TRACE;
4036	989					2258	my $thisprod = $thisrule->{"prods"}[0];
4037	989					1631	$text = $_[1];
4038	989					1171	my $_savetext;
4039	989					2065	@item = (q{InlineCode});
4040	989					2223	%item = (__RULE__ => q{InlineCode});
4041	989					1357	my $repcount = 0;
4042
4043
4044	989	50				3648	Parse::RecDescent::_trace(q{Trying action},
4045							Parse::RecDescent::_tracefirst($text),
4046							q{InlineCode},
4047							$tracelevel)
4048							if defined $::RD_TRACE;
4049
4050
4051	989	50				1932	$_tok = ($_noactions) ? 0 : do { extract_bracketed( $text, '{' ) };
	989					5473
4052	989	100				93499	unless (defined $_tok)
4053							{
4054	976	50				2426	Parse::RecDescent::_trace(q{<> (return value: [undef])})
4055							if defined $::RD_TRACE;
4056	976					1693	last;
4057							}
4058	13	50				41	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
4059							. $_tok . q{])},
4060							Parse::RecDescent::_tracefirst($text))
4061							if defined $::RD_TRACE;
4062	13					23	push @item, $_tok;
4063	13					30	$item{__ACTION1__}=$_tok;
4064
4065
4066	13	50				37	Parse::RecDescent::_trace(q{Trying action},
4067							Parse::RecDescent::_tracefirst($text),
4068							q{InlineCode},
4069							$tracelevel)
4070							if defined $::RD_TRACE;
4071
4072
4073	13	50				27	$_tok = ($_noactions) ? 0 : do {
4074	13					72	$return = {
4075							type => $item[0],
4076							content => substr( substr( $item[1], 1), 0, -1 ),
4077							}
4078							};
4079	13	50				41	unless (defined $_tok)
4080							{
4081	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
4082							if defined $::RD_TRACE;
4083	0					0	last;
4084							}
4085	13	50				31	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
4086							. $_tok . q{])},
4087							Parse::RecDescent::_tracefirst($text))
4088							if defined $::RD_TRACE;
4089	13					24	push @item, $_tok;
4090	13					27	$item{__ACTION2__}=$_tok;
4091
4092
4093	13	50				31	Parse::RecDescent::_trace(q{>>Matched production: []<<},
4094							Parse::RecDescent::_tracefirst($text),
4095							q{InlineCode},
4096							$tracelevel)
4097							if defined $::RD_TRACE;
4098
4099
4100
4101	13					19	$_matched = 1;
4102	13					24	last;
4103							}
4104
4105
4106	989	100	66			7262	unless ( $_matched \|\| defined($score) )
4107							{
4108
4109
4110	976					1653	$_[1] = $text; # NOT SURE THIS IS NEEDED
4111	976	50				2099	Parse::RecDescent::_trace(q{<>},
4112							Parse::RecDescent::_tracefirst($_[1]),
4113							q{InlineCode},
4114							$tracelevel)
4115							if defined $::RD_TRACE;
4116	976					7591	return undef;
4117							}
4118	13	50	33			713	if (!defined($return) && defined($score))
4119							{
4120	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
4121							q{InlineCode},
4122							$tracelevel)
4123							if defined $::RD_TRACE;
4124	0					0	$return = $score_return;
4125							}
4126	13					23	splice @{$thisparser->{errors}}, $err_at;
	13					35
4127	13	50				36	$return = $item[$#item] unless defined $return;
4128	13	50				46	if (defined $::RD_TRACE)
4129							{
4130	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
4131							$return . q{])}, "",
4132							q{InlineCode},
4133							$tracelevel);
4134	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
4135							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
4136							Parse::RecDescent::_tracefirst($text),
4137							, q{InlineCode},
4138							$tracelevel)
4139							}
4140	13					30	$_[1] = $text;
4141	13					118	return $return;
4142							}
4143
4144							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
4145							sub Parse::RecDescent::Pod::WikiDoc::Parser::WhiteSpace
4146							{
4147	1592			1592		2556	my $thisparser = $_[0];
4148	24			24		184	use vars q{$tracelevel};
	24					50
	24					30249
4149	1592		50			4887	local $tracelevel = ($tracelevel\|\|0)+1;
4150	1592					5879	$ERRORS = 0;
4151	1592					3434	my $thisrule = $thisparser->{"rules"}{"WhiteSpace"};
4152
4153	1592	50				3579	Parse::RecDescent::_trace(q{Trying rule: [WhiteSpace]},
4154							Parse::RecDescent::_tracefirst($_[1]),
4155							q{WhiteSpace},
4156							$tracelevel)
4157							if defined $::RD_TRACE;
4158
4159
4160	1592					2213	my $err_at = @{$thisparser->{errors}};
	1592					3137
4161
4162	1592					2027	my $score;
4163							my $score_return;
4164	0					0	my $_tok;
4165	1592					1898	my $return = undef;
4166	1592					2068	my $_matched=0;
4167	1592					1788	my $commit=0;
4168	1592					2320	my @item = ();
4169	1592					2384	my %item = ();
4170	1592					1928	my $repeating = $_[2];
4171	1592					2042	my $_noactions = $_[3];
4172	1592	50				3306	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	1592					4137
	1592					3855
4173	1592					2258	my $_itempos = $_[5];
4174	1592	50				4389	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
4175	1592					2243	my $text;
4176							my $lastsep;
4177	0					0	my $current_match;
4178	1592					5455	my $expectation = new Parse::RecDescent::Expectation(q{m\{ ^ \\s+ \}x});
4179	1592					13672	$expectation->at($_[1]);
4180
4181	1592					6615	my $thisline;
4182	1592					7344	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
4183
4184
4185
4186	1592		33			15673	while (!$_matched && !$commit)
4187							{
4188
4189	1592	50				3631	Parse::RecDescent::_trace(q{Trying production: [m\{ ^ \\s+ \}x]},
4190							Parse::RecDescent::_tracefirst($_[1]),
4191							q{WhiteSpace},
4192							$tracelevel)
4193							if defined $::RD_TRACE;
4194	1592					8943	my $thisprod = $thisrule->{"prods"}[0];
4195	1592					2530	$text = $_[1];
4196	1592					13489	my $_savetext;
4197	1592					2980	@item = (q{WhiteSpace});
4198	1592					3451	%item = (__RULE__ => q{WhiteSpace});
4199	1592					2415	my $repcount = 0;
4200
4201
4202	1592	50				3141	Parse::RecDescent::_trace(q{Trying terminal: [m\{ ^ \\s+ \}x]}, Parse::RecDescent::_tracefirst($text),
4203							q{WhiteSpace},
4204							$tracelevel)
4205							if defined $::RD_TRACE;
4206	1592					3195	undef $lastsep;
4207	1592					4870	$expectation->is(q{})->at($text);
4208
4209
4210	1592	50	66			21173	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m{\A(?: ^ \s+ )}x)
	1592	100				17976
4211							{
4212	989	50				3334	$text = $lastsep . $text if defined $lastsep;
4213	989					4345	$expectation->failed();
4214	989	50				5565	Parse::RecDescent::_trace(q{<>},
4215							Parse::RecDescent::_tracefirst($text))
4216							if defined $::RD_TRACE;
4217
4218	989					2154	last;
4219							}
4220	603					3639	$current_match = substr($text, $-[0], $+[0] - $-[0]);
4221	603					2222	substr($text,0,length($current_match),q{});
4222	603	50				1503	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4223							. $current_match . q{])},
4224							Parse::RecDescent::_tracefirst($text))
4225							if defined $::RD_TRACE;
4226	603					1712	push @item, $item{__PATTERN1__}=$current_match;
4227
4228
4229	603	50				1371	Parse::RecDescent::_trace(q{Trying action},
4230							Parse::RecDescent::_tracefirst($text),
4231							q{WhiteSpace},
4232							$tracelevel)
4233							if defined $::RD_TRACE;
4234
4235
4236	603	50				1269	$_tok = ($_noactions) ? 0 : do {
4237	603					3080	$return = {
4238							type => $item[0],
4239							content => $item[1],
4240							}
4241							};
4242	603	50				1581	unless (defined $_tok)
4243							{
4244	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
4245							if defined $::RD_TRACE;
4246	0					0	last;
4247							}
4248	603	50				1587	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
4249							. $_tok . q{])},
4250							Parse::RecDescent::_tracefirst($text))
4251							if defined $::RD_TRACE;
4252	603					875	push @item, $_tok;
4253	603					1489	$item{__ACTION1__}=$_tok;
4254
4255
4256	603	50				1657	Parse::RecDescent::_trace(q{>>Matched production: [m\{ ^ \\s+ \}x]<<},
4257							Parse::RecDescent::_tracefirst($text),
4258							q{WhiteSpace},
4259							$tracelevel)
4260							if defined $::RD_TRACE;
4261
4262
4263
4264	603					719	$_matched = 1;
4265	603					1263	last;
4266							}
4267
4268
4269	1592	100	66			9409	unless ( $_matched \|\| defined($score) )
4270							{
4271
4272
4273	989					1600	$_[1] = $text; # NOT SURE THIS IS NEEDED
4274	989	50				2152	Parse::RecDescent::_trace(q{<>},
4275							Parse::RecDescent::_tracefirst($_[1]),
4276							q{WhiteSpace},
4277							$tracelevel)
4278							if defined $::RD_TRACE;
4279	989					10073	return undef;
4280							}
4281	603	50	33			1666	if (!defined($return) && defined($score))
4282							{
4283	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
4284							q{WhiteSpace},
4285							$tracelevel)
4286							if defined $::RD_TRACE;
4287	0					0	$return = $score_return;
4288							}
4289	603					786	splice @{$thisparser->{errors}}, $err_at;
	603					3915
4290	603	50				1403	$return = $item[$#item] unless defined $return;
4291	603	50				1360	if (defined $::RD_TRACE)
4292							{
4293	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
4294							$return . q{])}, "",
4295							q{WhiteSpace},
4296							$tracelevel);
4297	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
4298							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
4299							Parse::RecDescent::_tracefirst($text),
4300							, q{WhiteSpace},
4301							$tracelevel)
4302							}
4303	603					1099	$_[1] = $text;
4304	603					5623	return $return;
4305							}
4306
4307							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
4308							sub Parse::RecDescent::Pod::WikiDoc::Parser::Plain_Line
4309							{
4310	459			459		6421	my $thisparser = $_[0];
4311	24			24		193	use vars q{$tracelevel};
	24					56
	24					40398
4312	459		50			1464	local $tracelevel = ($tracelevel\|\|0)+1;
4313	459					633	$ERRORS = 0;
4314	459					1073	my $thisrule = $thisparser->{"rules"}{"Plain_Line"};
4315
4316	459	50				1024	Parse::RecDescent::_trace(q{Trying rule: [Plain_Line]},
4317							Parse::RecDescent::_tracefirst($_[1]),
4318							q{Plain_Line},
4319							$tracelevel)
4320							if defined $::RD_TRACE;
4321
4322
4323	459					510	my $err_at = @{$thisparser->{errors}};
	459					951
4324
4325	459					662	my $score;
4326							my $score_return;
4327	0					0	my $_tok;
4328	459					609	my $return = undef;
4329	459					597	my $_matched=0;
4330	459					571	my $commit=0;
4331	459					902	my @item = ();
4332	459					856	my %item = ();
4333	459					604	my $repeating = $_[2];
4334	459					766	my $_noactions = $_[3];
4335	459	50				992	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	459					585
	459					1062
4336	459					689	my $_itempos = $_[5];
4337	459	50				1348	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
4338	459					637	my $text;
4339							my $lastsep;
4340	0					0	my $current_match;
4341	459					1568	my $expectation = new Parse::RecDescent::Expectation(q{/^[^0\\n\\t\\ ]\|[0][^\\t\\ ]/});
4342	459					6556	$expectation->at($_[1]);
4343
4344	459					1820	my $thisline;
4345	459					1959	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
4346
4347
4348
4349	459		33			4515	while (!$_matched && !$commit)
4350							{
4351
4352	459	50				1134	Parse::RecDescent::_trace(q{Trying production: [/^[^0\\n\\t\\ ]\|[0][^\\t\\ ]/ /[^\\n]+/ '\\n']},
4353							Parse::RecDescent::_tracefirst($_[1]),
4354							q{Plain_Line},
4355							$tracelevel)
4356							if defined $::RD_TRACE;
4357	459					1092	my $thisprod = $thisrule->{"prods"}[0];
4358	459					696	$text = $_[1];
4359	459					545	my $_savetext;
4360	459					870	@item = (q{Plain_Line});
4361	459					1133	%item = (__RULE__ => q{Plain_Line});
4362	459					980	my $repcount = 0;
4363
4364
4365	459	50				959	Parse::RecDescent::_trace(q{Trying terminal: [/^[^0\\n\\t\\ ]\|[0][^\\t\\ ]/]}, Parse::RecDescent::_tracefirst($text),
4366							q{Plain_Line},
4367							$tracelevel)
4368							if defined $::RD_TRACE;
4369	459					618	undef $lastsep;
4370	459					1444	$expectation->is(q{})->at($text);
4371
4372
4373	459	50	66			5423	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:^[^0\n\t\ ]\|[0][^\t\ ])/)
	459	100				4308
4374							{
4375	345	50				1167	$text = $lastsep . $text if defined $lastsep;
4376	345					1134	$expectation->failed();
4377	345	50				1839	Parse::RecDescent::_trace(q{<>},
4378							Parse::RecDescent::_tracefirst($text))
4379							if defined $::RD_TRACE;
4380
4381	345					940	last;
4382							}
4383	114					835	$current_match = substr($text, $-[0], $+[0] - $-[0]);
4384	114					496	substr($text,0,length($current_match),q{});
4385	114	50				362	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4386							. $current_match . q{])},
4387							Parse::RecDescent::_tracefirst($text))
4388							if defined $::RD_TRACE;
4389	114					359	push @item, $item{__PATTERN1__}=$current_match;
4390
4391
4392	114	50				320	Parse::RecDescent::_trace(q{Trying terminal: [/[^\\n]+/]}, Parse::RecDescent::_tracefirst($text),
4393							q{Plain_Line},
4394							$tracelevel)
4395							if defined $::RD_TRACE;
4396	114					167	undef $lastsep;
4397	114					387	$expectation->is(q{/[^\\n]+/})->at($text);
4398
4399
4400	114	50	33			1540	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:[^\n]+)/)
	114	50				1293
4401							{
4402	0	0				0	$text = $lastsep . $text if defined $lastsep;
4403	0					0	$expectation->failed();
4404	0	0				0	Parse::RecDescent::_trace(q{<>},
4405							Parse::RecDescent::_tracefirst($text))
4406							if defined $::RD_TRACE;
4407
4408	0					0	last;
4409							}
4410	114					619	$current_match = substr($text, $-[0], $+[0] - $-[0]);
4411	114					363	substr($text,0,length($current_match),q{});
4412	114	50				306	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4413							. $current_match . q{])},
4414							Parse::RecDescent::_tracefirst($text))
4415							if defined $::RD_TRACE;
4416	114					363	push @item, $item{__PATTERN2__}=$current_match;
4417
4418
4419	114	50				344	Parse::RecDescent::_trace(q{Trying terminal: ['\\n']},
4420							Parse::RecDescent::_tracefirst($text),
4421							q{Plain_Line},
4422							$tracelevel)
4423							if defined $::RD_TRACE;
4424	114					237	undef $lastsep;
4425	114					399	$expectation->is(q{'\\n'})->at($text);
4426
4427
4428	114	50	33			1245	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and do { $_tok = "\n"; 1 } and
	114	50	33			851
	114		33			195
	114					914
4429							substr($text,0,length($_tok)) eq $_tok and
4430	114					225	do { substr($text,0,length($_tok)) = ""; 1; }
	114					315
4431							)
4432							{
4433	0	0				0	$text = $lastsep . $text if defined $lastsep;
4434
4435	0					0	$expectation->failed();
4436	0	0				0	Parse::RecDescent::_trace(q{<>},
4437							Parse::RecDescent::_tracefirst($text))
4438							if defined $::RD_TRACE;
4439	0					0	last;
4440							}
4441	114	50				359	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4442							. $_tok . q{])},
4443							Parse::RecDescent::_tracefirst($text))
4444							if defined $::RD_TRACE;
4445	114					329	push @item, $item{__STRING1__}=$_tok;
4446
4447
4448	114	50				305	Parse::RecDescent::_trace(q{Trying action},
4449							Parse::RecDescent::_tracefirst($text),
4450							q{Plain_Line},
4451							$tracelevel)
4452							if defined $::RD_TRACE;
4453
4454
4455	114	50				271	$_tok = ($_noactions) ? 0 : do { $return = $item[1] . $item[2] . $item[3] };
	114					422
4456	114	50				317	unless (defined $_tok)
4457							{
4458	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
4459							if defined $::RD_TRACE;
4460	0					0	last;
4461							}
4462	114	50				267	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
4463							. $_tok . q{])},
4464							Parse::RecDescent::_tracefirst($text))
4465							if defined $::RD_TRACE;
4466	114					243	push @item, $_tok;
4467	114					420	$item{__ACTION1__}=$_tok;
4468
4469
4470	114	50				274	Parse::RecDescent::_trace(q{>>Matched production: [/^[^0\\n\\t\\ ]\|[0][^\\t\\ ]/ /[^\\n]+/ '\\n']<<},
4471							Parse::RecDescent::_tracefirst($text),
4472							q{Plain_Line},
4473							$tracelevel)
4474							if defined $::RD_TRACE;
4475
4476
4477
4478	114					157	$_matched = 1;
4479	114					686	last;
4480							}
4481
4482
4483	459	100	66			2423	unless ( $_matched \|\| defined($score) )
4484							{
4485
4486
4487	345					637	$_[1] = $text; # NOT SURE THIS IS NEEDED
4488	345	50				766	Parse::RecDescent::_trace(q{<>},
4489							Parse::RecDescent::_tracefirst($_[1]),
4490							q{Plain_Line},
4491							$tracelevel)
4492							if defined $::RD_TRACE;
4493	345					2532	return undef;
4494							}
4495	114	50	33			376	if (!defined($return) && defined($score))
4496							{
4497	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
4498							q{Plain_Line},
4499							$tracelevel)
4500							if defined $::RD_TRACE;
4501	0					0	$return = $score_return;
4502							}
4503	114					151	splice @{$thisparser->{errors}}, $err_at;
	114					312
4504	114	50				299	$return = $item[$#item] unless defined $return;
4505	114	50				284	if (defined $::RD_TRACE)
4506							{
4507	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
4508							$return . q{])}, "",
4509							q{Plain_Line},
4510							$tracelevel);
4511	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
4512							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
4513							Parse::RecDescent::_tracefirst($text),
4514							, q{Plain_Line},
4515							$tracelevel)
4516							}
4517	114					207	$_[1] = $text;
4518	114					953	return $return;
4519							}
4520
4521							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
4522							sub Parse::RecDescent::Pod::WikiDoc::Parser::KeyWord
4523							{
4524	938			938		2229	my $thisparser = $_[0];
4525	24			24		204	use vars q{$tracelevel};
	24					75
	24					52043
4526	938		50			2746	local $tracelevel = ($tracelevel\|\|0)+1;
4527	938					1353	$ERRORS = 0;
4528	938					2325	my $thisrule = $thisparser->{"rules"}{"KeyWord"};
4529
4530	938	50				2330	Parse::RecDescent::_trace(q{Trying rule: [KeyWord]},
4531							Parse::RecDescent::_tracefirst($_[1]),
4532							q{KeyWord},
4533							$tracelevel)
4534							if defined $::RD_TRACE;
4535
4536
4537	938					1082	my $err_at = @{$thisparser->{errors}};
	938					2007
4538
4539	938					1351	my $score;
4540							my $score_return;
4541	0					0	my $_tok;
4542	938					1404	my $return = undef;
4543	938					1189	my $_matched=0;
4544	938					1176	my $commit=0;
4545	938					1587	my @item = ();
4546	938					1661	my %item = ();
4547	938					1545	my $repeating = $_[2];
4548	938					1181	my $_noactions = $_[3];
4549	938	50				2178	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	938					1454
	938					2070
4550	938					1463	my $_itempos = $_[5];
4551	938	50				2705	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
4552	938					1267	my $text;
4553							my $lastsep;
4554	0					0	my $current_match;
4555	938					3414	my $expectation = new Parse::RecDescent::Expectation(q{});
4556	938					9656	$expectation->at($_[1]);
4557
4558	938					3863	my $thisline;
4559	938					4130	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
4560
4561
4562
4563	938		33			11208	while (!$_matched && !$commit)
4564							{
4565
4566	938	50				2708	Parse::RecDescent::_trace(q{Trying production: []},
4567							Parse::RecDescent::_tracefirst($_[1]),
4568							q{KeyWord},
4569							$tracelevel)
4570							if defined $::RD_TRACE;
4571	938					2551	my $thisprod = $thisrule->{"prods"}[0];
4572	938					1609	$text = $_[1];
4573	938					1135	my $_savetext;
4574	938					1866	@item = (q{KeyWord});
4575	938					2781	%item = (__RULE__ => q{KeyWord});
4576	938					1562	my $repcount = 0;
4577
4578
4579	938	50				2222	Parse::RecDescent::_trace(q{Trying action},
4580							Parse::RecDescent::_tracefirst($text),
4581							q{KeyWord},
4582							$tracelevel)
4583							if defined $::RD_TRACE;
4584
4585
4586	938	50				1803	$_tok = ($_noactions) ? 0 : do { extract_tagged( $text, '%%', '%%' ) };
	938					3414
4587	938	100				66966	unless (defined $_tok)
4588							{
4589	930	50				2031	Parse::RecDescent::_trace(q{<> (return value: [undef])})
4590							if defined $::RD_TRACE;
4591	930					1794	last;
4592							}
4593	8	50				28	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
4594							. $_tok . q{])},
4595							Parse::RecDescent::_tracefirst($text))
4596							if defined $::RD_TRACE;
4597	8					19	push @item, $_tok;
4598	8					18	$item{__ACTION1__}=$_tok;
4599
4600
4601	8	50				20	Parse::RecDescent::_trace(q{Trying action},
4602							Parse::RecDescent::_tracefirst($text),
4603							q{KeyWord},
4604							$tracelevel)
4605							if defined $::RD_TRACE;
4606
4607
4608	8	50				18	$_tok = ($_noactions) ? 0 : do {
4609	8					49	$return = {
4610							type => $item[0],
4611							content => substr( substr( $item[1], 2), 0, -2 ),
4612							}
4613							};
4614	8	50				27	unless (defined $_tok)
4615							{
4616	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
4617							if defined $::RD_TRACE;
4618	0					0	last;
4619							}
4620	8	50				23	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
4621							. $_tok . q{])},
4622							Parse::RecDescent::_tracefirst($text))
4623							if defined $::RD_TRACE;
4624	8					15	push @item, $_tok;
4625	8					21	$item{__ACTION2__}=$_tok;
4626
4627
4628	8	50				24	Parse::RecDescent::_trace(q{>>Matched production: []<<},
4629							Parse::RecDescent::_tracefirst($text),
4630							q{KeyWord},
4631							$tracelevel)
4632							if defined $::RD_TRACE;
4633
4634
4635
4636	8					13	$_matched = 1;
4637	8					15	last;
4638							}
4639
4640
4641	938	100	66			4713	unless ( $_matched \|\| defined($score) )
4642							{
4643
4644
4645	930					1758	$_[1] = $text; # NOT SURE THIS IS NEEDED
4646	930	50				1888	Parse::RecDescent::_trace(q{<>},
4647							Parse::RecDescent::_tracefirst($_[1]),
4648							q{KeyWord},
4649							$tracelevel)
4650							if defined $::RD_TRACE;
4651	930					7331	return undef;
4652							}
4653	8	50	33			30	if (!defined($return) && defined($score))
4654							{
4655	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
4656							q{KeyWord},
4657							$tracelevel)
4658							if defined $::RD_TRACE;
4659	0					0	$return = $score_return;
4660							}
4661	8					14	splice @{$thisparser->{errors}}, $err_at;
	8					24
4662	8	50				27	$return = $item[$#item] unless defined $return;
4663	8	50				82	if (defined $::RD_TRACE)
4664							{
4665	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
4666							$return . q{])}, "",
4667							q{KeyWord},
4668							$tracelevel);
4669	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
4670							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
4671							Parse::RecDescent::_tracefirst($text),
4672							, q{KeyWord},
4673							$tracelevel)
4674							}
4675	8					16	$_[1] = $text;
4676	8					76	return $return;
4677							}
4678
4679							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
4680							sub Parse::RecDescent::Pod::WikiDoc::Parser::List_Continuation
4681							{
4682	43			43		632	my $thisparser = $_[0];
4683	24			24		167	use vars q{$tracelevel};
	24					61
	24					43167
4684	43		50			153	local $tracelevel = ($tracelevel\|\|0)+1;
4685	43					71	$ERRORS = 0;
4686	43					130	my $thisrule = $thisparser->{"rules"}{"List_Continuation"};
4687
4688	43	50				118	Parse::RecDescent::_trace(q{Trying rule: [List_Continuation]},
4689							Parse::RecDescent::_tracefirst($_[1]),
4690							q{List_Continuation},
4691							$tracelevel)
4692							if defined $::RD_TRACE;
4693
4694
4695	43					74	my $err_at = @{$thisparser->{errors}};
	43					109
4696
4697	43					84	my $score;
4698							my $score_return;
4699	0					0	my $_tok;
4700	43					69	my $return = undef;
4701	43					63	my $_matched=0;
4702	43					74	my $commit=0;
4703	43					84	my @item = ();
4704	43					82	my %item = ();
4705	43					69	my $repeating = $_[2];
4706	43					67	my $_noactions = $_[3];
4707	43	50				134	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	43					70
	43					99
4708	43					424	my $_itempos = $_[5];
4709	43	50				183	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
4710	43					76	my $text;
4711							my $lastsep;
4712	0					0	my $current_match;
4713	43					515	my $expectation = new Parse::RecDescent::Expectation(q{/^[^*0\\s]/});
4714	43					384	$expectation->at($_[1]);
4715
4716	43					188	my $thisline;
4717	43					233	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
4718
4719
4720
4721	43		33			499	while (!$_matched && !$commit)
4722							{
4723
4724	43	50				1312	Parse::RecDescent::_trace(q{Trying production: [/^[^0\\s]/ /[^\\n]/ '\\n']},
4725							Parse::RecDescent::_tracefirst($_[1]),
4726							q{List_Continuation},
4727							$tracelevel)
4728							if defined $::RD_TRACE;
4729	43					132	my $thisprod = $thisrule->{"prods"}[0];
4730	43					75	$text = $_[1];
4731	43					68	my $_savetext;
4732	43					93	@item = (q{List_Continuation});
4733	43					115	%item = (__RULE__ => q{List_Continuation});
4734	43					68	my $repcount = 0;
4735
4736
4737	43	50				6795	Parse::RecDescent::_trace(q{Trying terminal: [/^[^*0\\s]/]}, Parse::RecDescent::_tracefirst($text),
4738							q{List_Continuation},
4739							$tracelevel)
4740							if defined $::RD_TRACE;
4741	43					85	undef $lastsep;
4742	43					237	$expectation->is(q{})->at($text);
4743
4744
4745	43	50	66			947	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:^[^*0\s])/)
	43	100				495
4746							{
4747	36	50				137	$text = $lastsep . $text if defined $lastsep;
4748	36					143	$expectation->failed();
4749	36	50				192	Parse::RecDescent::_trace(q{<>},
4750							Parse::RecDescent::_tracefirst($text))
4751							if defined $::RD_TRACE;
4752
4753	36					90	last;
4754							}
4755	7					43	$current_match = substr($text, $-[0], $+[0] - $-[0]);
4756	7					26	substr($text,0,length($current_match),q{});
4757	7	50				26	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4758							. $current_match . q{])},
4759							Parse::RecDescent::_tracefirst($text))
4760							if defined $::RD_TRACE;
4761	7					40	push @item, $item{__PATTERN1__}=$current_match;
4762
4763
4764	7	50				25	Parse::RecDescent::_trace(q{Trying terminal: [/[^\\n]*/]}, Parse::RecDescent::_tracefirst($text),
4765							q{List_Continuation},
4766							$tracelevel)
4767							if defined $::RD_TRACE;
4768	7					13	undef $lastsep;
4769	7					28	$expectation->is(q{/[^\\n]*/})->at($text);
4770
4771
4772	7	50	33			109	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:[^\n]*)/)
	7	50				108
4773							{
4774	0	0				0	$text = $lastsep . $text if defined $lastsep;
4775	0					0	$expectation->failed();
4776	0	0				0	Parse::RecDescent::_trace(q{<>},
4777							Parse::RecDescent::_tracefirst($text))
4778							if defined $::RD_TRACE;
4779
4780	0					0	last;
4781							}
4782	7					40	$current_match = substr($text, $-[0], $+[0] - $-[0]);
4783	7					26	substr($text,0,length($current_match),q{});
4784	7	50				35	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4785							. $current_match . q{])},
4786							Parse::RecDescent::_tracefirst($text))
4787							if defined $::RD_TRACE;
4788	7					21	push @item, $item{__PATTERN2__}=$current_match;
4789
4790
4791	7	50				22	Parse::RecDescent::_trace(q{Trying terminal: ['\\n']},
4792							Parse::RecDescent::_tracefirst($text),
4793							q{List_Continuation},
4794							$tracelevel)
4795							if defined $::RD_TRACE;
4796	7					12	undef $lastsep;
4797	7					29	$expectation->is(q{'\\n'})->at($text);
4798
4799
4800	7	50	33			101	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and do { $_tok = "\n"; 1 } and
	7	50	33			67
	7		33			15
	7					84
4801							substr($text,0,length($_tok)) eq $_tok and
4802	7					17	do { substr($text,0,length($_tok)) = ""; 1; }
	7					41
4803							)
4804							{
4805	0	0				0	$text = $lastsep . $text if defined $lastsep;
4806
4807	0					0	$expectation->failed();
4808	0	0				0	Parse::RecDescent::_trace(q{<>},
4809							Parse::RecDescent::_tracefirst($text))
4810							if defined $::RD_TRACE;
4811	0					0	last;
4812							}
4813	7	50				29	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4814							. $_tok . q{])},
4815							Parse::RecDescent::_tracefirst($text))
4816							if defined $::RD_TRACE;
4817	7					20	push @item, $item{__STRING1__}=$_tok;
4818
4819
4820	7	50				25	Parse::RecDescent::_trace(q{Trying action},
4821							Parse::RecDescent::_tracefirst($text),
4822							q{List_Continuation},
4823							$tracelevel)
4824							if defined $::RD_TRACE;
4825
4826
4827	7	50				20	$_tok = ($_noactions) ? 0 : do { $return = $item[1] . $item[2] };
	7					20
4828	7	50				26	unless (defined $_tok)
4829							{
4830	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
4831							if defined $::RD_TRACE;
4832	0					0	last;
4833							}
4834	7	50				31	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
4835							. $_tok . q{])},
4836							Parse::RecDescent::_tracefirst($text))
4837							if defined $::RD_TRACE;
4838	7					22	push @item, $_tok;
4839	7					16	$item{__ACTION1__}=$_tok;
4840
4841
4842	7	50				21	Parse::RecDescent::_trace(q{>>Matched production: [/^[^0\\s]/ /[^\\n]/ '\\n']<<},
4843							Parse::RecDescent::_tracefirst($text),
4844							q{List_Continuation},
4845							$tracelevel)
4846							if defined $::RD_TRACE;
4847
4848
4849
4850	7					12	$_matched = 1;
4851	7					56	last;
4852							}
4853
4854
4855	43	100	66			291	unless ( $_matched \|\| defined($score) )
4856							{
4857
4858
4859	36					69	$_[1] = $text; # NOT SURE THIS IS NEEDED
4860	36	50				97	Parse::RecDescent::_trace(q{<>},
4861							Parse::RecDescent::_tracefirst($_[1]),
4862							q{List_Continuation},
4863							$tracelevel)
4864							if defined $::RD_TRACE;
4865	36					274	return undef;
4866							}
4867	7	50	33			31	if (!defined($return) && defined($score))
4868							{
4869	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
4870							q{List_Continuation},
4871							$tracelevel)
4872							if defined $::RD_TRACE;
4873	0					0	$return = $score_return;
4874							}
4875	7					13	splice @{$thisparser->{errors}}, $err_at;
	7					21
4876	7	50				20	$return = $item[$#item] unless defined $return;
4877	7	50				32	if (defined $::RD_TRACE)
4878							{
4879	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
4880							$return . q{])}, "",
4881							q{List_Continuation},
4882							$tracelevel);
4883	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
4884							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
4885							Parse::RecDescent::_tracefirst($text),
4886							, q{List_Continuation},
4887							$tracelevel)
4888							}
4889	7					17	$_[1] = $text;
4890	7					143	return $return;
4891							}
4892
4893							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
4894							sub Parse::RecDescent::Pod::WikiDoc::Parser::LinkText
4895							{
4896	952			952		1545	my $thisparser = $_[0];
4897	24			24		226	use vars q{$tracelevel};
	24					56
	24					38821
4898	952		50			2838	local $tracelevel = ($tracelevel\|\|0)+1;
4899	952					1287	$ERRORS = 0;
4900	952					2335	my $thisrule = $thisparser->{"rules"}{"LinkText"};
4901
4902	952	50				2045	Parse::RecDescent::_trace(q{Trying rule: [LinkText]},
4903							Parse::RecDescent::_tracefirst($_[1]),
4904							q{LinkText},
4905							$tracelevel)
4906							if defined $::RD_TRACE;
4907
4908
4909	952					1212	my $err_at = @{$thisparser->{errors}};
	952					2059
4910
4911	952					1628	my $score;
4912							my $score_return;
4913	0					0	my $_tok;
4914	952					1180	my $return = undef;
4915	952					1436	my $_matched=0;
4916	952					1279	my $commit=0;
4917	952					1625	my @item = ();
4918	952					1622	my %item = ();
4919	952					1306	my $repeating = $_[2];
4920	952					1206	my $_noactions = $_[3];
4921	952	50				2127	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	952					1199
	952					2058
4922	952					1664	my $_itempos = $_[5];
4923	952	50				3110	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
4924	952					1564	my $text;
4925							my $lastsep;
4926	0					0	my $current_match;
4927	952					4208	my $expectation = new Parse::RecDescent::Expectation(q{});
4928	952					8052	$expectation->at($_[1]);
4929
4930	952					5306	my $thisline;
4931	952					4831	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
4932
4933
4934
4935	952		33			20482	while (!$_matched && !$commit)
4936							{
4937
4938	952	50				2098	Parse::RecDescent::_trace(q{Trying production: []},
4939							Parse::RecDescent::_tracefirst($_[1]),
4940							q{LinkText},
4941							$tracelevel)
4942							if defined $::RD_TRACE;
4943	952					2438	my $thisprod = $thisrule->{"prods"}[0];
4944	952					1652	$text = $_[1];
4945	952					1139	my $_savetext;
4946	952					2187	@item = (q{LinkText});
4947	952					2046	%item = (__RULE__ => q{LinkText});
4948	952					1260	my $repcount = 0;
4949
4950
4951	952	50				13365	Parse::RecDescent::_trace(q{Trying action},
4952							Parse::RecDescent::_tracefirst($text),
4953							q{LinkText},
4954							$tracelevel)
4955							if defined $::RD_TRACE;
4956
4957
4958	952	50				1776	$_tok = ($_noactions) ? 0 : do { extract_bracketed( $text, '[' ) };
	952					5021
4959	952	100				69149	unless (defined $_tok)
4960							{
4961	942	50				2639	Parse::RecDescent::_trace(q{<> (return value: [undef])})
4962							if defined $::RD_TRACE;
4963	942					1802	last;
4964							}
4965	10	50				39	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
4966							. $_tok . q{])},
4967							Parse::RecDescent::_tracefirst($text))
4968							if defined $::RD_TRACE;
4969	10					21	push @item, $_tok;
4970	10					23	$item{__ACTION1__}=$_tok;
4971
4972
4973	10	50				34	Parse::RecDescent::_trace(q{Trying action},
4974							Parse::RecDescent::_tracefirst($text),
4975							q{LinkText},
4976							$tracelevel)
4977							if defined $::RD_TRACE;
4978
4979
4980	10	50				30	$_tok = ($_noactions) ? 0 : do {
4981	10					143	$return = $thisparser->LinkContent(
4982							substr( substr( $item[1], 1), 0, -1 )
4983							),
4984							};
4985	10	50				193	unless (defined $_tok)
4986							{
4987	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
4988							if defined $::RD_TRACE;
4989	0					0	last;
4990							}
4991	10	50				31	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
4992							. $_tok . q{])},
4993							Parse::RecDescent::_tracefirst($text))
4994							if defined $::RD_TRACE;
4995	10					18	push @item, $_tok;
4996	10					27	$item{__ACTION2__}=$_tok;
4997
4998
4999	10	50				36	Parse::RecDescent::_trace(q{>>Matched production: []<<},
5000							Parse::RecDescent::_tracefirst($text),
5001							q{LinkText},
5002							$tracelevel)
5003							if defined $::RD_TRACE;
5004
5005
5006
5007	10					16	$_matched = 1;
5008	10					22	last;
5009							}
5010
5011
5012	952	100	66			4659	unless ( $_matched \|\| defined($score) )
5013							{
5014
5015
5016	942					1883	$_[1] = $text; # NOT SURE THIS IS NEEDED
5017	942	50				1954	Parse::RecDescent::_trace(q{<>},
5018							Parse::RecDescent::_tracefirst($_[1]),
5019							q{LinkText},
5020							$tracelevel)
5021							if defined $::RD_TRACE;
5022	942					7393	return undef;
5023							}
5024	10	50	33			37	if (!defined($return) && defined($score))
5025							{
5026	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
5027							q{LinkText},
5028							$tracelevel)
5029							if defined $::RD_TRACE;
5030	0					0	$return = $score_return;
5031							}
5032	10					14	splice @{$thisparser->{errors}}, $err_at;
	10					23
5033	10	50				32	$return = $item[$#item] unless defined $return;
5034	10	50				52	if (defined $::RD_TRACE)
5035							{
5036	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
5037							$return . q{])}, "",
5038							q{LinkText},
5039							$tracelevel);
5040	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
5041							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
5042							Parse::RecDescent::_tracefirst($text),
5043							, q{LinkText},
5044							$tracelevel)
5045							}
5046	10					29	$_[1] = $text;
5047	10					186	return $return;
5048							}
5049
5050							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
5051							sub Parse::RecDescent::Pod::WikiDoc::Parser::Ordered_List
5052							{
5053	358			358		601	my $thisparser = $_[0];
5054	24			24		182	use vars q{$tracelevel};
	24					52
	24					35247
5055	358		50			1134	local $tracelevel = ($tracelevel\|\|0)+1;
5056	358					533	$ERRORS = 0;
5057	358					1513	my $thisrule = $thisparser->{"rules"}{"Ordered_List"};
5058
5059	358	50				868	Parse::RecDescent::_trace(q{Trying rule: [Ordered_List]},
5060							Parse::RecDescent::_tracefirst($_[1]),
5061							q{Ordered_List},
5062							$tracelevel)
5063							if defined $::RD_TRACE;
5064
5065
5066	358					415	my $err_at = @{$thisparser->{errors}};
	358					750
5067
5068	358					536	my $score;
5069							my $score_return;
5070	0					0	my $_tok;
5071	358					488	my $return = undef;
5072	358					561	my $_matched=0;
5073	358					463	my $commit=0;
5074	358					638	my @item = ();
5075	358					672	my %item = ();
5076	358					522	my $repeating = $_[2];
5077	358					680	my $_noactions = $_[3];
5078	358	50				894	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	358					480
	358					748
5079	358					578	my $_itempos = $_[5];
5080	358	50				6155	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
5081	358					543	my $text;
5082							my $lastsep;
5083	0					0	my $current_match;
5084	358					1296	my $expectation = new Parse::RecDescent::Expectation(q{Numbered_Item});
5085	358					3149	$expectation->at($_[1]);
5086
5087	358					1472	my $thisline;
5088	358					1766	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
5089
5090
5091
5092	358		33			3730	while (!$_matched && !$commit)
5093							{
5094
5095	358	50				920	Parse::RecDescent::_trace(q{Trying production: [Numbered_Item Empty_Line]},
5096							Parse::RecDescent::_tracefirst($_[1]),
5097							q{Ordered_List},
5098							$tracelevel)
5099							if defined $::RD_TRACE;
5100	358					910	my $thisprod = $thisrule->{"prods"}[0];
5101	358					581	$text = $_[1];
5102	358					569	my $_savetext;
5103	358					734	@item = (q{Ordered_List});
5104	358					853	%item = (__RULE__ => q{Ordered_List});
5105	358					560	my $repcount = 0;
5106
5107
5108	358	50				847	Parse::RecDescent::_trace(q{Trying repeated subrule: [Numbered_Item]},
5109							Parse::RecDescent::_tracefirst($text),
5110							q{Ordered_List},
5111							$tracelevel)
5112							if defined $::RD_TRACE;
5113	358					1049	$expectation->is(q{})->at($text);
5114
5115	358	100		374		4127	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::Numbered_Item, 1, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
	374					867
5116							{
5117	349	50				4341	Parse::RecDescent::_trace(q{<>},
5118							Parse::RecDescent::_tracefirst($text),
5119							q{Ordered_List},
5120							$tracelevel)
5121							if defined $::RD_TRACE;
5122	349					1142	last;
5123							}
5124	9	50				158	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Numbered_Item]<< (}
5125							. @$_tok . q{ times)},
5126
5127							Parse::RecDescent::_tracefirst($text),
5128							q{Ordered_List},
5129							$tracelevel)
5130							if defined $::RD_TRACE;
5131	9					31	$item{q{Numbered_Item(s)}} = $_tok;
5132	9					23	push @item, $_tok;
5133
5134
5135
5136	9	50				33	Parse::RecDescent::_trace(q{Trying repeated subrule: [Empty_Line]},
5137							Parse::RecDescent::_tracefirst($text),
5138							q{Ordered_List},
5139							$tracelevel)
5140							if defined $::RD_TRACE;
5141	9					42	$expectation->is(q{Empty_Line})->at($text);
5142
5143	9	50		9		143	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::Empty_Line, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
	9					36
5144							{
5145	0	0				0	Parse::RecDescent::_trace(q{<>},
5146							Parse::RecDescent::_tracefirst($text),
5147							q{Ordered_List},
5148							$tracelevel)
5149							if defined $::RD_TRACE;
5150	0					0	last;
5151							}
5152	9	50				168	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Empty_Line]<< (}
5153							. @$_tok . q{ times)},
5154
5155							Parse::RecDescent::_tracefirst($text),
5156							q{Ordered_List},
5157							$tracelevel)
5158							if defined $::RD_TRACE;
5159	9					31	$item{q{Empty_Line(?)}} = $_tok;
5160	9					21	push @item, $_tok;
5161
5162
5163
5164	9	50				38	Parse::RecDescent::_trace(q{Trying action},
5165							Parse::RecDescent::_tracefirst($text),
5166							q{Ordered_List},
5167							$tracelevel)
5168							if defined $::RD_TRACE;
5169
5170
5171	9	50				38	$_tok = ($_noactions) ? 0 : do {
5172	9					45	$return = {
5173							type => $item[0],
5174							content => $item[1],
5175							}
5176							};
5177	9	50				43	unless (defined $_tok)
5178							{
5179	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
5180							if defined $::RD_TRACE;
5181	0					0	last;
5182							}
5183	9	50				42	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
5184							. $_tok . q{])},
5185							Parse::RecDescent::_tracefirst($text))
5186							if defined $::RD_TRACE;
5187	9					21	push @item, $_tok;
5188	9					25	$item{__ACTION1__}=$_tok;
5189
5190
5191	9	50				44	Parse::RecDescent::_trace(q{>>Matched production: [Numbered_Item Empty_Line]<<},
5192							Parse::RecDescent::_tracefirst($text),
5193							q{Ordered_List},
5194							$tracelevel)
5195							if defined $::RD_TRACE;
5196
5197
5198
5199	9					17	$_matched = 1;
5200	9					24	last;
5201							}
5202
5203
5204	358	100	66			2475	unless ( $_matched \|\| defined($score) )
5205							{
5206
5207
5208	349					556	$_[1] = $text; # NOT SURE THIS IS NEEDED
5209	349	50				838	Parse::RecDescent::_trace(q{<>},
5210							Parse::RecDescent::_tracefirst($_[1]),
5211							q{Ordered_List},
5212							$tracelevel)
5213							if defined $::RD_TRACE;
5214	349					2396	return undef;
5215							}
5216	9	50	33			85	if (!defined($return) && defined($score))
5217							{
5218	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
5219							q{Ordered_List},
5220							$tracelevel)
5221							if defined $::RD_TRACE;
5222	0					0	$return = $score_return;
5223							}
5224	9					17	splice @{$thisparser->{errors}}, $err_at;
	9					32
5225	9	50				50	$return = $item[$#item] unless defined $return;
5226	9	50				37	if (defined $::RD_TRACE)
5227							{
5228	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
5229							$return . q{])}, "",
5230							q{Ordered_List},
5231							$tracelevel);
5232	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
5233							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
5234							Parse::RecDescent::_tracefirst($text),
5235							, q{Ordered_List},
5236							$tracelevel)
5237							}
5238	9					25	$_[1] = $text;
5239	9					120	return $return;
5240							}
5241
5242							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
5243							sub Parse::RecDescent::Pod::WikiDoc::Parser::Numbered_Item
5244							{
5245	374			374		5658	my $thisparser = $_[0];
5246	24			24		203	use vars q{$tracelevel};
	24					64
	24					13755
5247	374		50			1354	local $tracelevel = ($tracelevel\|\|0)+1;
5248	374					552	$ERRORS = 0;
5249	374					1384	my $thisrule = $thisparser->{"rules"}{"Numbered_Item"};
5250
5251	374	50				966	Parse::RecDescent::_trace(q{Trying rule: [Numbered_Item]},
5252							Parse::RecDescent::_tracefirst($_[1]),
5253							q{Numbered_Item},
5254							$tracelevel)
5255							if defined $::RD_TRACE;
5256
5257
5258	374					463	my $err_at = @{$thisparser->{errors}};
	374					884
5259
5260	374					2804	my $score;
5261							my $score_return;
5262	0					0	my $_tok;
5263	374					541	my $return = undef;
5264	374					518	my $_matched=0;
5265	374					496	my $commit=0;
5266	374					671	my @item = ();
5267	374					617	my %item = ();
5268	374					600	my $repeating = $_[2];
5269	374					530	my $_noactions = $_[3];
5270	374	50				932	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	374					509
	374					814
5271	374					696	my $_itempos = $_[5];
5272	374	50				1180	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
5273	374					546	my $text;
5274							my $lastsep;
5275	0					0	my $current_match;
5276	374					1288	my $expectation = new Parse::RecDescent::Expectation(q{Numbered_Line});
5277	374					3542	$expectation->at($_[1]);
5278
5279	374					1493	my $thisline;
5280	374					1647	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
5281
5282
5283
5284	374		33			3732	while (!$_matched && !$commit)
5285							{
5286
5287	374	50				901	Parse::RecDescent::_trace(q{Trying production: [Numbered_Line List_Continuation]},
5288							Parse::RecDescent::_tracefirst($_[1]),
5289							q{Numbered_Item},
5290							$tracelevel)
5291							if defined $::RD_TRACE;
5292	374					5350	my $thisprod = $thisrule->{"prods"}[0];
5293	374					600	$text = $_[1];
5294	374					502	my $_savetext;
5295	374					862	@item = (q{Numbered_Item});
5296	374					832	%item = (__RULE__ => q{Numbered_Item});
5297	374					693	my $repcount = 0;
5298
5299
5300	374	50				840	Parse::RecDescent::_trace(q{Trying subrule: [Numbered_Line]},
5301							Parse::RecDescent::_tracefirst($text),
5302							q{Numbered_Item},
5303							$tracelevel)
5304							if defined $::RD_TRACE;
5305	24			24		193	if (1) { no strict qw{refs};
	24					67
	24					26136
	374					543
5306	374					1159	$expectation->is(q{})->at($text);
5307	374	100		374		3952	unless (defined ($_tok = Parse::RecDescent::Pod::WikiDoc::Parser::Numbered_Line($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
	374					862
5308							{
5309
5310	358	50				910	Parse::RecDescent::_trace(q{<>},
5311							Parse::RecDescent::_tracefirst($text),
5312							q{Numbered_Item},
5313							$tracelevel)
5314							if defined $::RD_TRACE;
5315	358					1161	$expectation->failed();
5316	358					1424	last;
5317							}
5318	16	50				87	Parse::RecDescent::_trace(q{>>Matched subrule: [Numbered_Line]<< (return value: [}
5319							. $_tok . q{]},
5320
5321							Parse::RecDescent::_tracefirst($text),
5322							q{Numbered_Item},
5323							$tracelevel)
5324							if defined $::RD_TRACE;
5325	16					38	$item{q{Numbered_Line}} = $_tok;
5326	16					43	push @item, $_tok;
5327
5328							}
5329
5330	16	50				50	Parse::RecDescent::_trace(q{Trying repeated subrule: [List_Continuation]},
5331							Parse::RecDescent::_tracefirst($text),
5332							q{Numbered_Item},
5333							$tracelevel)
5334							if defined $::RD_TRACE;
5335	16					72	$expectation->is(q{List_Continuation})->at($text);
5336
5337	16	50		19		240	unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Pod::WikiDoc::Parser::List_Continuation, 0, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
	19					48
5338							{
5339	0	0				0	Parse::RecDescent::_trace(q{<>},
5340							Parse::RecDescent::_tracefirst($text),
5341							q{Numbered_Item},
5342							$tracelevel)
5343							if defined $::RD_TRACE;
5344	0					0	last;
5345							}
5346	16	50				289	Parse::RecDescent::_trace(q{>>Matched repeated subrule: [List_Continuation]<< (}
5347							. @$_tok . q{ times)},
5348
5349							Parse::RecDescent::_tracefirst($text),
5350							q{Numbered_Item},
5351							$tracelevel)
5352							if defined $::RD_TRACE;
5353	16					44	$item{q{List_Continuation(s?)}} = $_tok;
5354	16					28	push @item, $_tok;
5355
5356
5357
5358	16	50				51	Parse::RecDescent::_trace(q{Trying action},
5359							Parse::RecDescent::_tracefirst($text),
5360							q{Numbered_Item},
5361							$tracelevel)
5362							if defined $::RD_TRACE;
5363
5364
5365	16	50				43	$_tok = ($_noactions) ? 0 : do {
5366	16					170	$return = {
5367							type => $item[0],
5368							content => $thisparser->Inline(
5369	16					48	join( "\n", $item[1], @{$item[2]} )
5370							),
5371							}
5372							};
5373	16	50				374	unless (defined $_tok)
5374							{
5375	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
5376							if defined $::RD_TRACE;
5377	0					0	last;
5378							}
5379	16	50				57	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
5380							. $_tok . q{])},
5381							Parse::RecDescent::_tracefirst($text))
5382							if defined $::RD_TRACE;
5383	16					37	push @item, $_tok;
5384	16					40	$item{__ACTION1__}=$_tok;
5385
5386
5387	16	50				54	Parse::RecDescent::_trace(q{>>Matched production: [Numbered_Line List_Continuation]<<},
5388							Parse::RecDescent::_tracefirst($text),
5389							q{Numbered_Item},
5390							$tracelevel)
5391							if defined $::RD_TRACE;
5392
5393
5394
5395	16					30	$_matched = 1;
5396	16					40	last;
5397							}
5398
5399
5400	374	100	66			2497	unless ( $_matched \|\| defined($score) )
5401							{
5402
5403
5404	358					589	$_[1] = $text; # NOT SURE THIS IS NEEDED
5405	358	50				896	Parse::RecDescent::_trace(q{<>},
5406							Parse::RecDescent::_tracefirst($_[1]),
5407							q{Numbered_Item},
5408							$tracelevel)
5409							if defined $::RD_TRACE;
5410	358					2250	return undef;
5411							}
5412	16	50	33			75	if (!defined($return) && defined($score))
5413							{
5414	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
5415							q{Numbered_Item},
5416							$tracelevel)
5417							if defined $::RD_TRACE;
5418	0					0	$return = $score_return;
5419							}
5420	16					29	splice @{$thisparser->{errors}}, $err_at;
	16					46
5421	16	50				54	$return = $item[$#item] unless defined $return;
5422	16	50				53	if (defined $::RD_TRACE)
5423							{
5424	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
5425							$return . q{])}, "",
5426							q{Numbered_Item},
5427							$tracelevel);
5428	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
5429							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
5430							Parse::RecDescent::_tracefirst($text),
5431							, q{Numbered_Item},
5432							$tracelevel)
5433							}
5434	16					54	$_[1] = $text;
5435	16					188	return $return;
5436							}
5437
5438							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
5439							sub Parse::RecDescent::Pod::WikiDoc::Parser::Numbered_Line
5440							{
5441	374			374		814	my $thisparser = $_[0];
5442	24			24		200	use vars q{$tracelevel};
	24					69
	24					54083
5443	374		50			1096	local $tracelevel = ($tracelevel\|\|0)+1;
5444	374					544	$ERRORS = 0;
5445	374					877	my $thisrule = $thisparser->{"rules"}{"Numbered_Line"};
5446
5447	374	50				876	Parse::RecDescent::_trace(q{Trying rule: [Numbered_Line]},
5448							Parse::RecDescent::_tracefirst($_[1]),
5449							q{Numbered_Line},
5450							$tracelevel)
5451							if defined $::RD_TRACE;
5452
5453
5454	374					457	my $err_at = @{$thisparser->{errors}};
	374					868
5455
5456	374					582	my $score;
5457							my $score_return;
5458	0					0	my $_tok;
5459	374					492	my $return = undef;
5460	374					465	my $_matched=0;
5461	374					445	my $commit=0;
5462	374					644	my @item = ();
5463	374					836	my %item = ();
5464	374					523	my $repeating = $_[2];
5465	374					492	my $_noactions = $_[3];
5466	374	50				888	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	374					471
	374					1076
5467	374					571	my $_itempos = $_[5];
5468	374	50				1040	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
5469	374					522	my $text;
5470							my $lastsep;
5471	0					0	my $current_match;
5472	374					1382	my $expectation = new Parse::RecDescent::Expectation(q{/^0[\\t\\ ]*\\n/, or /^0[\\t\\ ]+/});
5473	374					3188	$expectation->at($_[1]);
5474
5475	374					1485	my $thisline;
5476	374					1647	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
5477
5478
5479
5480	374		33			3696	while (!$_matched && !$commit)
5481							{
5482
5483	374	50				933	Parse::RecDescent::_trace(q{Trying production: [/^0[\\t\\ ]*\\n/]},
5484							Parse::RecDescent::_tracefirst($_[1]),
5485							q{Numbered_Line},
5486							$tracelevel)
5487							if defined $::RD_TRACE;
5488	374					917	my $thisprod = $thisrule->{"prods"}[0];
5489	374					619	$text = $_[1];
5490	374					507	my $_savetext;
5491	374					786	@item = (q{Numbered_Line});
5492	374					912	%item = (__RULE__ => q{Numbered_Line});
5493	374					542	my $repcount = 0;
5494
5495
5496	374	50				908	Parse::RecDescent::_trace(q{Trying terminal: [/^0[\\t\\ ]*\\n/]}, Parse::RecDescent::_tracefirst($text),
5497							q{Numbered_Line},
5498							$tracelevel)
5499							if defined $::RD_TRACE;
5500	374					724	undef $lastsep;
5501	374					1161	$expectation->is(q{})->at($text);
5502
5503
5504	374	50	33			4324	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:^0[\t\ ]*\n)/)
	374	50				4928
5505							{
5506	374	50				1438	$text = $lastsep . $text if defined $lastsep;
5507	374					1465	$expectation->failed();
5508	374	50				1847	Parse::RecDescent::_trace(q{<>},
5509							Parse::RecDescent::_tracefirst($text))
5510							if defined $::RD_TRACE;
5511
5512	374					794	last;
5513							}
5514	0					0	$current_match = substr($text, $-[0], $+[0] - $-[0]);
5515	0					0	substr($text,0,length($current_match),q{});
5516	0	0				0	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5517							. $current_match . q{])},
5518							Parse::RecDescent::_tracefirst($text))
5519							if defined $::RD_TRACE;
5520	0					0	push @item, $item{__PATTERN1__}=$current_match;
5521
5522
5523	0	0				0	Parse::RecDescent::_trace(q{Trying action},
5524							Parse::RecDescent::_tracefirst($text),
5525							q{Numbered_Line},
5526							$tracelevel)
5527							if defined $::RD_TRACE;
5528
5529
5530	0	0				0	$_tok = ($_noactions) ? 0 : do { $return = q{} };
	0					0
5531	0	0				0	unless (defined $_tok)
5532							{
5533	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
5534							if defined $::RD_TRACE;
5535	0					0	last;
5536							}
5537	0	0				0	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
5538							. $_tok . q{])},
5539							Parse::RecDescent::_tracefirst($text))
5540							if defined $::RD_TRACE;
5541	0					0	push @item, $_tok;
5542	0					0	$item{__ACTION1__}=$_tok;
5543
5544
5545	0	0				0	Parse::RecDescent::_trace(q{>>Matched production: [/^0[\\t\\ ]*\\n/]<<},
5546							Parse::RecDescent::_tracefirst($text),
5547							q{Numbered_Line},
5548							$tracelevel)
5549							if defined $::RD_TRACE;
5550
5551
5552
5553	0					0	$_matched = 1;
5554	0					0	last;
5555							}
5556
5557
5558	374		33			1804	while (!$_matched && !$commit)
5559							{
5560
5561	374	50				995	Parse::RecDescent::_trace(q{Trying production: [/^0[\\t\\ ]+/ /[^\\n]*/ '\\n']},
5562							Parse::RecDescent::_tracefirst($_[1]),
5563							q{Numbered_Line},
5564							$tracelevel)
5565							if defined $::RD_TRACE;
5566	374					908	my $thisprod = $thisrule->{"prods"}[1];
5567	374					697	$text = $_[1];
5568	374					500	my $_savetext;
5569	374					872	@item = (q{Numbered_Line});
5570	374					1189	%item = (__RULE__ => q{Numbered_Line});
5571	374					592	my $repcount = 0;
5572
5573
5574	374	50				903	Parse::RecDescent::_trace(q{Trying terminal: [/^0[\\t\\ ]+/]}, Parse::RecDescent::_tracefirst($text),
5575							q{Numbered_Line},
5576							$tracelevel)
5577							if defined $::RD_TRACE;
5578	374					510	undef $lastsep;
5579	374					1278	$expectation->is(q{})->at($text);
5580
5581
5582	374	50	66			4089	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:^0[\t\ ]+)/)
	374	100				3602
5583							{
5584	358	50				1375	$text = $lastsep . $text if defined $lastsep;
5585	358					1328	$expectation->failed();
5586	358	50				1707	Parse::RecDescent::_trace(q{<>},
5587							Parse::RecDescent::_tracefirst($text))
5588							if defined $::RD_TRACE;
5589
5590	358					749	last;
5591							}
5592	16					117	$current_match = substr($text, $-[0], $+[0] - $-[0]);
5593	16					66	substr($text,0,length($current_match),q{});
5594	16	50				57	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5595							. $current_match . q{])},
5596							Parse::RecDescent::_tracefirst($text))
5597							if defined $::RD_TRACE;
5598	16					54	push @item, $item{__PATTERN1__}=$current_match;
5599
5600
5601	16	50				55	Parse::RecDescent::_trace(q{Trying terminal: [/[^\\n]*/]}, Parse::RecDescent::_tracefirst($text),
5602							q{Numbered_Line},
5603							$tracelevel)
5604							if defined $::RD_TRACE;
5605	16					27	undef $lastsep;
5606	16					61	$expectation->is(q{/[^\\n]*/})->at($text);
5607
5608
5609	16	50	33			284	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:[^\n]*)/)
	16	50				200
5610							{
5611	0	0				0	$text = $lastsep . $text if defined $lastsep;
5612	0					0	$expectation->failed();
5613	0	0				0	Parse::RecDescent::_trace(q{<>},
5614							Parse::RecDescent::_tracefirst($text))
5615							if defined $::RD_TRACE;
5616
5617	0					0	last;
5618							}
5619	16					151	$current_match = substr($text, $-[0], $+[0] - $-[0]);
5620	16					69	substr($text,0,length($current_match),q{});
5621	16	50				55	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5622							. $current_match . q{])},
5623							Parse::RecDescent::_tracefirst($text))
5624							if defined $::RD_TRACE;
5625	16					56	push @item, $item{__PATTERN2__}=$current_match;
5626
5627
5628	16	50				55	Parse::RecDescent::_trace(q{Trying terminal: ['\\n']},
5629							Parse::RecDescent::_tracefirst($text),
5630							q{Numbered_Line},
5631							$tracelevel)
5632							if defined $::RD_TRACE;
5633	16					27	undef $lastsep;
5634	16					62	$expectation->is(q{'\\n'})->at($text);
5635
5636
5637	16	50	33			242	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and do { $_tok = "\n"; 1 } and
	16	50	33			176
	16		33			33
	16					157
5638							substr($text,0,length($_tok)) eq $_tok and
5639	16					32	do { substr($text,0,length($_tok)) = ""; 1; }
	16					54
5640							)
5641							{
5642	0	0				0	$text = $lastsep . $text if defined $lastsep;
5643
5644	0					0	$expectation->failed();
5645	0	0				0	Parse::RecDescent::_trace(q{<>},
5646							Parse::RecDescent::_tracefirst($text))
5647							if defined $::RD_TRACE;
5648	0					0	last;
5649							}
5650	16	50				58	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5651							. $_tok . q{])},
5652							Parse::RecDescent::_tracefirst($text))
5653							if defined $::RD_TRACE;
5654	16					49	push @item, $item{__STRING1__}=$_tok;
5655
5656
5657	16	50				44	Parse::RecDescent::_trace(q{Trying action},
5658							Parse::RecDescent::_tracefirst($text),
5659							q{Numbered_Line},
5660							$tracelevel)
5661							if defined $::RD_TRACE;
5662
5663
5664	16	50				47	$_tok = ($_noactions) ? 0 : do { $return = $item[2] };
	16					36
5665	16	50				54	unless (defined $_tok)
5666							{
5667	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
5668							if defined $::RD_TRACE;
5669	0					0	last;
5670							}
5671	16	50				64	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
5672							. $_tok . q{])},
5673							Parse::RecDescent::_tracefirst($text))
5674							if defined $::RD_TRACE;
5675	16					31	push @item, $_tok;
5676	16					39	$item{__ACTION1__}=$_tok;
5677
5678
5679	16	50				86	Parse::RecDescent::_trace(q{>>Matched production: [/^0[\\t\\ ]+/ /[^\\n]*/ '\\n']<<},
5680							Parse::RecDescent::_tracefirst($text),
5681							q{Numbered_Line},
5682							$tracelevel)
5683							if defined $::RD_TRACE;
5684
5685
5686
5687	16					33	$_matched = 1;
5688	16					43	last;
5689							}
5690
5691
5692	374	100	66			1847	unless ( $_matched \|\| defined($score) )
5693							{
5694
5695
5696	358					643	$_[1] = $text; # NOT SURE THIS IS NEEDED
5697	358	50				799	Parse::RecDescent::_trace(q{<>},
5698							Parse::RecDescent::_tracefirst($_[1]),
5699							q{Numbered_Line},
5700							$tracelevel)
5701							if defined $::RD_TRACE;
5702	358					2761	return undef;
5703							}
5704	16	50	33			91	if (!defined($return) && defined($score))
5705							{
5706	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
5707							q{Numbered_Line},
5708							$tracelevel)
5709							if defined $::RD_TRACE;
5710	0					0	$return = $score_return;
5711							}
5712	16					36	splice @{$thisparser->{errors}}, $err_at;
	16					47
5713	16	50				52	$return = $item[$#item] unless defined $return;
5714	16	50				68	if (defined $::RD_TRACE)
5715							{
5716	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
5717							$return . q{])}, "",
5718							q{Numbered_Line},
5719							$tracelevel);
5720	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
5721							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
5722							Parse::RecDescent::_tracefirst($text),
5723							, q{Numbered_Line},
5724							$tracelevel)
5725							}
5726	16					32	$_[1] = $text;
5727	16					162	return $return;
5728							}
5729
5730							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
5731							sub Parse::RecDescent::Pod::WikiDoc::Parser::LinkTarget
5732							{
5733	10			10		22	my $thisparser = $_[0];
5734	24			24		245	use vars q{$tracelevel};
	24					72
	24					31029
5735	10		50			43	local $tracelevel = ($tracelevel\|\|0)+1;
5736	10					16	$ERRORS = 0;
5737	10					36	my $thisrule = $thisparser->{"rules"}{"LinkTarget"};
5738
5739	10	50				36	Parse::RecDescent::_trace(q{Trying rule: [LinkTarget]},
5740							Parse::RecDescent::_tracefirst($_[1]),
5741							q{LinkTarget},
5742							$tracelevel)
5743							if defined $::RD_TRACE;
5744
5745
5746	10					19	my $err_at = @{$thisparser->{errors}};
	10					32
5747
5748	10					19	my $score;
5749							my $score_return;
5750	0					0	my $_tok;
5751	10					18	my $return = undef;
5752	10					15	my $_matched=0;
5753	10					17	my $commit=0;
5754	10					18	my @item = ();
5755	10					19	my %item = ();
5756	10					15	my $repeating = $_[2];
5757	10					17	my $_noactions = $_[3];
5758	10	50				30	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	10					14
	10					34
5759	10					19	my $_itempos = $_[5];
5760	10	50				38	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
5761	10					16	my $text;
5762							my $lastsep;
5763	0					0	my $current_match;
5764	10					43	my $expectation = new Parse::RecDescent::Expectation(q{/.+/});
5765	10					141	$expectation->at($_[1]);
5766
5767	10					43	my $thisline;
5768	10					55	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
5769
5770
5771
5772	10		33			117	while (!$_matched && !$commit)
5773							{
5774
5775	10	50				30	Parse::RecDescent::_trace(q{Trying production: [/.+/]},
5776							Parse::RecDescent::_tracefirst($_[1]),
5777							q{LinkTarget},
5778							$tracelevel)
5779							if defined $::RD_TRACE;
5780	10					31	my $thisprod = $thisrule->{"prods"}[0];
5781	10					19	$text = $_[1];
5782	10					23	my $_savetext;
5783	10					22	@item = (q{LinkTarget});
5784	10					27	%item = (__RULE__ => q{LinkTarget});
5785	10					17	my $repcount = 0;
5786
5787
5788	10	50				21	Parse::RecDescent::_trace(q{Trying terminal: [/.+/]}, Parse::RecDescent::_tracefirst($text),
5789							q{LinkTarget},
5790							$tracelevel)
5791							if defined $::RD_TRACE;
5792	10					20	undef $lastsep;
5793	10					35	$expectation->is(q{})->at($text);
5794
5795
5796	10	50	33			128	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:.+)/)
	10	50				119
5797							{
5798	0	0				0	$text = $lastsep . $text if defined $lastsep;
5799	0					0	$expectation->failed();
5800	0	0				0	Parse::RecDescent::_trace(q{<>},
5801							Parse::RecDescent::_tracefirst($text))
5802							if defined $::RD_TRACE;
5803
5804	0					0	last;
5805							}
5806	10					78	$current_match = substr($text, $-[0], $+[0] - $-[0]);
5807	10					37	substr($text,0,length($current_match),q{});
5808	10	50				30	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5809							. $current_match . q{])},
5810							Parse::RecDescent::_tracefirst($text))
5811							if defined $::RD_TRACE;
5812	10					31	push @item, $item{__PATTERN1__}=$current_match;
5813
5814
5815	10	50				27	Parse::RecDescent::_trace(q{Trying action},
5816							Parse::RecDescent::_tracefirst($text),
5817							q{LinkTarget},
5818							$tracelevel)
5819							if defined $::RD_TRACE;
5820
5821
5822	10	50				28	$_tok = ($_noactions) ? 0 : do {
5823	10					39	$return = {
5824							type => $item[0],
5825							content => $item[1],
5826							}
5827							};
5828	10	50				159	unless (defined $_tok)
5829							{
5830	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
5831							if defined $::RD_TRACE;
5832	0					0	last;
5833							}
5834	10	50				28	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
5835							. $_tok . q{])},
5836							Parse::RecDescent::_tracefirst($text))
5837							if defined $::RD_TRACE;
5838	10					17	push @item, $_tok;
5839	10					21	$item{__ACTION1__}=$_tok;
5840
5841
5842	10	50				43	Parse::RecDescent::_trace(q{>>Matched production: [/.+/]<<},
5843							Parse::RecDescent::_tracefirst($text),
5844							q{LinkTarget},
5845							$tracelevel)
5846							if defined $::RD_TRACE;
5847
5848
5849
5850	10					15	$_matched = 1;
5851	10					25	last;
5852							}
5853
5854
5855	10	50	33			37	unless ( $_matched \|\| defined($score) )
5856							{
5857
5858
5859	0					0	$_[1] = $text; # NOT SURE THIS IS NEEDED
5860	0	0				0	Parse::RecDescent::_trace(q{<>},
5861							Parse::RecDescent::_tracefirst($_[1]),
5862							q{LinkTarget},
5863							$tracelevel)
5864							if defined $::RD_TRACE;
5865	0					0	return undef;
5866							}
5867	10	50	33			60	if (!defined($return) && defined($score))
5868							{
5869	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
5870							q{LinkTarget},
5871							$tracelevel)
5872							if defined $::RD_TRACE;
5873	0					0	$return = $score_return;
5874							}
5875	10					19	splice @{$thisparser->{errors}}, $err_at;
	10					33
5876	10	50				29	$return = $item[$#item] unless defined $return;
5877	10	50				29	if (defined $::RD_TRACE)
5878							{
5879	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
5880							$return . q{])}, "",
5881							q{LinkTarget},
5882							$tracelevel);
5883	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
5884							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
5885							Parse::RecDescent::_tracefirst($text),
5886							, q{LinkTarget},
5887							$tracelevel)
5888							}
5889	10					23	$_[1] = $text;
5890	10					156	return $return;
5891							}
5892
5893							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
5894							sub Parse::RecDescent::Pod::WikiDoc::Parser::Bullet_Line
5895							{
5896	388			388		710	my $thisparser = $_[0];
5897	24			24		185	use vars q{$tracelevel};
	24					56
	24					70953
5898	388		50			1324	local $tracelevel = ($tracelevel\|\|0)+1;
5899	388					655	$ERRORS = 0;
5900	388					1035	my $thisrule = $thisparser->{"rules"}{"Bullet_Line"};
5901
5902	388	50				1061	Parse::RecDescent::_trace(q{Trying rule: [Bullet_Line]},
5903							Parse::RecDescent::_tracefirst($_[1]),
5904							q{Bullet_Line},
5905							$tracelevel)
5906							if defined $::RD_TRACE;
5907
5908
5909	388					1570	my $err_at = @{$thisparser->{errors}};
	388					815
5910
5911	388					595	my $score;
5912							my $score_return;
5913	0					0	my $_tok;
5914	388					691	my $return = undef;
5915	388					575	my $_matched=0;
5916	388					521	my $commit=0;
5917	388					676	my @item = ();
5918	388					690	my %item = ();
5919	388					518	my $repeating = $_[2];
5920	388					559	my $_noactions = $_[3];
5921	388	50				1043	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	388					549
	388					843
5922	388					617	my $_itempos = $_[5];
5923	388	50				1100	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
5924	388					639	my $text;
5925							my $lastsep;
5926	0					0	my $current_match;
5927	388					1400	my $expectation = new Parse::RecDescent::Expectation(q{/^\\[\\t\\ ]\\n/, or /^\\*[\\t\\ ]+/});
5928	388					3381	$expectation->at($_[1]);
5929
5930	388					1953	my $thisline;
5931	388					1620	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
5932
5933
5934
5935	388		33			4188	while (!$_matched && !$commit)
5936							{
5937
5938	388	50				947	Parse::RecDescent::_trace(q{Trying production: [/^\\[\\t\\ ]\\n/]},
5939							Parse::RecDescent::_tracefirst($_[1]),
5940							q{Bullet_Line},
5941							$tracelevel)
5942							if defined $::RD_TRACE;
5943	388					1034	my $thisprod = $thisrule->{"prods"}[0];
5944	388					682	$text = $_[1];
5945	388					491	my $_savetext;
5946	388					876	@item = (q{Bullet_Line});
5947	388					932	%item = (__RULE__ => q{Bullet_Line});
5948	388					521	my $repcount = 0;
5949
5950
5951	388	50				880	Parse::RecDescent::_trace(q{Trying terminal: [/^\\[\\t\\ ]\\n/]}, Parse::RecDescent::_tracefirst($text),
5952							q{Bullet_Line},
5953							$tracelevel)
5954							if defined $::RD_TRACE;
5955	388					639	undef $lastsep;
5956	388					1272	$expectation->is(q{})->at($text);
5957
5958
5959	388	50	33			5350	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:^\[\t\ ]\n)/)
	388	50				4069
5960							{
5961	388	50				1220	$text = $lastsep . $text if defined $lastsep;
5962	388					1296	$expectation->failed();
5963	388	50				1901	Parse::RecDescent::_trace(q{<>},
5964							Parse::RecDescent::_tracefirst($text))
5965							if defined $::RD_TRACE;
5966
5967	388					900	last;
5968							}
5969	0					0	$current_match = substr($text, $-[0], $+[0] - $-[0]);
5970	0					0	substr($text,0,length($current_match),q{});
5971	0	0				0	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5972							. $current_match . q{])},
5973							Parse::RecDescent::_tracefirst($text))
5974							if defined $::RD_TRACE;
5975	0					0	push @item, $item{__PATTERN1__}=$current_match;
5976
5977
5978	0	0				0	Parse::RecDescent::_trace(q{Trying action},
5979							Parse::RecDescent::_tracefirst($text),
5980							q{Bullet_Line},
5981							$tracelevel)
5982							if defined $::RD_TRACE;
5983
5984
5985	0	0				0	$_tok = ($_noactions) ? 0 : do { $return = q{} };
	0					0
5986	0	0				0	unless (defined $_tok)
5987							{
5988	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
5989							if defined $::RD_TRACE;
5990	0					0	last;
5991							}
5992	0	0				0	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
5993							. $_tok . q{])},
5994							Parse::RecDescent::_tracefirst($text))
5995							if defined $::RD_TRACE;
5996	0					0	push @item, $_tok;
5997	0					0	$item{__ACTION1__}=$_tok;
5998
5999
6000	0	0				0	Parse::RecDescent::_trace(q{>>Matched production: [/^\\[\\t\\ ]\\n/]<<},
6001							Parse::RecDescent::_tracefirst($text),
6002							q{Bullet_Line},
6003							$tracelevel)
6004							if defined $::RD_TRACE;
6005
6006
6007
6008	0					0	$_matched = 1;
6009	0					0	last;
6010							}
6011
6012
6013	388		33			1836	while (!$_matched && !$commit)
6014							{
6015
6016	388	50				1057	Parse::RecDescent::_trace(q{Trying production: [/^\\[\\t\\ ]+/ /[^\\n]/ '\\n']},
6017							Parse::RecDescent::_tracefirst($_[1]),
6018							q{Bullet_Line},
6019							$tracelevel)
6020							if defined $::RD_TRACE;
6021	388					932	my $thisprod = $thisrule->{"prods"}[1];
6022	388					644	$text = $_[1];
6023	388					498	my $_savetext;
6024	388					903	@item = (q{Bullet_Line});
6025	388					1062	%item = (__RULE__ => q{Bullet_Line});
6026	388					588	my $repcount = 0;
6027
6028
6029	388	50				969	Parse::RecDescent::_trace(q{Trying terminal: [/^\\*[\\t\\ ]+/]}, Parse::RecDescent::_tracefirst($text),
6030							q{Bullet_Line},
6031							$tracelevel)
6032							if defined $::RD_TRACE;
6033	388					587	undef $lastsep;
6034	388					1279	$expectation->is(q{})->at($text);
6035
6036
6037	388	50	66			4142	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:^\*[\t\ ]+)/)
	388	100				3893
6038							{
6039	368	50				1191	$text = $lastsep . $text if defined $lastsep;
6040	368					1220	$expectation->failed();
6041	368	50				1742	Parse::RecDescent::_trace(q{<>},
6042							Parse::RecDescent::_tracefirst($text))
6043							if defined $::RD_TRACE;
6044
6045	368					785	last;
6046							}
6047	20					155	$current_match = substr($text, $-[0], $+[0] - $-[0]);
6048	20					87	substr($text,0,length($current_match),q{});
6049	20	50				90	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6050							. $current_match . q{])},
6051							Parse::RecDescent::_tracefirst($text))
6052							if defined $::RD_TRACE;
6053	20					71	push @item, $item{__PATTERN1__}=$current_match;
6054
6055
6056	20	50				65	Parse::RecDescent::_trace(q{Trying terminal: [/[^\\n]*/]}, Parse::RecDescent::_tracefirst($text),
6057							q{Bullet_Line},
6058							$tracelevel)
6059							if defined $::RD_TRACE;
6060	20					36	undef $lastsep;
6061	20					80	$expectation->is(q{/[^\\n]*/})->at($text);
6062
6063
6064	20	50	33			352	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:[^\n]*)/)
	20	50				273
6065							{
6066	0	0				0	$text = $lastsep . $text if defined $lastsep;
6067	0					0	$expectation->failed();
6068	0	0				0	Parse::RecDescent::_trace(q{<>},
6069							Parse::RecDescent::_tracefirst($text))
6070							if defined $::RD_TRACE;
6071
6072	0					0	last;
6073							}
6074	20					120	$current_match = substr($text, $-[0], $+[0] - $-[0]);
6075	20					86	substr($text,0,length($current_match),q{});
6076	20	50				74	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6077							. $current_match . q{])},
6078							Parse::RecDescent::_tracefirst($text))
6079							if defined $::RD_TRACE;
6080	20					72	push @item, $item{__PATTERN2__}=$current_match;
6081
6082
6083	20	50				74	Parse::RecDescent::_trace(q{Trying terminal: ['\\n']},
6084							Parse::RecDescent::_tracefirst($text),
6085							q{Bullet_Line},
6086							$tracelevel)
6087							if defined $::RD_TRACE;
6088	20					33	undef $lastsep;
6089	20					87	$expectation->is(q{'\\n'})->at($text);
6090
6091
6092	20	50	33			281	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and do { $_tok = "\n"; 1 } and
	20	50	33			190
	20		33			41
	20					172
6093							substr($text,0,length($_tok)) eq $_tok and
6094	20					43	do { substr($text,0,length($_tok)) = ""; 1; }
	20					72
6095							)
6096							{
6097	0	0				0	$text = $lastsep . $text if defined $lastsep;
6098
6099	0					0	$expectation->failed();
6100	0	0				0	Parse::RecDescent::_trace(q{<>},
6101							Parse::RecDescent::_tracefirst($text))
6102							if defined $::RD_TRACE;
6103	0					0	last;
6104							}
6105	20	50				87	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6106							. $_tok . q{])},
6107							Parse::RecDescent::_tracefirst($text))
6108							if defined $::RD_TRACE;
6109	20					62	push @item, $item{__STRING1__}=$_tok;
6110
6111
6112	20	50				73	Parse::RecDescent::_trace(q{Trying action},
6113							Parse::RecDescent::_tracefirst($text),
6114							q{Bullet_Line},
6115							$tracelevel)
6116							if defined $::RD_TRACE;
6117
6118
6119	20	50				68	$_tok = ($_noactions) ? 0 : do { $return = $item[2] };
	20					49
6120	20	50				79	unless (defined $_tok)
6121							{
6122	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
6123							if defined $::RD_TRACE;
6124	0					0	last;
6125							}
6126	20	50				82	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
6127							. $_tok . q{])},
6128							Parse::RecDescent::_tracefirst($text))
6129							if defined $::RD_TRACE;
6130	20					51	push @item, $_tok;
6131	20					100	$item{__ACTION1__}=$_tok;
6132
6133
6134	20	50				58	Parse::RecDescent::_trace(q{>>Matched production: [/^\\[\\t\\ ]+/ /[^\\n]/ '\\n']<<},
6135							Parse::RecDescent::_tracefirst($text),
6136							q{Bullet_Line},
6137							$tracelevel)
6138							if defined $::RD_TRACE;
6139
6140
6141
6142	20					41	$_matched = 1;
6143	20					57	last;
6144							}
6145
6146
6147	388	100	66			2104	unless ( $_matched \|\| defined($score) )
6148							{
6149
6150
6151	368					685	$_[1] = $text; # NOT SURE THIS IS NEEDED
6152	368	50				817	Parse::RecDescent::_trace(q{<>},
6153							Parse::RecDescent::_tracefirst($_[1]),
6154							q{Bullet_Line},
6155							$tracelevel)
6156							if defined $::RD_TRACE;
6157	368					2888	return undef;
6158							}
6159	20	50	33			81	if (!defined($return) && defined($score))
6160							{
6161	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
6162							q{Bullet_Line},
6163							$tracelevel)
6164							if defined $::RD_TRACE;
6165	0					0	$return = $score_return;
6166							}
6167	20					35	splice @{$thisparser->{errors}}, $err_at;
	20					73
6168	20	50				90	$return = $item[$#item] unless defined $return;
6169	20	50				73	if (defined $::RD_TRACE)
6170							{
6171	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
6172							$return . q{])}, "",
6173							q{Bullet_Line},
6174							$tracelevel);
6175	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
6176							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
6177							Parse::RecDescent::_tracefirst($text),
6178							, q{Bullet_Line},
6179							$tracelevel)
6180							}
6181	20					46	$_[1] = $text;
6182	20					209	return $return;
6183							}
6184
6185							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
6186							sub Parse::RecDescent::Pod::WikiDoc::Parser::Header
6187							{
6188	436			436		814	my $thisparser = $_[0];
6189	24			24		210	use vars q{$tracelevel};
	24					57
	24					59317
6190	436		50			1559	local $tracelevel = ($tracelevel\|\|0)+1;
6191	436					622	$ERRORS = 0;
6192	436					1067	my $thisrule = $thisparser->{"rules"}{"Header"};
6193
6194	436	50				1172	Parse::RecDescent::_trace(q{Trying rule: [Header]},
6195							Parse::RecDescent::_tracefirst($_[1]),
6196							q{Header},
6197							$tracelevel)
6198							if defined $::RD_TRACE;
6199
6200
6201	436					577	my $err_at = @{$thisparser->{errors}};
	436					913
6202
6203	436					764	my $score;
6204							my $score_return;
6205	0					0	my $_tok;
6206	436					592	my $return = undef;
6207	436					568	my $_matched=0;
6208	436					541	my $commit=0;
6209	436					770	my @item = ();
6210	436					744	my %item = ();
6211	436					675	my $repeating = $_[2];
6212	436					637	my $_noactions = $_[3];
6213	436	50				1235	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	436					630
	436					932
6214	436					674	my $_itempos = $_[5];
6215	436	50				1245	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
6216	436					745	my $text;
6217							my $lastsep;
6218	0					0	my $current_match;
6219	436					1603	my $expectation = new Parse::RecDescent::Expectation(q{/^=+/});
6220	436					12853	$expectation->at($_[1]);
6221
6222	436					2186	my $thisline;
6223	436					2269	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
6224
6225
6226
6227	436		33			5116	while (!$_matched && !$commit)
6228							{
6229
6230	436	50				1065	Parse::RecDescent::_trace(q{Trying production: [/^=+/ /[\\t\\ ]+/ /[^\\n]*/ '\\n']},
6231							Parse::RecDescent::_tracefirst($_[1]),
6232							q{Header},
6233							$tracelevel)
6234							if defined $::RD_TRACE;
6235	436					1081	my $thisprod = $thisrule->{"prods"}[0];
6236	436					908	$text = $_[1];
6237	436					533	my $_savetext;
6238	436					902	@item = (q{Header});
6239	436					1831	%item = (__RULE__ => q{Header});
6240	436					683	my $repcount = 0;
6241
6242
6243	436	50				1080	Parse::RecDescent::_trace(q{Trying terminal: [/^=+/]}, Parse::RecDescent::_tracefirst($text),
6244							q{Header},
6245							$tracelevel)
6246							if defined $::RD_TRACE;
6247	436					718	undef $lastsep;
6248	436					1321	$expectation->is(q{})->at($text);
6249
6250
6251	436	50	66			5171	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:^=+)/)
	436	100				5420
6252							{
6253	355	50				1214	$text = $lastsep . $text if defined $lastsep;
6254	355					1218	$expectation->failed();
6255	355	50				1873	Parse::RecDescent::_trace(q{<>},
6256							Parse::RecDescent::_tracefirst($text))
6257							if defined $::RD_TRACE;
6258
6259	355					983	last;
6260							}
6261	81					513	$current_match = substr($text, $-[0], $+[0] - $-[0]);
6262	81					293	substr($text,0,length($current_match),q{});
6263	81	50				254	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6264							. $current_match . q{])},
6265							Parse::RecDescent::_tracefirst($text))
6266							if defined $::RD_TRACE;
6267	81					256	push @item, $item{__PATTERN1__}=$current_match;
6268
6269
6270	81	50				206	Parse::RecDescent::_trace(q{Trying terminal: [/[\\t\\ ]+/]}, Parse::RecDescent::_tracefirst($text),
6271							q{Header},
6272							$tracelevel)
6273							if defined $::RD_TRACE;
6274	81					131	undef $lastsep;
6275	81					279	$expectation->is(q{/[\\t\\ ]+/})->at($text);
6276
6277
6278	81	50	66			1002	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:[\t\ ]+)/)
	81	100				991
6279							{
6280	13	50				59	$text = $lastsep . $text if defined $lastsep;
6281	13					62	$expectation->failed();
6282	13	50				148	Parse::RecDescent::_trace(q{<>},
6283							Parse::RecDescent::_tracefirst($text))
6284							if defined $::RD_TRACE;
6285
6286	13					33	last;
6287							}
6288	68					348	$current_match = substr($text, $-[0], $+[0] - $-[0]);
6289	68					237	substr($text,0,length($current_match),q{});
6290	68	50				258	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6291							. $current_match . q{])},
6292							Parse::RecDescent::_tracefirst($text))
6293							if defined $::RD_TRACE;
6294	68					233	push @item, $item{__PATTERN2__}=$current_match;
6295
6296
6297	68	50				194	Parse::RecDescent::_trace(q{Trying terminal: [/[^\\n]*/]}, Parse::RecDescent::_tracefirst($text),
6298							q{Header},
6299							$tracelevel)
6300							if defined $::RD_TRACE;
6301	68					107	undef $lastsep;
6302	68					248	$expectation->is(q{/[^\\n]*/})->at($text);
6303
6304
6305	68	50	33			823	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:[^\n]*)/)
	68	50				738
6306							{
6307	0	0				0	$text = $lastsep . $text if defined $lastsep;
6308	0					0	$expectation->failed();
6309	0	0				0	Parse::RecDescent::_trace(q{<>},
6310							Parse::RecDescent::_tracefirst($text))
6311							if defined $::RD_TRACE;
6312
6313	0					0	last;
6314							}
6315	68					409	$current_match = substr($text, $-[0], $+[0] - $-[0]);
6316	68					210	substr($text,0,length($current_match),q{});
6317	68	50				231	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6318							. $current_match . q{])},
6319							Parse::RecDescent::_tracefirst($text))
6320							if defined $::RD_TRACE;
6321	68					227	push @item, $item{__PATTERN3__}=$current_match;
6322
6323
6324	68	50				209	Parse::RecDescent::_trace(q{Trying terminal: ['\\n']},
6325							Parse::RecDescent::_tracefirst($text),
6326							q{Header},
6327							$tracelevel)
6328							if defined $::RD_TRACE;
6329	68					101	undef $lastsep;
6330	68					255	$expectation->is(q{'\\n'})->at($text);
6331
6332
6333	68	50	33			719	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and do { $_tok = "\n"; 1 } and
	68	50	33			490
	68		33			109
	68					543
6334							substr($text,0,length($_tok)) eq $_tok and
6335	68					159	do { substr($text,0,length($_tok)) = ""; 1; }
	68					198
6336							)
6337							{
6338	0	0				0	$text = $lastsep . $text if defined $lastsep;
6339
6340	0					0	$expectation->failed();
6341	0	0				0	Parse::RecDescent::_trace(q{<>},
6342							Parse::RecDescent::_tracefirst($text))
6343							if defined $::RD_TRACE;
6344	0					0	last;
6345							}
6346	68	50				309	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6347							. $_tok . q{])},
6348							Parse::RecDescent::_tracefirst($text))
6349							if defined $::RD_TRACE;
6350	68					207	push @item, $item{__STRING1__}=$_tok;
6351
6352
6353	68	50				210	Parse::RecDescent::_trace(q{Trying action},
6354							Parse::RecDescent::_tracefirst($text),
6355							q{Header},
6356							$tracelevel)
6357							if defined $::RD_TRACE;
6358
6359
6360	68	50				174	$_tok = ($_noactions) ? 0 : do {
6361	68					674	$return = {
6362							type => $item[0],
6363							level => length($item[1]),
6364							content => $thisparser->Inline( $item[3] ),
6365							}
6366							};
6367	68	50				1475	unless (defined $_tok)
6368							{
6369	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
6370							if defined $::RD_TRACE;
6371	0					0	last;
6372							}
6373	68	50				192	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
6374							. $_tok . q{])},
6375							Parse::RecDescent::_tracefirst($text))
6376							if defined $::RD_TRACE;
6377	68					139	push @item, $_tok;
6378	68					167	$item{__ACTION1__}=$_tok;
6379
6380
6381	68	50				204	Parse::RecDescent::_trace(q{>>Matched production: [/^=+/ /[\\t\\ ]+/ /[^\\n]*/ '\\n']<<},
6382							Parse::RecDescent::_tracefirst($text),
6383							q{Header},
6384							$tracelevel)
6385							if defined $::RD_TRACE;
6386
6387
6388
6389	68					105	$_matched = 1;
6390	68					241	last;
6391							}
6392
6393
6394	436	100	66			2457	unless ( $_matched \|\| defined($score) )
6395							{
6396
6397
6398	368					644	$_[1] = $text; # NOT SURE THIS IS NEEDED
6399	368	50				822	Parse::RecDescent::_trace(q{<>},
6400							Parse::RecDescent::_tracefirst($_[1]),
6401							q{Header},
6402							$tracelevel)
6403							if defined $::RD_TRACE;
6404	368					3290	return undef;
6405							}
6406	68	50	33			324	if (!defined($return) && defined($score))
6407							{
6408	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
6409							q{Header},
6410							$tracelevel)
6411							if defined $::RD_TRACE;
6412	0					0	$return = $score_return;
6413							}
6414	68					103	splice @{$thisparser->{errors}}, $err_at;
	68					348
6415	68	50				273	$return = $item[$#item] unless defined $return;
6416	68	50				219	if (defined $::RD_TRACE)
6417							{
6418	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
6419							$return . q{])}, "",
6420							q{Header},
6421							$tracelevel);
6422	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
6423							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
6424							Parse::RecDescent::_tracefirst($text),
6425							, q{Header},
6426							$tracelevel)
6427							}
6428	68					171	$_[1] = $text;
6429	68					950	return $return;
6430							}
6431
6432							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
6433							sub Parse::RecDescent::Pod::WikiDoc::Parser::Empty_Line
6434							{
6435	275			275		878	my $thisparser = $_[0];
6436	24			24		214	use vars q{$tracelevel};
	24					87
	24					37135
6437	275		50			1040	local $tracelevel = ($tracelevel\|\|0)+1;
6438	275					397	$ERRORS = 0;
6439	275					707	my $thisrule = $thisparser->{"rules"}{"Empty_Line"};
6440
6441	275	50				794	Parse::RecDescent::_trace(q{Trying rule: [Empty_Line]},
6442							Parse::RecDescent::_tracefirst($_[1]),
6443							q{Empty_Line},
6444							$tracelevel)
6445							if defined $::RD_TRACE;
6446
6447
6448	275					407	my $err_at = @{$thisparser->{errors}};
	275					599
6449
6450	275					417	my $score;
6451							my $score_return;
6452	0					0	my $_tok;
6453	275					372	my $return = undef;
6454	275					358	my $_matched=0;
6455	275					350	my $commit=0;
6456	275					485	my @item = ();
6457	275					523	my %item = ();
6458	275					439	my $repeating = $_[2];
6459	275					379	my $_noactions = $_[3];
6460	275	50				712	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	275					412
	275					591
6461	275					468	my $_itempos = $_[5];
6462	275	50				828	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
6463	275					500	my $text;
6464							my $lastsep;
6465	0					0	my $current_match;
6466	275					975	my $expectation = new Parse::RecDescent::Expectation(q{/^[\\t\\ ]*/});
6467	275					2309	$expectation->at($_[1]);
6468
6469	275					1137	my $thisline;
6470	275					1264	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
6471
6472
6473
6474	275		33			2760	while (!$_matched && !$commit)
6475							{
6476
6477	275	50				644	Parse::RecDescent::_trace(q{Trying production: [/^[\\t\\ ]*/ '\\n']},
6478							Parse::RecDescent::_tracefirst($_[1]),
6479							q{Empty_Line},
6480							$tracelevel)
6481							if defined $::RD_TRACE;
6482	275					801	my $thisprod = $thisrule->{"prods"}[0];
6483	275					441	$text = $_[1];
6484	275					362	my $_savetext;
6485	275					557	@item = (q{Empty_Line});
6486	275					648	%item = (__RULE__ => q{Empty_Line});
6487	275					382	my $repcount = 0;
6488
6489
6490	275	50				733	Parse::RecDescent::_trace(q{Trying terminal: [/^[\\t\\ ]*/]}, Parse::RecDescent::_tracefirst($text),
6491							q{Empty_Line},
6492							$tracelevel)
6493							if defined $::RD_TRACE;
6494	275					398	undef $lastsep;
6495	275					887	$expectation->is(q{})->at($text);
6496
6497
6498	275	50	33			3393	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:^[\t\ ]*)/)
	275	50				2918
6499							{
6500	0	0				0	$text = $lastsep . $text if defined $lastsep;
6501	0					0	$expectation->failed();
6502	0	0				0	Parse::RecDescent::_trace(q{<>},
6503							Parse::RecDescent::_tracefirst($text))
6504							if defined $::RD_TRACE;
6505
6506	0					0	last;
6507							}
6508	275					3175	$current_match = substr($text, $-[0], $+[0] - $-[0]);
6509	275					952	substr($text,0,length($current_match),q{});
6510	275	50				1117	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6511							. $current_match . q{])},
6512							Parse::RecDescent::_tracefirst($text))
6513							if defined $::RD_TRACE;
6514	275					827	push @item, $item{__PATTERN1__}=$current_match;
6515
6516
6517	275	50				678	Parse::RecDescent::_trace(q{Trying terminal: ['\\n']},
6518							Parse::RecDescent::_tracefirst($text),
6519							q{Empty_Line},
6520							$tracelevel)
6521							if defined $::RD_TRACE;
6522	275					418	undef $lastsep;
6523	275					1102	$expectation->is(q{'\\n'})->at($text);
6524
6525
6526	275	50	33			3008	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and do { $_tok = "\n"; 1 } and
	275	100	66			2031
	275		66			407
	275					1880
6527							substr($text,0,length($_tok)) eq $_tok and
6528	134					267	do { substr($text,0,length($_tok)) = ""; 1; }
	134					357
6529							)
6530							{
6531	141	50				499	$text = $lastsep . $text if defined $lastsep;
6532
6533	141					602	$expectation->failed();
6534	141	50				1746	Parse::RecDescent::_trace(q{<>},
6535							Parse::RecDescent::_tracefirst($text))
6536							if defined $::RD_TRACE;
6537	141					436	last;
6538							}
6539	134	50				393	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6540							. $_tok . q{])},
6541							Parse::RecDescent::_tracefirst($text))
6542							if defined $::RD_TRACE;
6543	134					393	push @item, $item{__STRING1__}=$_tok;
6544
6545
6546	134	50				321	Parse::RecDescent::_trace(q{Trying action},
6547							Parse::RecDescent::_tracefirst($text),
6548							q{Empty_Line},
6549							$tracelevel)
6550							if defined $::RD_TRACE;
6551
6552
6553	134	50				292	$_tok = ($_noactions) ? 0 : do {
6554	134					612	$return = {
6555							type => $item[0],
6556							content => $item[1],
6557							}
6558							};
6559	134	50				398	unless (defined $_tok)
6560							{
6561	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
6562							if defined $::RD_TRACE;
6563	0					0	last;
6564							}
6565	134	50				391	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
6566							. $_tok . q{])},
6567							Parse::RecDescent::_tracefirst($text))
6568							if defined $::RD_TRACE;
6569	134					213	push @item, $_tok;
6570	134					302	$item{__ACTION1__}=$_tok;
6571
6572
6573	134	50				349	Parse::RecDescent::_trace(q{>>Matched production: [/^[\\t\\ ]*/ '\\n']<<},
6574							Parse::RecDescent::_tracefirst($text),
6575							q{Empty_Line},
6576							$tracelevel)
6577							if defined $::RD_TRACE;
6578
6579
6580
6581	134					196	$_matched = 1;
6582	134					288	last;
6583							}
6584
6585
6586	275	100	66			1189	unless ( $_matched \|\| defined($score) )
6587							{
6588
6589
6590	141					262	$_[1] = $text; # NOT SURE THIS IS NEEDED
6591	141	50				324	Parse::RecDescent::_trace(q{<>},
6592							Parse::RecDescent::_tracefirst($_[1]),
6593							q{Empty_Line},
6594							$tracelevel)
6595							if defined $::RD_TRACE;
6596	141					15567	return undef;
6597							}
6598	134	50	33			1718	if (!defined($return) && defined($score))
6599							{
6600	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
6601							q{Empty_Line},
6602							$tracelevel)
6603							if defined $::RD_TRACE;
6604	0					0	$return = $score_return;
6605							}
6606	134					214	splice @{$thisparser->{errors}}, $err_at;
	134					345
6607	134	50				497	$return = $item[$#item] unless defined $return;
6608	134	50				340	if (defined $::RD_TRACE)
6609							{
6610	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
6611							$return . q{])}, "",
6612							q{Empty_Line},
6613							$tracelevel);
6614	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
6615							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
6616							Parse::RecDescent::_tracefirst($text),
6617							, q{Empty_Line},
6618							$tracelevel)
6619							}
6620	134					248	$_[1] = $text;
6621	134					1325	return $return;
6622							}
6623
6624							# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
6625							sub Parse::RecDescent::Pod::WikiDoc::Parser::Indented_Line
6626							{
6627	363			363		20945	my $thisparser = $_[0];
6628	24			24		192	use vars q{$tracelevel};
	24					56
	24					270199
6629	363		50			1240	local $tracelevel = ($tracelevel\|\|0)+1;
6630	363					504	$ERRORS = 0;
6631	363					893	my $thisrule = $thisparser->{"rules"}{"Indented_Line"};
6632
6633	363	50				1585	Parse::RecDescent::_trace(q{Trying rule: [Indented_Line]},
6634							Parse::RecDescent::_tracefirst($_[1]),
6635							q{Indented_Line},
6636							$tracelevel)
6637							if defined $::RD_TRACE;
6638
6639
6640	363					444	my $err_at = @{$thisparser->{errors}};
	363					752
6641
6642	363					546	my $score;
6643							my $score_return;
6644	0					0	my $_tok;
6645	363					498	my $return = undef;
6646	363					545	my $_matched=0;
6647	363					2133	my $commit=0;
6648	363					731	my @item = ();
6649	363					639	my %item = ();
6650	363					496	my $repeating = $_[2];
6651	363					516	my $_noactions = $_[3];
6652	363	50				896	my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
	363					458
	363					729
6653	363					633	my $_itempos = $_[5];
6654	363	50				1153	my %arg = ($#arg & 01) ? @arg : (@arg, undef);
6655	363					543	my $text;
6656							my $lastsep;
6657	0					0	my $current_match;
6658	363					1340	my $expectation = new Parse::RecDescent::Expectation(q{/^[\\t\\ ]+/});
6659	363					3026	$expectation->at($_[1]);
6660
6661	363					1484	my $thisline;
6662	363					1590	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
6663
6664
6665
6666	363		33			3905	while (!$_matched && !$commit)
6667							{
6668
6669	363	50				854	Parse::RecDescent::_trace(q{Trying production: [/^[\\t\\ ]+/ /[^\\t\\n\\ ]+/ /[^\\n]*/ '\\n']},
6670							Parse::RecDescent::_tracefirst($_[1]),
6671							q{Indented_Line},
6672							$tracelevel)
6673							if defined $::RD_TRACE;
6674	363					870	my $thisprod = $thisrule->{"prods"}[0];
6675	363					590	$text = $_[1];
6676	363					488	my $_savetext;
6677	363					1080	@item = (q{Indented_Line});
6678	363					941	%item = (__RULE__ => q{Indented_Line});
6679	363					527	my $repcount = 0;
6680
6681
6682	363	50				789	Parse::RecDescent::_trace(q{Trying terminal: [/^[\\t\\ ]+/]}, Parse::RecDescent::_tracefirst($text),
6683							q{Indented_Line},
6684							$tracelevel)
6685							if defined $::RD_TRACE;
6686	363					534	undef $lastsep;
6687	363					1778	$expectation->is(q{})->at($text);
6688
6689
6690	363	50	66			5756	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:^[\t\ ]+)/)
	363	100				4030
6691							{
6692	351	50				1078	$text = $lastsep . $text if defined $lastsep;
6693	351					1189	$expectation->failed();
6694	351	50				1929	Parse::RecDescent::_trace(q{<>},
6695							Parse::RecDescent::_tracefirst($text))
6696							if defined $::RD_TRACE;
6697
6698	351					903	last;
6699							}
6700	12					72	$current_match = substr($text, $-[0], $+[0] - $-[0]);
6701	12					39	substr($text,0,length($current_match),q{});
6702	12	50				45	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6703							. $current_match . q{])},
6704							Parse::RecDescent::_tracefirst($text))
6705							if defined $::RD_TRACE;
6706	12					33	push @item, $item{__PATTERN1__}=$current_match;
6707
6708
6709	12	50				31	Parse::RecDescent::_trace(q{Trying terminal: [/[^\\t\\n\\ ]+/]}, Parse::RecDescent::_tracefirst($text),
6710							q{Indented_Line},
6711							$tracelevel)
6712							if defined $::RD_TRACE;
6713	12					18	undef $lastsep;
6714	12					41	$expectation->is(q{/[^\\t\\n\\ ]+/})->at($text);
6715
6716
6717	12	50	66			141	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:[^\t\n\ ]+)/)
	12	100				118
6718							{
6719	1	50				5	$text = $lastsep . $text if defined $lastsep;
6720	1					4	$expectation->failed();
6721	1	50				15	Parse::RecDescent::_trace(q{<>},
6722							Parse::RecDescent::_tracefirst($text))
6723							if defined $::RD_TRACE;
6724
6725	1					3	last;
6726							}
6727	11					62	$current_match = substr($text, $-[0], $+[0] - $-[0]);
6728	11					34	substr($text,0,length($current_match),q{});
6729	11	50				25	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6730							. $current_match . q{])},
6731							Parse::RecDescent::_tracefirst($text))
6732							if defined $::RD_TRACE;
6733	11					28	push @item, $item{__PATTERN2__}=$current_match;
6734
6735
6736	11	50				25	Parse::RecDescent::_trace(q{Trying terminal: [/[^\\n]*/]}, Parse::RecDescent::_tracefirst($text),
6737							q{Indented_Line},
6738							$tracelevel)
6739							if defined $::RD_TRACE;
6740	11					14	undef $lastsep;
6741	11					44	$expectation->is(q{/[^\\n]*/})->at($text);
6742
6743
6744	11	50	33			124	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ m/\A(?:[^\n]*)/)
	11	50				115
6745							{
6746	0	0				0	$text = $lastsep . $text if defined $lastsep;
6747	0					0	$expectation->failed();
6748	0	0				0	Parse::RecDescent::_trace(q{<>},
6749							Parse::RecDescent::_tracefirst($text))
6750							if defined $::RD_TRACE;
6751
6752	0					0	last;
6753							}
6754	11					197	$current_match = substr($text, $-[0], $+[0] - $-[0]);
6755	11					33	substr($text,0,length($current_match),q{});
6756	11	50				84	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6757							. $current_match . q{])},
6758							Parse::RecDescent::_tracefirst($text))
6759							if defined $::RD_TRACE;
6760	11					42	push @item, $item{__PATTERN3__}=$current_match;
6761
6762
6763	11	50				23	Parse::RecDescent::_trace(q{Trying terminal: ['\\n']},
6764							Parse::RecDescent::_tracefirst($text),
6765							q{Indented_Line},
6766							$tracelevel)
6767							if defined $::RD_TRACE;
6768	11					15	undef $lastsep;
6769	11					43	$expectation->is(q{'\\n'})->at($text);
6770
6771
6772	11	50	33			123	unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and do { $_tok = "\n"; 1 } and
	11	50	33			77
	11		33			16
	11					85
6773							substr($text,0,length($_tok)) eq $_tok and
6774	11					18	do { substr($text,0,length($_tok)) = ""; 1; }
	11					28
6775							)
6776							{
6777	0	0				0	$text = $lastsep . $text if defined $lastsep;
6778
6779	0					0	$expectation->failed();
6780	0	0				0	Parse::RecDescent::_trace(q{<>},
6781							Parse::RecDescent::_tracefirst($text))
6782							if defined $::RD_TRACE;
6783	0					0	last;
6784							}
6785	11	50				27	Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6786							. $_tok . q{])},
6787							Parse::RecDescent::_tracefirst($text))
6788							if defined $::RD_TRACE;
6789	11					24	push @item, $item{__STRING1__}=$_tok;
6790
6791
6792	11	50				37	Parse::RecDescent::_trace(q{Trying action},
6793							Parse::RecDescent::_tracefirst($text),
6794							q{Indented_Line},
6795							$tracelevel)
6796							if defined $::RD_TRACE;
6797
6798
6799	11	50				31	$_tok = ($_noactions) ? 0 : do {
6800	11					60	$return = {
6801							type => $item[0],
6802							content => $item[1] . $item[2] . $item[3],
6803							}
6804							};
6805	11	50				30	unless (defined $_tok)
6806							{
6807	0	0				0	Parse::RecDescent::_trace(q{<> (return value: [undef])})
6808							if defined $::RD_TRACE;
6809	0					0	last;
6810							}
6811	11	50				27	Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
6812							. $_tok . q{])},
6813							Parse::RecDescent::_tracefirst($text))
6814							if defined $::RD_TRACE;
6815	11					16	push @item, $_tok;
6816	11					22	$item{__ACTION1__}=$_tok;
6817
6818
6819	11	50				23	Parse::RecDescent::_trace(q{>>Matched production: [/^[\\t\\ ]+/ /[^\\t\\n\\ ]+/ /[^\\n]*/ '\\n']<<},
6820							Parse::RecDescent::_tracefirst($text),
6821							q{Indented_Line},
6822							$tracelevel)
6823							if defined $::RD_TRACE;
6824
6825
6826
6827	11					11	$_matched = 1;
6828	11					27	last;
6829							}
6830
6831
6832	363	100	66			1822	unless ( $_matched \|\| defined($score) )
6833							{
6834
6835
6836	352					604	$_[1] = $text; # NOT SURE THIS IS NEEDED
6837	352	50				790	Parse::RecDescent::_trace(q{<>},
6838							Parse::RecDescent::_tracefirst($_[1]),
6839							q{Indented_Line},
6840							$tracelevel)
6841							if defined $::RD_TRACE;
6842	352					2452	return undef;
6843							}
6844	11	50	33			38	if (!defined($return) && defined($score))
6845							{
6846	0	0				0	Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
6847							q{Indented_Line},
6848							$tracelevel)
6849							if defined $::RD_TRACE;
6850	0					0	$return = $score_return;
6851							}
6852	11					16	splice @{$thisparser->{errors}}, $err_at;
	11					30
6853	11	50				29	$return = $item[$#item] unless defined $return;
6854	11	50				22	if (defined $::RD_TRACE)
6855							{
6856	0					0	Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
6857							$return . q{])}, "",
6858							q{Indented_Line},
6859							$tracelevel);
6860	0					0	Parse::RecDescent::_trace(q{(consumed: [} .
6861							Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
6862							Parse::RecDescent::_tracefirst($text),
6863							, q{Indented_Line},
6864							$tracelevel)
6865							}
6866	11					22	$_[1] = $text;
6867	11					100	return $return;
6868							}
6869							}
6870	26			26	0	49817	package Pod::WikiDoc::Parser; sub new { my $self = bless( {
6871							'namespace' => 'Parse::RecDescent::Pod::WikiDoc::Parser',
6872							'_AUTOACTION' => undef,
6873							'rules' => {
6874							'RegularText' => bless( {
6875							'calls' => [],
6876							'changed' => 0,
6877							'line' => 224,
6878							'name' => 'RegularText',
6879							'prods' => [
6880							bless( {
6881							'actcount' => 1,
6882							'strcount' => 0,
6883							'number' => 0,
6884							'error' => undef,
6885							'dircount' => 0,
6886							'items' => [
6887							bless( {
6888							'pattern' => ' ^ \\S+ ',
6889							'lookahead' => 0,
6890							'ldelim' => '{',
6891							'rdelim' => '}',
6892							'line' => 225,
6893							'mod' => 'x',
6894							'description' => 'm\\{ ^ \\\\S+ \\}x',
6895							'hashname' => '__PATTERN1__'
6896							}, 'Parse::RecDescent::Token' ),
6897							bless( {
6898							'code' => '{
6899							$return = {
6900							type => $item[0],
6901							content => $item[1],
6902							}
6903							}',
6904							'lookahead' => 0,
6905							'line' => 226,
6906							'hashname' => '__ACTION1__'
6907							}, 'Parse::RecDescent::Action' )
6908							],
6909							'patcount' => 1,
6910							'uncommit' => undef,
6911							'line' => undef
6912							}, 'Parse::RecDescent::Production' )
6913							],
6914							'vars' => '',
6915							'opcount' => 0,
6916							'impcount' => 0
6917							}, 'Parse::RecDescent::Rule' ),
6918							'WikiDoc' => bless( {
6919							'calls' => [
6920							'Block'
6921							],
6922							'changed' => 0,
6923							'vars' => '',
6924							'impcount' => 0,
6925							'opcount' => 0,
6926							'line' => 3,
6927							'name' => 'WikiDoc',
6928							'prods' => [
6929							bless( {
6930							'uncommit' => undef,
6931							'patcount' => 0,
6932							'line' => undef,
6933							'items' => [
6934							bless( {
6935							'repspec' => 's?',
6936							'matchrule' => 0,
6937							'min' => 0,
6938							'lookahead' => 0,
6939							'expected' => undef,
6940							'argcode' => undef,
6941							'max' => 100000000,
6942							'line' => 4,
6943							'subrule' => 'Block'
6944							}, 'Parse::RecDescent::Repetition' ),
6945							bless( {
6946							'hashname' => '__ACTION1__',
6947							'lookahead' => 0,
6948							'line' => 5,
6949							'code' => '{ $return = [ grep { $_->{type} ne \'Empty_Line\' } @{ $item[1] } ] }'
6950							}, 'Parse::RecDescent::Action' )
6951							],
6952							'dircount' => 0,
6953							'number' => 0,
6954							'error' => undef,
6955							'actcount' => 1,
6956							'strcount' => 0
6957							}, 'Parse::RecDescent::Production' )
6958							]
6959							}, 'Parse::RecDescent::Rule' ),
6960							'Unordered_List' => bless( {
6961							'calls' => [
6962							'Bullet_Item',
6963							'Empty_Line'
6964							],
6965							'changed' => 0,
6966							'line' => 31,
6967							'name' => 'Unordered_List',
6968							'prods' => [
6969							bless( {
6970							'strcount' => 0,
6971							'actcount' => 1,
6972							'error' => undef,
6973							'number' => 0,
6974							'items' => [
6975							bless( {
6976							'subrule' => 'Bullet_Item',
6977							'line' => 32,
6978							'max' => 100000000,
6979							'argcode' => undef,
6980							'expected' => undef,
6981							'min' => 1,
6982							'lookahead' => 0,
6983							'repspec' => 's',
6984							'matchrule' => 0
6985							}, 'Parse::RecDescent::Repetition' ),
6986							bless( {
6987							'expected' => undef,
6988							'argcode' => undef,
6989							'repspec' => '?',
6990							'matchrule' => 0,
6991							'min' => 0,
6992							'lookahead' => 0,
6993							'subrule' => 'Empty_Line',
6994							'max' => 1,
6995							'line' => 32
6996							}, 'Parse::RecDescent::Repetition' ),
6997							bless( {
6998							'code' => '{
6999							$return = {
7000							type => $item[0],
7001							content => $item[1],
7002							}
7003							}',
7004							'line' => 33,
7005							'lookahead' => 0,
7006							'hashname' => '__ACTION1__'
7007							}, 'Parse::RecDescent::Action' )
7008							],
7009							'dircount' => 0,
7010							'line' => undef,
7011							'uncommit' => undef,
7012							'patcount' => 0
7013							}, 'Parse::RecDescent::Production' )
7014							],
7015							'vars' => '',
7016							'impcount' => 0,
7017							'opcount' => 0
7018							}, 'Parse::RecDescent::Rule' ),
7019							'Block' => bless( {
7020							'changed' => 0,
7021							'calls' => [
7022							'Header',
7023							'Unordered_List',
7024							'Ordered_List',
7025							'Preformat',
7026							'Paragraph',
7027							'Empty_Line'
7028							],
7029							'vars' => '',
7030							'opcount' => 0,
7031							'impcount' => 0,
7032							'name' => 'Block',
7033							'prods' => [
7034							bless( {
7035							'line' => undef,
7036							'uncommit' => undef,
7037							'patcount' => 0,
7038							'items' => [
7039							bless( {
7040							'line' => 8,
7041							'lookahead' => 0,
7042							'matchrule' => 0,
7043							'implicit' => undef,
7044							'argcode' => undef,
7045							'subrule' => 'Header'
7046							}, 'Parse::RecDescent::Subrule' ),
7047							bless( {
7048							'hashname' => '__ACTION1__',
7049							'code' => '{ $return = $item[1] }',
7050							'line' => 9,
7051							'lookahead' => 0
7052							}, 'Parse::RecDescent::Action' )
7053							],
7054							'dircount' => 0,
7055							'error' => undef,
7056							'number' => 0,
7057							'strcount' => 0,
7058							'actcount' => 1
7059							}, 'Parse::RecDescent::Production' ),
7060							bless( {
7061							'items' => [
7062							bless( {
7063							'line' => 10,
7064							'lookahead' => 0,
7065							'matchrule' => 0,
7066							'implicit' => undef,
7067							'argcode' => undef,
7068							'subrule' => 'Unordered_List'
7069							}, 'Parse::RecDescent::Subrule' ),
7070							bless( {
7071							'code' => '{ $return = $item[1] }',
7072							'line' => 11,
7073							'lookahead' => 0,
7074							'hashname' => '__ACTION1__'
7075							}, 'Parse::RecDescent::Action' )
7076							],
7077							'dircount' => 0,
7078							'line' => 10,
7079							'uncommit' => undef,
7080							'patcount' => 0,
7081							'strcount' => 0,
7082							'actcount' => 1,
7083							'error' => undef,
7084							'number' => 1
7085							}, 'Parse::RecDescent::Production' ),
7086							bless( {
7087							'actcount' => 1,
7088							'strcount' => 0,
7089							'number' => 2,
7090							'error' => undef,
7091							'items' => [
7092							bless( {
7093							'lookahead' => 0,
7094							'line' => 12,
7095							'matchrule' => 0,
7096							'implicit' => undef,
7097							'subrule' => 'Ordered_List',
7098							'argcode' => undef
7099							}, 'Parse::RecDescent::Subrule' ),
7100							bless( {
7101							'line' => 13,
7102							'lookahead' => 0,
7103							'code' => '{ $return = $item[1] }',
7104							'hashname' => '__ACTION1__'
7105							}, 'Parse::RecDescent::Action' )
7106							],
7107							'dircount' => 0,
7108							'uncommit' => undef,
7109							'patcount' => 0,
7110							'line' => 12
7111							}, 'Parse::RecDescent::Production' ),
7112							bless( {
7113							'strcount' => 0,
7114							'actcount' => 1,
7115							'error' => undef,
7116							'number' => 3,
7117							'dircount' => 0,
7118							'items' => [
7119							bless( {
7120							'argcode' => undef,
7121							'subrule' => 'Preformat',
7122							'implicit' => undef,
7123							'matchrule' => 0,
7124							'lookahead' => 0,
7125							'line' => 14
7126							}, 'Parse::RecDescent::Subrule' ),
7127							bless( {
7128							'hashname' => '__ACTION1__',
7129							'code' => '{ $return = $item[1] }',
7130							'line' => 15,
7131							'lookahead' => 0
7132							}, 'Parse::RecDescent::Action' )
7133							],
7134							'line' => 14,
7135							'patcount' => 0,
7136							'uncommit' => undef
7137							}, 'Parse::RecDescent::Production' ),
7138							bless( {
7139							'items' => [
7140							bless( {
7141							'lookahead' => 0,
7142							'line' => 16,
7143							'matchrule' => 0,
7144							'implicit' => undef,
7145							'argcode' => undef,
7146							'subrule' => 'Paragraph'
7147							}, 'Parse::RecDescent::Subrule' ),
7148							bless( {
7149							'hashname' => '__ACTION1__',
7150							'line' => 17,
7151							'lookahead' => 0,
7152							'code' => '{ $return = $item[1] }'
7153							}, 'Parse::RecDescent::Action' )
7154							],
7155							'dircount' => 0,
7156							'uncommit' => undef,
7157							'patcount' => 0,
7158							'line' => 16,
7159							'actcount' => 1,
7160							'strcount' => 0,
7161							'number' => 4,
7162							'error' => undef
7163							}, 'Parse::RecDescent::Production' ),
7164							bless( {
7165							'strcount' => 0,
7166							'actcount' => 1,
7167							'error' => undef,
7168							'number' => 5,
7169							'items' => [
7170							bless( {
7171							'argcode' => undef,
7172							'subrule' => 'Empty_Line',
7173							'implicit' => undef,
7174							'matchrule' => 0,
7175							'line' => 18,
7176							'lookahead' => 0
7177							}, 'Parse::RecDescent::Subrule' ),
7178							bless( {
7179							'code' => '{ $return = $item[1] }',
7180							'lookahead' => 0,
7181							'line' => 19,
7182							'hashname' => '__ACTION1__'
7183							}, 'Parse::RecDescent::Action' )
7184							],
7185							'dircount' => 0,
7186							'line' => 18,
7187							'uncommit' => undef,
7188							'patcount' => 0
7189							}, 'Parse::RecDescent::Production' )
7190							],
7191							'line' => 7
7192							}, 'Parse::RecDescent::Rule' ),
7193							'BoldText' => bless( {
7194							'opcount' => 0,
7195							'impcount' => 0,
7196							'vars' => '',
7197							'prods' => [
7198							bless( {
7199							'strcount' => 0,
7200							'actcount' => 2,
7201							'error' => undef,
7202							'number' => 0,
7203							'dircount' => 0,
7204							'items' => [
7205							bless( {
7206							'hashname' => '__ACTION1__',
7207							'code' => '{ extract_delimited( $text, \'*\' ) }',
7208							'lookahead' => 0,
7209							'line' => 166
7210							}, 'Parse::RecDescent::Action' ),
7211							bless( {
7212							'code' => '{
7213							$return = {
7214							type => $item[0],
7215							content => $thisparser->Inline(
7216							substr( substr( $item[1], 1), 0, -1 )
7217							),
7218							}
7219							}',
7220							'lookahead' => 0,
7221							'line' => 167,
7222							'hashname' => '__ACTION2__'
7223							}, 'Parse::RecDescent::Action' )
7224							],
7225							'line' => undef,
7226							'patcount' => 0,
7227							'uncommit' => undef
7228							}, 'Parse::RecDescent::Production' )
7229							],
7230							'name' => 'BoldText',
7231							'line' => 165,
7232							'changed' => 0,
7233							'calls' => []
7234							}, 'Parse::RecDescent::Rule' ),
7235							'Bullet_Item' => bless( {
7236							'calls' => [
7237							'Bullet_Line',
7238							'List_Continuation'
7239							],
7240							'changed' => 0,
7241							'opcount' => 0,
7242							'impcount' => 0,
7243							'vars' => '',
7244							'line' => 40,
7245							'prods' => [
7246							bless( {
7247							'number' => 0,
7248							'error' => undef,
7249							'actcount' => 1,
7250							'strcount' => 0,
7251							'uncommit' => undef,
7252							'patcount' => 0,
7253							'line' => undef,
7254							'items' => [
7255							bless( {
7256							'implicit' => undef,
7257							'subrule' => 'Bullet_Line',
7258							'argcode' => undef,
7259							'lookahead' => 0,
7260							'line' => 41,
7261							'matchrule' => 0
7262							}, 'Parse::RecDescent::Subrule' ),
7263							bless( {
7264							'line' => 41,
7265							'max' => 100000000,
7266							'subrule' => 'List_Continuation',
7267							'min' => 0,
7268							'lookahead' => 0,
7269							'repspec' => 's?',
7270							'matchrule' => 0,
7271							'expected' => undef,
7272							'argcode' => undef
7273							}, 'Parse::RecDescent::Repetition' ),
7274							bless( {
7275							'hashname' => '__ACTION1__',
7276							'code' => '{
7277							$return = {
7278							type => $item[0],
7279							content => $thisparser->Inline( join( "\\n", $item[1], @{$item[2]} ) ),
7280							}
7281							}',
7282							'lookahead' => 0,
7283							'line' => 42
7284							}, 'Parse::RecDescent::Action' )
7285							],
7286							'dircount' => 0
7287							}, 'Parse::RecDescent::Production' )
7288							],
7289							'name' => 'Bullet_Item'
7290							}, 'Parse::RecDescent::Rule' ),
7291							'LinkLabel' => bless( {
7292							'line' => 258,
7293							'prods' => [
7294							bless( {
7295							'number' => 0,
7296							'error' => undef,
7297							'actcount' => 1,
7298							'strcount' => 0,
7299							'patcount' => 1,
7300							'uncommit' => undef,
7301							'line' => undef,
7302							'dircount' => 0,
7303							'items' => [
7304							bless( {
7305							'pattern' => '^[^\|]*',
7306							'ldelim' => '/',
7307							'lookahead' => 0,
7308							'rdelim' => '/',
7309							'hashname' => '__PATTERN1__',
7310							'description' => '/^[^\|]*/',
7311							'mod' => '',
7312							'line' => 259
7313							}, 'Parse::RecDescent::Token' ),
7314							bless( {
7315							'hashname' => '__ACTION1__',
7316							'code' => '{
7317							$return = {
7318							type => $item[0],
7319							content => $thisparser->Inline( $item[1] ),
7320							}
7321							}',
7322							'line' => 260,
7323							'lookahead' => 0
7324							}, 'Parse::RecDescent::Action' )
7325							]
7326							}, 'Parse::RecDescent::Production' )
7327							],
7328							'name' => 'LinkLabel',
7329							'impcount' => 0,
7330							'opcount' => 0,
7331							'vars' => '',
7332							'calls' => [],
7333							'changed' => 0
7334							}, 'Parse::RecDescent::Rule' ),
7335							'EscapedChar' => bless( {
7336							'vars' => '',
7337							'impcount' => 0,
7338							'opcount' => 0,
7339							'line' => 204,
7340							'name' => 'EscapedChar',
7341							'prods' => [
7342							bless( {
7343							'error' => undef,
7344							'number' => 0,
7345							'strcount' => 1,
7346							'actcount' => 2,
7347							'line' => undef,
7348							'uncommit' => undef,
7349							'patcount' => 0,
7350							'items' => [
7351							bless( {
7352							'pattern' => 'E',
7353							'description' => '\'E\'',
7354							'hashname' => '__STRING1__',
7355							'line' => 205,
7356							'lookahead' => 0
7357							}, 'Parse::RecDescent::InterpLit' ),
7358							bless( {
7359							'hashname' => '__ACTION1__',
7360							'lookahead' => 0,
7361							'line' => 205,
7362							'code' => '{ extract_bracketed( $text, \'<\' ) }'
7363							}, 'Parse::RecDescent::Action' ),
7364							bless( {
7365							'line' => 206,
7366							'lookahead' => 0,
7367							'code' => '{
7368							$return = {
7369							type => $item[0],
7370							content => $item[1] . $item[2]
7371							}
7372							}',
7373							'hashname' => '__ACTION2__'
7374							}, 'Parse::RecDescent::Action' )
7375							],
7376							'dircount' => 0
7377							}, 'Parse::RecDescent::Production' )
7378							],
7379							'calls' => [],
7380							'changed' => 0
7381							}, 'Parse::RecDescent::Rule' ),
7382							'Paragraph' => bless( {
7383							'prods' => [
7384							bless( {
7385							'patcount' => 0,
7386							'uncommit' => undef,
7387							'line' => undef,
7388							'dircount' => 0,
7389							'items' => [
7390							bless( {
7391							'subrule' => 'Plain_Line',
7392							'line' => 121,
7393							'max' => 100000000,
7394							'argcode' => undef,
7395							'expected' => undef,
7396							'min' => 1,
7397							'lookahead' => 0,
7398							'repspec' => 's',
7399							'matchrule' => 0
7400							}, 'Parse::RecDescent::Repetition' ),
7401							bless( {
7402							'line' => 122,
7403							'lookahead' => 0,
7404							'code' => '{
7405							$return = {
7406							type => $item[0],
7407							content => $thisparser->Inline(
7408							join( q{}, @{$item[1]} )
7409							),
7410							}
7411							}',
7412							'hashname' => '__ACTION1__'
7413							}, 'Parse::RecDescent::Action' )
7414							],
7415							'number' => 0,
7416							'error' => undef,
7417							'actcount' => 1,
7418							'strcount' => 0
7419							}, 'Parse::RecDescent::Production' )
7420							],
7421							'name' => 'Paragraph',
7422							'line' => 120,
7423							'impcount' => 0,
7424							'opcount' => 0,
7425							'vars' => '',
7426							'changed' => 0,
7427							'calls' => [
7428							'Plain_Line'
7429							]
7430							}, 'Parse::RecDescent::Rule' ),
7431							'Parens' => bless( {
7432							'vars' => '',
7433							'impcount' => 0,
7434							'opcount' => 0,
7435							'line' => 213,
7436							'name' => 'Parens',
7437							'prods' => [
7438							bless( {
7439							'dircount' => 0,
7440							'items' => [
7441							bless( {
7442							'hashname' => '__ACTION1__',
7443							'code' => '{ extract_bracketed( $text, \'(\' ) }',
7444							'line' => 214,
7445							'lookahead' => 0
7446							}, 'Parse::RecDescent::Action' ),
7447							bless( {
7448							'hashname' => '__ACTION2__',
7449							'lookahead' => 0,
7450							'line' => 215,
7451							'code' => '{
7452							$return = {
7453							type => $item[0],
7454							content => $thisparser->Inline(
7455							substr( substr( $item[1], 1), 0, -1 )
7456							),
7457							}
7458							}'
7459							}, 'Parse::RecDescent::Action' )
7460							],
7461							'patcount' => 0,
7462							'uncommit' => undef,
7463							'line' => undef,
7464							'actcount' => 2,
7465							'strcount' => 0,
7466							'number' => 0,
7467							'error' => undef
7468							}, 'Parse::RecDescent::Production' )
7469							],
7470							'calls' => [],
7471							'changed' => 0
7472							}, 'Parse::RecDescent::Rule' ),
7473							'Inline' => bless( {
7474							'changed' => 0,
7475							'calls' => [
7476							'Chunk'
7477							],
7478							'prods' => [
7479							bless( {
7480							'strcount' => 0,
7481							'actcount' => 1,
7482							'error' => undef,
7483							'number' => 0,
7484							'items' => [
7485							bless( {
7486							'argcode' => undef,
7487							'expected' => undef,
7488							'lookahead' => 0,
7489							'min' => 0,
7490							'matchrule' => 0,
7491							'repspec' => 's?',
7492							'subrule' => 'Chunk',
7493							'line' => 132,
7494							'max' => 100000000
7495							}, 'Parse::RecDescent::Repetition' ),
7496							bless( {
7497							'hashname' => '__ACTION1__',
7498							'code' => '{ $return = $item[1] }',
7499							'line' => 133,
7500							'lookahead' => 0
7501							}, 'Parse::RecDescent::Action' )
7502							],
7503							'dircount' => 0,
7504							'line' => undef,
7505							'uncommit' => undef,
7506							'patcount' => 0
7507							}, 'Parse::RecDescent::Production' )
7508							],
7509							'name' => 'Inline',
7510							'line' => 131,
7511							'opcount' => 0,
7512							'impcount' => 0,
7513							'vars' => ''
7514							}, 'Parse::RecDescent::Rule' ),
7515							'ItalicText' => bless( {
7516							'calls' => [],
7517							'changed' => 0,
7518							'vars' => '',
7519							'impcount' => 0,
7520							'opcount' => 0,
7521							'line' => 176,
7522							'name' => 'ItalicText',
7523							'prods' => [
7524							bless( {
7525							'uncommit' => undef,
7526							'patcount' => 0,
7527							'line' => undef,
7528							'items' => [
7529							bless( {
7530							'hashname' => '__ACTION1__',
7531							'line' => 177,
7532							'lookahead' => 0,
7533							'code' => '{ extract_delimited( $text, \'~\' ) }'
7534							}, 'Parse::RecDescent::Action' ),
7535							bless( {
7536							'hashname' => '__ACTION2__',
7537							'line' => 178,
7538							'lookahead' => 0,
7539							'code' => '{
7540							$return = {
7541							type => $item[0],
7542							content => $thisparser->Inline(
7543							substr( substr( $item[1], 1), 0, -1 )
7544							),
7545							}
7546							}'
7547							}, 'Parse::RecDescent::Action' )
7548							],
7549							'dircount' => 0,
7550							'number' => 0,
7551							'error' => undef,
7552							'actcount' => 2,
7553							'strcount' => 0
7554							}, 'Parse::RecDescent::Production' )
7555							]
7556							}, 'Parse::RecDescent::Rule' ),
7557							'Preformat' => bless( {
7558							'line' => 85,
7559							'prods' => [
7560							bless( {
7561							'dircount' => 0,
7562							'items' => [
7563							bless( {
7564							'max' => 100000000,
7565							'line' => 86,
7566							'subrule' => 'Indented_Line',
7567							'matchrule' => 0,
7568							'repspec' => 's',
7569							'lookahead' => 0,
7570							'min' => 1,
7571							'expected' => undef,
7572							'argcode' => undef
7573							}, 'Parse::RecDescent::Repetition' ),
7574							bless( {
7575							'lookahead' => 0,
7576							'min' => 0,
7577							'matchrule' => 0,
7578							'repspec' => 's?',
7579							'expected' => undef,
7580							'argcode' => undef,
7581							'line' => 86,
7582							'max' => 100000000,
7583							'subrule' => 'Indent_Continuation'
7584							}, 'Parse::RecDescent::Repetition' ),
7585							bless( {
7586							'max' => 1,
7587							'line' => 86,
7588							'subrule' => 'Empty_Line',
7589							'matchrule' => 0,
7590							'repspec' => '?',
7591							'lookahead' => 0,
7592							'min' => 0,
7593							'argcode' => undef,
7594							'expected' => undef
7595							}, 'Parse::RecDescent::Repetition' ),
7596							bless( {
7597							'lookahead' => 0,
7598							'line' => 87,
7599							'code' => '{
7600							$return = {
7601							type => $item[0],
7602							content => [ @{$item[1]}, map { @{$_} } @{$item[2]} ],
7603							}
7604							}',
7605							'hashname' => '__ACTION1__'
7606							}, 'Parse::RecDescent::Action' )
7607							],
7608							'patcount' => 0,
7609							'uncommit' => undef,
7610							'line' => undef,
7611							'actcount' => 1,
7612							'strcount' => 0,
7613							'number' => 0,
7614							'error' => undef
7615							}, 'Parse::RecDescent::Production' )
7616							],
7617							'name' => 'Preformat',
7618							'impcount' => 0,
7619							'opcount' => 0,
7620							'vars' => '',
7621							'calls' => [
7622							'Indented_Line',
7623							'Indent_Continuation',
7624							'Empty_Line'
7625							],
7626							'changed' => 0
7627							}, 'Parse::RecDescent::Rule' ),
7628							'Chunk' => bless( {
7629							'changed' => 0,
7630							'calls' => [
7631							'WhiteSpace',
7632							'InlineCode',
7633							'BoldText',
7634							'ItalicText',
7635							'LinkText',
7636							'EscapedChar',
7637							'KeyWord',
7638							'Parens',
7639							'RegularText'
7640							],
7641							'impcount' => 0,
7642							'opcount' => 0,
7643							'vars' => '',
7644							'prods' => [
7645							bless( {
7646							'strcount' => 0,
7647							'actcount' => 1,
7648							'error' => undef,
7649							'number' => 0,
7650							'items' => [
7651							bless( {
7652							'argcode' => undef,
7653							'subrule' => 'WhiteSpace',
7654							'implicit' => undef,
7655							'matchrule' => 0,
7656							'lookahead' => 0,
7657							'line' => 136
7658							}, 'Parse::RecDescent::Subrule' ),
7659							bless( {
7660							'hashname' => '__ACTION1__',
7661							'lookahead' => 0,
7662							'line' => 137,
7663							'code' => '{ $return = $item[1] }'
7664							}, 'Parse::RecDescent::Action' )
7665							],
7666							'dircount' => 0,
7667							'line' => undef,
7668							'uncommit' => undef,
7669							'patcount' => 0
7670							}, 'Parse::RecDescent::Production' ),
7671							bless( {
7672							'number' => 1,
7673							'error' => undef,
7674							'actcount' => 1,
7675							'strcount' => 0,
7676							'patcount' => 0,
7677							'uncommit' => undef,
7678							'line' => 138,
7679							'dircount' => 0,
7680							'items' => [
7681							bless( {
7682							'matchrule' => 0,
7683							'lookahead' => 0,
7684							'line' => 138,
7685							'argcode' => undef,
7686							'subrule' => 'InlineCode',
7687							'implicit' => undef
7688							}, 'Parse::RecDescent::Subrule' ),
7689							bless( {
7690							'line' => 139,
7691							'lookahead' => 0,
7692							'code' => '{ $return = $item[1] }',
7693							'hashname' => '__ACTION1__'
7694							}, 'Parse::RecDescent::Action' )
7695							]
7696							}, 'Parse::RecDescent::Production' ),
7697							bless( {
7698							'line' => 140,
7699							'patcount' => 0,
7700							'uncommit' => undef,
7701							'dircount' => 0,
7702							'items' => [
7703							bless( {
7704							'lookahead' => 0,
7705							'line' => 140,
7706							'matchrule' => 0,
7707							'implicit' => undef,
7708							'argcode' => undef,
7709							'subrule' => 'BoldText'
7710							}, 'Parse::RecDescent::Subrule' ),
7711							bless( {
7712							'hashname' => '__ACTION1__',
7713							'line' => 141,
7714							'lookahead' => 0,
7715							'code' => '{ $return = $item[1] }'
7716							}, 'Parse::RecDescent::Action' )
7717							],
7718							'error' => undef,
7719							'number' => 2,
7720							'strcount' => 0,
7721							'actcount' => 1
7722							}, 'Parse::RecDescent::Production' ),
7723							bless( {
7724							'line' => 142,
7725							'patcount' => 0,
7726							'uncommit' => undef,
7727							'dircount' => 0,
7728							'items' => [
7729							bless( {
7730							'matchrule' => 0,
7731							'lookahead' => 0,
7732							'line' => 142,
7733							'subrule' => 'ItalicText',
7734							'argcode' => undef,
7735							'implicit' => undef
7736							}, 'Parse::RecDescent::Subrule' ),
7737							bless( {
7738							'code' => '{ $return = $item[1] }',
7739							'lookahead' => 0,
7740							'line' => 143,
7741							'hashname' => '__ACTION1__'
7742							}, 'Parse::RecDescent::Action' )
7743							],
7744							'error' => undef,
7745							'number' => 3,
7746							'strcount' => 0,
7747							'actcount' => 1
7748							}, 'Parse::RecDescent::Production' ),
7749							bless( {
7750							'actcount' => 1,
7751							'strcount' => 0,
7752							'number' => 4,
7753							'error' => undef,
7754							'dircount' => 0,
7755							'items' => [
7756							bless( {
7757							'matchrule' => 0,
7758							'line' => 144,
7759							'lookahead' => 0,
7760							'subrule' => 'LinkText',
7761							'argcode' => undef,
7762							'implicit' => undef
7763							}, 'Parse::RecDescent::Subrule' ),
7764							bless( {
7765							'code' => '{ $return = $item[1] }',
7766							'lookahead' => 0,
7767							'line' => 145,
7768							'hashname' => '__ACTION1__'
7769							}, 'Parse::RecDescent::Action' )
7770							],
7771							'patcount' => 0,
7772							'uncommit' => undef,
7773							'line' => 144
7774							}, 'Parse::RecDescent::Production' ),
7775							bless( {
7776							'actcount' => 1,
7777							'strcount' => 0,
7778							'number' => 5,
7779							'error' => undef,
7780							'dircount' => 0,
7781							'items' => [
7782							bless( {
7783							'argcode' => undef,
7784							'subrule' => 'EscapedChar',
7785							'implicit' => undef,
7786							'matchrule' => 0,
7787							'lookahead' => 0,
7788							'line' => 146
7789							}, 'Parse::RecDescent::Subrule' ),
7790							bless( {
7791							'hashname' => '__ACTION1__',
7792							'lookahead' => 0,
7793							'line' => 147,
7794							'code' => '{ $return = $item[1] }'
7795							}, 'Parse::RecDescent::Action' )
7796							],
7797							'patcount' => 0,
7798							'uncommit' => undef,
7799							'line' => 146
7800							}, 'Parse::RecDescent::Production' ),
7801							bless( {
7802							'error' => undef,
7803							'number' => 6,
7804							'strcount' => 0,
7805							'actcount' => 1,
7806							'line' => 148,
7807							'uncommit' => undef,
7808							'patcount' => 0,
7809							'items' => [
7810							bless( {
7811							'matchrule' => 0,
7812							'lookahead' => 0,
7813							'line' => 148,
7814							'subrule' => 'KeyWord',
7815							'argcode' => undef,
7816							'implicit' => undef
7817							}, 'Parse::RecDescent::Subrule' ),
7818							bless( {
7819							'hashname' => '__ACTION1__',
7820							'line' => 149,
7821							'lookahead' => 0,
7822							'code' => '{ $return = $item[1] }'
7823							}, 'Parse::RecDescent::Action' )
7824							],
7825							'dircount' => 0
7826							}, 'Parse::RecDescent::Production' ),
7827							bless( {
7828							'line' => 150,
7829							'patcount' => 0,
7830							'uncommit' => undef,
7831							'dircount' => 0,
7832							'items' => [
7833							bless( {
7834							'matchrule' => 0,
7835							'lookahead' => 0,
7836							'line' => 150,
7837							'subrule' => 'Parens',
7838							'argcode' => undef,
7839							'implicit' => undef
7840							}, 'Parse::RecDescent::Subrule' ),
7841							bless( {
7842							'hashname' => '__ACTION1__',
7843							'code' => '{ $return = $item[1] }',
7844							'line' => 151,
7845							'lookahead' => 0
7846							}, 'Parse::RecDescent::Action' )
7847							],
7848							'error' => undef,
7849							'number' => 7,
7850							'strcount' => 0,
7851							'actcount' => 1
7852							}, 'Parse::RecDescent::Production' ),
7853							bless( {
7854							'items' => [
7855							bless( {
7856							'lookahead' => 0,
7857							'line' => 152,
7858							'matchrule' => 0,
7859							'implicit' => undef,
7860							'subrule' => 'RegularText',
7861							'argcode' => undef
7862							}, 'Parse::RecDescent::Subrule' ),
7863							bless( {
7864							'code' => '{ $return = $item[1] }',
7865							'line' => 153,
7866							'lookahead' => 0,
7867							'hashname' => '__ACTION1__'
7868							}, 'Parse::RecDescent::Action' )
7869							],
7870							'dircount' => 0,
7871							'line' => 152,
7872							'uncommit' => undef,
7873							'patcount' => 0,
7874							'strcount' => 0,
7875							'actcount' => 1,
7876							'error' => undef,
7877							'number' => 8
7878							}, 'Parse::RecDescent::Production' )
7879							],
7880							'name' => 'Chunk',
7881							'line' => 135
7882							}, 'Parse::RecDescent::Rule' ),
7883							'Indent_Continuation' => bless( {
7884							'impcount' => 0,
7885							'opcount' => 0,
7886							'vars' => '',
7887							'prods' => [
7888							bless( {
7889							'line' => undef,
7890							'uncommit' => undef,
7891							'patcount' => 0,
7892							'items' => [
7893							bless( {
7894							'argcode' => undef,
7895							'expected' => undef,
7896							'repspec' => 's',
7897							'matchrule' => 0,
7898							'min' => 1,
7899							'lookahead' => 0,
7900							'subrule' => 'Empty_Line',
7901							'max' => 100000000,
7902							'line' => 104
7903							}, 'Parse::RecDescent::Repetition' ),
7904							bless( {
7905							'matchrule' => 0,
7906							'repspec' => 's',
7907							'lookahead' => 0,
7908							'min' => 1,
7909							'argcode' => undef,
7910							'expected' => undef,
7911							'max' => 100000000,
7912							'line' => 104,
7913							'subrule' => 'Indented_Line'
7914							}, 'Parse::RecDescent::Repetition' ),
7915							bless( {
7916							'line' => 105,
7917							'lookahead' => 0,
7918							'code' => '{ $return = [ @{$item[1]}, @{$item[2]} ] }',
7919							'hashname' => '__ACTION1__'
7920							}, 'Parse::RecDescent::Action' )
7921							],
7922							'dircount' => 0,
7923							'error' => undef,
7924							'number' => 0,
7925							'strcount' => 0,
7926							'actcount' => 1
7927							}, 'Parse::RecDescent::Production' )
7928							],
7929							'name' => 'Indent_Continuation',
7930							'line' => 103,
7931							'changed' => 0,
7932							'calls' => [
7933							'Empty_Line',
7934							'Indented_Line'
7935							]
7936							}, 'Parse::RecDescent::Rule' ),
7937							'LinkContent' => bless( {
7938							'vars' => '',
7939							'impcount' => 0,
7940							'opcount' => 0,
7941							'line' => 242,
7942							'name' => 'LinkContent',
7943							'prods' => [
7944							bless( {
7945							'patcount' => 0,
7946							'uncommit' => undef,
7947							'line' => undef,
7948							'dircount' => 0,
7949							'items' => [
7950							bless( {
7951							'implicit' => undef,
7952							'argcode' => undef,
7953							'subrule' => 'LinkLabel',
7954							'line' => 243,
7955							'lookahead' => 0,
7956							'matchrule' => 0
7957							}, 'Parse::RecDescent::Subrule' ),
7958							bless( {
7959							'pattern' => '\\\|',
7960							'lookahead' => 0,
7961							'line' => 243,
7962							'description' => '\'\\\\\|\'',
7963							'hashname' => '__STRING1__'
7964							}, 'Parse::RecDescent::InterpLit' ),
7965							bless( {
7966							'lookahead' => 0,
7967							'line' => 243,
7968							'matchrule' => 0,
7969							'implicit' => undef,
7970							'argcode' => undef,
7971							'subrule' => 'LinkTarget'
7972							}, 'Parse::RecDescent::Subrule' ),
7973							bless( {
7974							'hashname' => '__ACTION1__',
7975							'line' => 244,
7976							'lookahead' => 0,
7977							'code' => '{
7978							$return = {
7979							type => $item[0],
7980							content => [ $item[1], $item[3] ],
7981							}
7982							}'
7983							}, 'Parse::RecDescent::Action' )
7984							],
7985							'number' => 0,
7986							'error' => undef,
7987							'actcount' => 1,
7988							'strcount' => 1
7989							}, 'Parse::RecDescent::Production' ),
7990							bless( {
7991							'items' => [
7992							bless( {
7993							'subrule' => 'LinkTarget',
7994							'argcode' => undef,
7995							'implicit' => undef,
7996							'matchrule' => 0,
7997							'lookahead' => 0,
7998							'line' => 250
7999							}, 'Parse::RecDescent::Subrule' ),
8000							bless( {
8001							'code' => '{
8002							$return = {
8003							type => $item[0],
8004							content => [ $item[1] ],
8005							}
8006							}',
8007							'lookahead' => 0,
8008							'line' => 251,
8009							'hashname' => '__ACTION1__'
8010							}, 'Parse::RecDescent::Action' )
8011							],
8012							'dircount' => 0,
8013							'line' => 250,
8014							'uncommit' => undef,
8015							'patcount' => 0,
8016							'strcount' => 0,
8017							'actcount' => 1,
8018							'error' => undef,
8019							'number' => 1
8020							}, 'Parse::RecDescent::Production' )
8021							],
8022							'calls' => [
8023							'LinkLabel',
8024							'LinkTarget'
8025							],
8026							'changed' => 0
8027							}, 'Parse::RecDescent::Rule' ),
8028							'InlineCode' => bless( {
8029							'opcount' => 0,
8030							'impcount' => 0,
8031							'vars' => '',
8032							'line' => 155,
8033							'prods' => [
8034							bless( {
8035							'patcount' => 0,
8036							'uncommit' => undef,
8037							'line' => undef,
8038							'dircount' => 0,
8039							'items' => [
8040							bless( {
8041							'code' => '{ extract_bracketed( $text, \'{\' ) }',
8042							'lookahead' => 0,
8043							'line' => 156,
8044							'hashname' => '__ACTION1__'
8045							}, 'Parse::RecDescent::Action' ),
8046							bless( {
8047							'hashname' => '__ACTION2__',
8048							'lookahead' => 0,
8049							'line' => 157,
8050							'code' => '{
8051							$return = {
8052							type => $item[0],
8053							content => substr( substr( $item[1], 1), 0, -1 ),
8054							}
8055							}'
8056							}, 'Parse::RecDescent::Action' )
8057							],
8058							'number' => 0,
8059							'error' => undef,
8060							'actcount' => 2,
8061							'strcount' => 0
8062							}, 'Parse::RecDescent::Production' )
8063							],
8064							'name' => 'InlineCode',
8065							'calls' => [],
8066							'changed' => 0
8067							}, 'Parse::RecDescent::Rule' ),
8068							'WhiteSpace' => bless( {
8069							'changed' => 0,
8070							'calls' => [],
8071							'vars' => '',
8072							'impcount' => 0,
8073							'opcount' => 0,
8074							'name' => 'WhiteSpace',
8075							'prods' => [
8076							bless( {
8077							'actcount' => 1,
8078							'strcount' => 0,
8079							'number' => 0,
8080							'error' => undef,
8081							'items' => [
8082							bless( {
8083							'ldelim' => '{',
8084							'lookahead' => 0,
8085							'pattern' => ' ^ \\s+ ',
8086							'line' => 234,
8087							'mod' => 'x',
8088							'description' => 'm\\{ ^ \\\\s+ \\}x',
8089							'hashname' => '__PATTERN1__',
8090							'rdelim' => '}'
8091							}, 'Parse::RecDescent::Token' ),
8092							bless( {
8093							'code' => '{
8094							$return = {
8095							type => $item[0],
8096							content => $item[1],
8097							}
8098							}',
8099							'line' => 235,
8100							'lookahead' => 0,
8101							'hashname' => '__ACTION1__'
8102							}, 'Parse::RecDescent::Action' )
8103							],
8104							'dircount' => 0,
8105							'uncommit' => undef,
8106							'patcount' => 1,
8107							'line' => undef
8108							}, 'Parse::RecDescent::Production' )
8109							],
8110							'line' => 233
8111							}, 'Parse::RecDescent::Rule' ),
8112							'Plain_Line' => bless( {
8113							'changed' => 0,
8114							'calls' => [],
8115							'vars' => '',
8116							'impcount' => 0,
8117							'opcount' => 0,
8118							'name' => 'Plain_Line',
8119							'prods' => [
8120							bless( {
8121							'error' => undef,
8122							'number' => 0,
8123							'strcount' => 1,
8124							'actcount' => 1,
8125							'line' => undef,
8126							'uncommit' => undef,
8127							'patcount' => 2,
8128							'items' => [
8129							bless( {
8130							'ldelim' => '/',
8131							'lookahead' => 0,
8132							'pattern' => '^[^0\\n\\t\\ ]\|[0][^\\t\\ ]',
8133							'description' => '/^[^0\\\\n\\\\t\\\\ ]\|[0][^\\\\t\\\\ ]/',
8134							'hashname' => '__PATTERN1__',
8135							'mod' => '',
8136							'line' => 117,
8137							'rdelim' => '/'
8138							}, 'Parse::RecDescent::Token' ),
8139							bless( {
8140							'pattern' => '[^\\n]+',
8141							'lookahead' => 0,
8142							'ldelim' => '/',
8143							'rdelim' => '/',
8144							'description' => '/[^\\\\n]+/',
8145							'hashname' => '__PATTERN2__',
8146							'mod' => '',
8147							'line' => 117
8148							}, 'Parse::RecDescent::Token' ),
8149							bless( {
8150							'pattern' => '\\n',
8151							'line' => 117,
8152							'lookahead' => 0,
8153							'hashname' => '__STRING1__',
8154							'description' => '\'\\\\n\''
8155							}, 'Parse::RecDescent::InterpLit' ),
8156							bless( {
8157							'hashname' => '__ACTION1__',
8158							'code' => '{ $return = $item[1] . $item[2] . $item[3] }',
8159							'line' => 118,
8160							'lookahead' => 0
8161							}, 'Parse::RecDescent::Action' )
8162							],
8163							'dircount' => 0
8164							}, 'Parse::RecDescent::Production' )
8165							],
8166							'line' => 116
8167							}, 'Parse::RecDescent::Rule' ),
8168							'KeyWord' => bless( {
8169							'vars' => '',
8170							'opcount' => 0,
8171							'impcount' => 0,
8172							'name' => 'KeyWord',
8173							'prods' => [
8174							bless( {
8175							'uncommit' => undef,
8176							'patcount' => 0,
8177							'line' => undef,
8178							'items' => [
8179							bless( {
8180							'hashname' => '__ACTION1__',
8181							'code' => '{ extract_tagged( $text, \'%%\', \'%%\' ) }',
8182							'line' => 188,
8183							'lookahead' => 0
8184							}, 'Parse::RecDescent::Action' ),
8185							bless( {
8186							'code' => '{
8187							$return = {
8188							type => $item[0],
8189							content => substr( substr( $item[1], 2), 0, -2 ),
8190							}
8191							}',
8192							'line' => 189,
8193							'lookahead' => 0,
8194							'hashname' => '__ACTION2__'
8195							}, 'Parse::RecDescent::Action' )
8196							],
8197							'dircount' => 0,
8198							'number' => 0,
8199							'error' => undef,
8200							'actcount' => 2,
8201							'strcount' => 0
8202							}, 'Parse::RecDescent::Production' )
8203							],
8204							'line' => 187,
8205							'changed' => 0,
8206							'calls' => []
8207							}, 'Parse::RecDescent::Rule' ),
8208							'List_Continuation' => bless( {
8209							'prods' => [
8210							bless( {
8211							'uncommit' => undef,
8212							'patcount' => 2,
8213							'line' => undef,
8214							'items' => [
8215							bless( {
8216							'line' => 82,
8217							'mod' => '',
8218							'description' => '/^[^*0\\\\s]/',
8219							'hashname' => '__PATTERN1__',
8220							'rdelim' => '/',
8221							'lookahead' => 0,
8222							'ldelim' => '/',
8223							'pattern' => '^[^*0\\s]'
8224							}, 'Parse::RecDescent::Token' ),
8225							bless( {
8226							'ldelim' => '/',
8227							'lookahead' => 0,
8228							'pattern' => '[^\\n]*',
8229							'line' => 82,
8230							'mod' => '',
8231							'description' => '/[^\\\\n]*/',
8232							'hashname' => '__PATTERN2__',
8233							'rdelim' => '/'
8234							}, 'Parse::RecDescent::Token' ),
8235							bless( {
8236							'pattern' => '\\n',
8237							'line' => 82,
8238							'lookahead' => 0,
8239							'hashname' => '__STRING1__',
8240							'description' => '\'\\\\n\''
8241							}, 'Parse::RecDescent::InterpLit' ),
8242							bless( {
8243							'lookahead' => 0,
8244							'line' => 83,
8245							'code' => '{ $return = $item[1] . $item[2] }',
8246							'hashname' => '__ACTION1__'
8247							}, 'Parse::RecDescent::Action' )
8248							],
8249							'dircount' => 0,
8250							'number' => 0,
8251							'error' => undef,
8252							'actcount' => 1,
8253							'strcount' => 1
8254							}, 'Parse::RecDescent::Production' )
8255							],
8256							'name' => 'List_Continuation',
8257							'line' => 81,
8258							'impcount' => 0,
8259							'opcount' => 0,
8260							'vars' => '',
8261							'changed' => 0,
8262							'calls' => []
8263							}, 'Parse::RecDescent::Rule' ),
8264							'LinkText' => bless( {
8265							'impcount' => 0,
8266							'opcount' => 0,
8267							'vars' => '',
8268							'prods' => [
8269							bless( {
8270							'dircount' => 0,
8271							'items' => [
8272							bless( {
8273							'hashname' => '__ACTION1__',
8274							'code' => '{ extract_bracketed( $text, \'[\' ) }',
8275							'lookahead' => 0,
8276							'line' => 197
8277							}, 'Parse::RecDescent::Action' ),
8278							bless( {
8279							'hashname' => '__ACTION2__',
8280							'line' => 198,
8281							'lookahead' => 0,
8282							'code' => '{
8283							$return = $thisparser->LinkContent(
8284							substr( substr( $item[1], 1), 0, -1 )
8285							),
8286							}'
8287							}, 'Parse::RecDescent::Action' )
8288							],
8289							'line' => undef,
8290							'patcount' => 0,
8291							'uncommit' => undef,
8292							'strcount' => 0,
8293							'actcount' => 2,
8294							'error' => undef,
8295							'number' => 0
8296							}, 'Parse::RecDescent::Production' )
8297							],
8298							'name' => 'LinkText',
8299							'line' => 196,
8300							'changed' => 0,
8301							'calls' => []
8302							}, 'Parse::RecDescent::Rule' ),
8303							'Ordered_List' => bless( {
8304							'calls' => [
8305							'Numbered_Item',
8306							'Empty_Line'
8307							],
8308							'changed' => 0,
8309							'impcount' => 0,
8310							'opcount' => 0,
8311							'vars' => '',
8312							'line' => 55,
8313							'prods' => [
8314							bless( {
8315							'actcount' => 1,
8316							'strcount' => 0,
8317							'number' => 0,
8318							'error' => undef,
8319							'items' => [
8320							bless( {
8321							'max' => 100000000,
8322							'line' => 56,
8323							'subrule' => 'Numbered_Item',
8324							'matchrule' => 0,
8325							'repspec' => 's',
8326							'lookahead' => 0,
8327							'min' => 1,
8328							'argcode' => undef,
8329							'expected' => undef
8330							}, 'Parse::RecDescent::Repetition' ),
8331							bless( {
8332							'max' => 1,
8333							'line' => 56,
8334							'subrule' => 'Empty_Line',
8335							'matchrule' => 0,
8336							'repspec' => '?',
8337							'lookahead' => 0,
8338							'min' => 0,
8339							'argcode' => undef,
8340							'expected' => undef
8341							}, 'Parse::RecDescent::Repetition' ),
8342							bless( {
8343							'code' => '{
8344							$return = {
8345							type => $item[0],
8346							content => $item[1],
8347							}
8348							}',
8349							'lookahead' => 0,
8350							'line' => 57,
8351							'hashname' => '__ACTION1__'
8352							}, 'Parse::RecDescent::Action' )
8353							],
8354							'dircount' => 0,
8355							'uncommit' => undef,
8356							'patcount' => 0,
8357							'line' => undef
8358							}, 'Parse::RecDescent::Production' )
8359							],
8360							'name' => 'Ordered_List'
8361							}, 'Parse::RecDescent::Rule' ),
8362							'Numbered_Item' => bless( {
8363							'vars' => '',
8364							'opcount' => 0,
8365							'impcount' => 0,
8366							'line' => 64,
8367							'name' => 'Numbered_Item',
8368							'prods' => [
8369							bless( {
8370							'error' => undef,
8371							'number' => 0,
8372							'strcount' => 0,
8373							'actcount' => 1,
8374							'line' => undef,
8375							'patcount' => 0,
8376							'uncommit' => undef,
8377							'dircount' => 0,
8378							'items' => [
8379							bless( {
8380							'argcode' => undef,
8381							'subrule' => 'Numbered_Line',
8382							'implicit' => undef,
8383							'matchrule' => 0,
8384							'lookahead' => 0,
8385							'line' => 65
8386							}, 'Parse::RecDescent::Subrule' ),
8387							bless( {
8388							'argcode' => undef,
8389							'expected' => undef,
8390							'lookahead' => 0,
8391							'min' => 0,
8392							'matchrule' => 0,
8393							'repspec' => 's?',
8394							'subrule' => 'List_Continuation',
8395							'line' => 65,
8396							'max' => 100000000
8397							}, 'Parse::RecDescent::Repetition' ),
8398							bless( {
8399							'hashname' => '__ACTION1__',
8400							'code' => '{
8401							$return = {
8402							type => $item[0],
8403							content => $thisparser->Inline(
8404							join( "\\n", $item[1], @{$item[2]} )
8405							),
8406							}
8407							}',
8408							'line' => 66,
8409							'lookahead' => 0
8410							}, 'Parse::RecDescent::Action' )
8411							]
8412							}, 'Parse::RecDescent::Production' )
8413							],
8414							'calls' => [
8415							'Numbered_Line',
8416							'List_Continuation'
8417							],
8418							'changed' => 0
8419							}, 'Parse::RecDescent::Rule' ),
8420							'Numbered_Line' => bless( {
8421							'line' => 75,
8422							'prods' => [
8423							bless( {
8424							'number' => 0,
8425							'error' => undef,
8426							'actcount' => 1,
8427							'strcount' => 0,
8428							'patcount' => 1,
8429							'uncommit' => undef,
8430							'line' => undef,
8431							'dircount' => 0,
8432							'items' => [
8433							bless( {
8434							'pattern' => '^0[\\t\\ ]*\\n',
8435							'ldelim' => '/',
8436							'lookahead' => 0,
8437							'rdelim' => '/',
8438							'mod' => '',
8439							'line' => 76,
8440							'description' => '/^0[\\\\t\\\\ ]*\\\\n/',
8441							'hashname' => '__PATTERN1__'
8442							}, 'Parse::RecDescent::Token' ),
8443							bless( {
8444							'hashname' => '__ACTION1__',
8445							'code' => '{ $return = q{} }',
8446							'line' => 77,
8447							'lookahead' => 0
8448							}, 'Parse::RecDescent::Action' )
8449							]
8450							}, 'Parse::RecDescent::Production' ),
8451							bless( {
8452							'number' => 1,
8453							'error' => undef,
8454							'actcount' => 1,
8455							'strcount' => 1,
8456							'patcount' => 2,
8457							'uncommit' => undef,
8458							'line' => 78,
8459							'dircount' => 0,
8460							'items' => [
8461							bless( {
8462							'ldelim' => '/',
8463							'lookahead' => 0,
8464							'pattern' => '^0[\\t\\ ]+',
8465							'line' => 78,
8466							'mod' => '',
8467							'hashname' => '__PATTERN1__',
8468							'description' => '/^0[\\\\t\\\\ ]+/',
8469							'rdelim' => '/'
8470							}, 'Parse::RecDescent::Token' ),
8471							bless( {
8472							'pattern' => '[^\\n]*',
8473							'lookahead' => 0,
8474							'ldelim' => '/',
8475							'rdelim' => '/',
8476							'hashname' => '__PATTERN2__',
8477							'description' => '/[^\\\\n]*/',
8478							'mod' => '',
8479							'line' => 78
8480							}, 'Parse::RecDescent::Token' ),
8481							bless( {
8482							'lookahead' => 0,
8483							'line' => 78,
8484							'hashname' => '__STRING1__',
8485							'description' => '\'\\\\n\'',
8486							'pattern' => '\\n'
8487							}, 'Parse::RecDescent::InterpLit' ),
8488							bless( {
8489							'line' => 79,
8490							'lookahead' => 0,
8491							'code' => '{ $return = $item[2] }',
8492							'hashname' => '__ACTION1__'
8493							}, 'Parse::RecDescent::Action' )
8494							]
8495							}, 'Parse::RecDescent::Production' )
8496							],
8497							'name' => 'Numbered_Line',
8498							'impcount' => 0,
8499							'opcount' => 0,
8500							'vars' => '',
8501							'calls' => [],
8502							'changed' => 0
8503							}, 'Parse::RecDescent::Rule' ),
8504							'LinkTarget' => bless( {
8505							'opcount' => 0,
8506							'impcount' => 0,
8507							'vars' => '',
8508							'line' => 267,
8509							'prods' => [
8510							bless( {
8511							'actcount' => 1,
8512							'strcount' => 0,
8513							'number' => 0,
8514							'error' => undef,
8515							'items' => [
8516							bless( {
8517							'hashname' => '__PATTERN1__',
8518							'description' => '/.+/',
8519							'mod' => '',
8520							'line' => 268,
8521							'rdelim' => '/',
8522							'ldelim' => '/',
8523							'lookahead' => 0,
8524							'pattern' => '.+'
8525							}, 'Parse::RecDescent::Token' ),
8526							bless( {
8527							'code' => '{
8528							$return = {
8529							type => $item[0],
8530							content => $item[1],
8531							}
8532							}',
8533							'lookahead' => 0,
8534							'line' => 269,
8535							'hashname' => '__ACTION1__'
8536							}, 'Parse::RecDescent::Action' )
8537							],
8538							'dircount' => 0,
8539							'uncommit' => undef,
8540							'patcount' => 1,
8541							'line' => undef
8542							}, 'Parse::RecDescent::Production' )
8543							],
8544							'name' => 'LinkTarget',
8545							'calls' => [],
8546							'changed' => 0
8547							}, 'Parse::RecDescent::Rule' ),
8548							'Bullet_Line' => bless( {
8549							'vars' => '',
8550							'impcount' => 0,
8551							'opcount' => 0,
8552							'name' => 'Bullet_Line',
8553							'prods' => [
8554							bless( {
8555							'actcount' => 1,
8556							'strcount' => 0,
8557							'number' => 0,
8558							'error' => undef,
8559							'dircount' => 0,
8560							'items' => [
8561							bless( {
8562							'line' => 50,
8563							'mod' => '',
8564							'description' => '/^\\\\[\\\\t\\\\ ]\\\\n/',
8565							'hashname' => '__PATTERN1__',
8566							'rdelim' => '/',
8567							'lookahead' => 0,
8568							'ldelim' => '/',
8569							'pattern' => '^\\[\\t\\ ]\\n'
8570							}, 'Parse::RecDescent::Token' ),
8571							bless( {
8572							'hashname' => '__ACTION1__',
8573							'line' => 51,
8574							'lookahead' => 0,
8575							'code' => '{ $return = q{} }'
8576							}, 'Parse::RecDescent::Action' )
8577							],
8578							'patcount' => 1,
8579							'uncommit' => undef,
8580							'line' => undef
8581							}, 'Parse::RecDescent::Production' ),
8582							bless( {
8583							'uncommit' => undef,
8584							'patcount' => 2,
8585							'line' => 52,
8586							'items' => [
8587							bless( {
8588							'rdelim' => '/',
8589							'hashname' => '__PATTERN1__',
8590							'description' => '/^\\\\*[\\\\t\\\\ ]+/',
8591							'line' => 52,
8592							'mod' => '',
8593							'pattern' => '^\\*[\\t\\ ]+',
8594							'lookahead' => 0,
8595							'ldelim' => '/'
8596							}, 'Parse::RecDescent::Token' ),
8597							bless( {
8598							'pattern' => '[^\\n]*',
8599							'lookahead' => 0,
8600							'ldelim' => '/',
8601							'rdelim' => '/',
8602							'description' => '/[^\\\\n]*/',
8603							'hashname' => '__PATTERN2__',
8604							'line' => 52,
8605							'mod' => ''
8606							}, 'Parse::RecDescent::Token' ),
8607							bless( {
8608							'hashname' => '__STRING1__',
8609							'description' => '\'\\\\n\'',
8610							'line' => 52,
8611							'lookahead' => 0,
8612							'pattern' => '\\n'
8613							}, 'Parse::RecDescent::InterpLit' ),
8614							bless( {
8615							'code' => '{ $return = $item[2] }',
8616							'lookahead' => 0,
8617							'line' => 53,
8618							'hashname' => '__ACTION1__'
8619							}, 'Parse::RecDescent::Action' )
8620							],
8621							'dircount' => 0,
8622							'number' => 1,
8623							'error' => undef,
8624							'actcount' => 1,
8625							'strcount' => 1
8626							}, 'Parse::RecDescent::Production' )
8627							],
8628							'line' => 49,
8629							'changed' => 0,
8630							'calls' => []
8631							}, 'Parse::RecDescent::Rule' ),
8632							'Header' => bless( {
8633							'calls' => [],
8634							'changed' => 0,
8635							'line' => 21,
8636							'prods' => [
8637							bless( {
8638							'patcount' => 3,
8639							'uncommit' => undef,
8640							'line' => undef,
8641							'dircount' => 0,
8642							'items' => [
8643							bless( {
8644							'pattern' => '^=+',
8645							'lookahead' => 0,
8646							'ldelim' => '/',
8647							'rdelim' => '/',
8648							'line' => 22,
8649							'mod' => '',
8650							'hashname' => '__PATTERN1__',
8651							'description' => '/^=+/'
8652							}, 'Parse::RecDescent::Token' ),
8653							bless( {
8654							'mod' => '',
8655							'line' => 22,
8656							'description' => '/[\\\\t\\\\ ]+/',
8657							'hashname' => '__PATTERN2__',
8658							'rdelim' => '/',
8659							'lookahead' => 0,
8660							'ldelim' => '/',
8661							'pattern' => '[\\t\\ ]+'
8662							}, 'Parse::RecDescent::Token' ),
8663							bless( {
8664							'pattern' => '[^\\n]*',
8665							'lookahead' => 0,
8666							'ldelim' => '/',
8667							'rdelim' => '/',
8668							'line' => 22,
8669							'mod' => '',
8670							'hashname' => '__PATTERN3__',
8671							'description' => '/[^\\\\n]*/'
8672							}, 'Parse::RecDescent::Token' ),
8673							bless( {
8674							'pattern' => '\\n',
8675							'description' => '\'\\\\n\'',
8676							'hashname' => '__STRING1__',
8677							'line' => 22,
8678							'lookahead' => 0
8679							}, 'Parse::RecDescent::InterpLit' ),
8680							bless( {
8681							'line' => 23,
8682							'lookahead' => 0,
8683							'code' => '{
8684							$return = {
8685							type => $item[0],
8686							level => length($item[1]),
8687							content => $thisparser->Inline( $item[3] ),
8688							}
8689							}',
8690							'hashname' => '__ACTION1__'
8691							}, 'Parse::RecDescent::Action' )
8692							],
8693							'number' => 0,
8694							'error' => undef,
8695							'actcount' => 1,
8696							'strcount' => 1
8697							}, 'Parse::RecDescent::Production' )
8698							],
8699							'name' => 'Header',
8700							'opcount' => 0,
8701							'impcount' => 0,
8702							'vars' => ''
8703							}, 'Parse::RecDescent::Rule' ),
8704							'Empty_Line' => bless( {
8705							'calls' => [],
8706							'changed' => 0,
8707							'line' => 107,
8708							'name' => 'Empty_Line',
8709							'prods' => [
8710							bless( {
8711							'number' => 0,
8712							'error' => undef,
8713							'actcount' => 1,
8714							'strcount' => 1,
8715							'patcount' => 1,
8716							'uncommit' => undef,
8717							'line' => undef,
8718							'dircount' => 0,
8719							'items' => [
8720							bless( {
8721							'rdelim' => '/',
8722							'description' => '/^[\\\\t\\\\ ]*/',
8723							'hashname' => '__PATTERN1__',
8724							'line' => 108,
8725							'mod' => '',
8726							'pattern' => '^[\\t\\ ]*',
8727							'ldelim' => '/',
8728							'lookahead' => 0
8729							}, 'Parse::RecDescent::Token' ),
8730							bless( {
8731							'pattern' => '\\n',
8732							'hashname' => '__STRING1__',
8733							'description' => '\'\\\\n\'',
8734							'lookahead' => 0,
8735							'line' => 108
8736							}, 'Parse::RecDescent::InterpLit' ),
8737							bless( {
8738							'hashname' => '__ACTION1__',
8739							'code' => '{
8740							$return = {
8741							type => $item[0],
8742							content => $item[1],
8743							}
8744							}',
8745							'lookahead' => 0,
8746							'line' => 109
8747							}, 'Parse::RecDescent::Action' )
8748							]
8749							}, 'Parse::RecDescent::Production' )
8750							],
8751							'vars' => '',
8752							'impcount' => 0,
8753							'opcount' => 0
8754							}, 'Parse::RecDescent::Rule' ),
8755							'Indented_Line' => bless( {
8756							'vars' => '',
8757							'impcount' => 0,
8758							'opcount' => 0,
8759							'line' => 94,
8760							'name' => 'Indented_Line',
8761							'prods' => [
8762							bless( {
8763							'strcount' => 1,
8764							'actcount' => 1,
8765							'error' => undef,
8766							'number' => 0,
8767							'items' => [
8768							bless( {
8769							'lookahead' => 0,
8770							'ldelim' => '/',
8771							'pattern' => '^[\\t\\ ]+',
8772							'mod' => '',
8773							'line' => 95,
8774							'description' => '/^[\\\\t\\\\ ]+/',
8775							'hashname' => '__PATTERN1__',
8776							'rdelim' => '/'
8777							}, 'Parse::RecDescent::Token' ),
8778							bless( {
8779							'rdelim' => '/',
8780							'line' => 95,
8781							'mod' => '',
8782							'description' => '/[^\\\\t\\\\n\\\\ ]+/',
8783							'hashname' => '__PATTERN2__',
8784							'pattern' => '[^\\t\\n\\ ]+',
8785							'lookahead' => 0,
8786							'ldelim' => '/'
8787							}, 'Parse::RecDescent::Token' ),
8788							bless( {
8789							'mod' => '',
8790							'line' => 95,
8791							'hashname' => '__PATTERN3__',
8792							'description' => '/[^\\\\n]*/',
8793							'rdelim' => '/',
8794							'lookahead' => 0,
8795							'ldelim' => '/',
8796							'pattern' => '[^\\n]*'
8797							}, 'Parse::RecDescent::Token' ),
8798							bless( {
8799							'pattern' => '\\n',
8800							'description' => '\'\\\\n\'',
8801							'hashname' => '__STRING1__',
8802							'lookahead' => 0,
8803							'line' => 95
8804							}, 'Parse::RecDescent::InterpLit' ),
8805							bless( {
8806							'code' => '{
8807							$return = {
8808							type => $item[0],
8809							content => $item[1] . $item[2] . $item[3],
8810							}
8811							}',
8812							'line' => 96,
8813							'lookahead' => 0,
8814							'hashname' => '__ACTION1__'
8815							}, 'Parse::RecDescent::Action' )
8816							],
8817							'dircount' => 0,
8818							'line' => undef,
8819							'uncommit' => undef,
8820							'patcount' => 3
8821							}, 'Parse::RecDescent::Production' )
8822							],
8823							'calls' => [],
8824							'changed' => 0
8825							}, 'Parse::RecDescent::Rule' )
8826							},
8827							'_check' => {
8828							'prevoffset' => '',
8829							'thiscolumn' => '',
8830							'itempos' => '',
8831							'thisoffset' => '',
8832							'prevcolumn' => '',
8833							'prevline' => ''
8834							},
8835							'_AUTOTREE' => undef,
8836							'localvars' => '',
8837							'startcode' => ''
8838							}, 'Parse::RecDescent' );
8839							}
8840
8841							__END__