Functional coverage tree: Difference between revisions
m
→{{header|Perl 6}}: oops, stray curlies
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: tweak, tweak, and restore comments) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: oops, stray curlies) |
||
Line 1,742:
my (@parts, $cnt);
while ($data ~~ m:nth(++$cnt)/$<head>=[(\s*)
$<body>=[[$0 \s+ \N+\n]*]/ ) { # next sub-level is 'body' (defined by extra depth of indentation)
| |||