File Coverage

blib/lib/Pod/WikiDoc/Parser.pm

Criterion	Covered	Total	%
statement	2842	3182	89.3
branch	877	1886	46.5
condition	239	522	45.7
subroutine	122	122	100.0
pod	0	1	0.0
total	4080	5713	71.4

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