diff options
| author | Paul Buetow <paul@buetow.org> | 2022-04-20 11:01:33 +0100 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2022-04-20 11:01:33 +0100 |
| commit | 4f9ed2f3e82b70aaccbf652bb5fd5bba472da8a7 (patch) | |
| tree | de9ad290aea085d282ccb9eca30b08511d6ec4f1 /lib/Katana/HTML/Generate.rakumod | |
| parent | 6b0d4ee051f650b46af7ec50acf1122d44088fb5 (diff) | |
refactor
Diffstat (limited to 'lib/Katana/HTML/Generate.rakumod')
| -rw-r--r-- | lib/Katana/HTML/Generate.rakumod | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/lib/Katana/HTML/Generate.rakumod b/lib/Katana/HTML/Generate.rakumod index fb020b4..74e1c4b 100644 --- a/lib/Katana/HTML/Generate.rakumod +++ b/lib/Katana/HTML/Generate.rakumod @@ -1,22 +1,3 @@ use v6.d; unit module Katana::HTML::Generate:api<1>; - -multi sub generate-from-tags(Str $doctype, @tags) is export { - say $doctype; - generate-from-tags @tags; -} - -multi sub generate-from-tags(@tags) is export { - my @sgat; # tags spelled in reverse. - for @tags -> $tag { - say $tag.open; - say $tag.text if $tag.has-text; - unshift @sgat, $tag; - } - for @sgat -> $tag { - say $tag.close; - generate-from-tags $tag.succ if $tag.has-succ; - } -} - |
