Functional coverage tree: Difference between revisions
Content added Content deleted
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: | Line 1,742: | ||
my (@parts, $cnt); |
my (@parts, $cnt); |
||
while ($data ~~ m:nth(++$cnt)/$<head>=[(\s*) |
while ($data ~~ m:nth(++$cnt)/$<head>=[(\s*) \N+\n ] # split off one level as 'head' (or terminal 'leaf') |
||
$<body>=[[$0 \s+ \N+\n]*]/ ) { # next sub-level is 'body' (defined by extra depth of indentation) |
$<body>=[[$0 \s+ \N+\n]*]/ ) { # next sub-level is 'body' (defined by extra depth of indentation) |
||