{"body":"lookatme: \n#use Grammar::Tracer;\nBEGIN $*LANG.refine_slang: 'MAIN',\n\trole P6X {\n#grammar XML {\n\t\ttoken p6x-word {\n\t\t\t\\w+\n\t\t}\n\t\ttoken p6x-attr {\n\t\t\t<p6x-word> '=' [\n\t\t\t\t| '\"' ~ '\"' $<p6x-value>=.*?\n\t\t\t\t| \"'\" ~ \"'\" $<p6x-value>=.*?\n\t\t\t\t| $<p6x-value>=<.p6x-word>\n\t\t\t]\n\t\t}\n\t\ttoken p6x-inner-tag {\n\t\t\t$<p6x-name>=<.p6x-word>\n\t\t\t<p6x-attr>* %% <.ws>\n\t\t}\n\t\ttoken p6x-closing-tag($name) {\n\t\t\t'</' ~ '>' $name\n\t\t}\n\t\ttoken p6x-opening-tag {\n\t\t\t'<' ~ '>' <p6x-inner-tag>\n\t\t}\n\t\ttoken p6x-unique-tag {\n\t\t\t'<' ~ '/>' <p6x-inner-tag>\n\t\t}\n\t\ttoken p6x-open-close-tag {\n\t\t\t:my $name;\n\t\t\t[<p6x-opening-tag> {$name = $<p6x-opening-tag><p6x-inner-tag><p6x-name>}] ~ <p6x-closing-tag($name)>\n\t\t\t$<p6x-inner> = [\n\t\t\t\t|| <p6x-xml>+ $<p6x-post-data>=.*?\n\t\t\t\t|| $<p6x-pre-data>=.+? <p6x-xml>+ $<p6x-post-data>=.*?\n\t\t\t\t|| .*?\n\t\t\t]\n\t\t}\n\t\ttoken p6x-tag {\n\t\t\t|| <p6x-open-close-tag>\n\t\t\t|| <p6x-unique-tag>\n\t\t}\n\t\ttoken p6x-xml {\n\t\t\t<p6x-tag>\n\t\t}\n        token statement_control:sym<p6x> {\n            <p6x-xml>\n        }\n\t\t#token TOP { <p6x-xml> }\n\n\t#say XML.parse: \"<head>bla<br /><form>bla: <input /></form></head>\"\n\n\t\t},\n    \trole P6XActions {\n    \t    method statement_control:sym<p6x> (Mu $/) {\n\t\t\t\tsay $/;\n    \t        nextsame\n    \t    }\n    \t}\n\n\n<head>\n\t<body>\n\t\tbla<br />\n\t\t<form> \n\t\t\tbla: <input />\n\t\t</form>\n\t</body>\n</head>\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/UKBXgzyk","modified":1512098991,"id":"UKBXgzyk","size":1306,"lines":68,"own_paste":false,"theme":"","date":1512098991}