diff --git a/lib/github/commands/pod62html b/lib/github/commands/pod62html new file mode 100755 index 00000000..97a2fb3f --- /dev/null +++ b/lib/github/commands/pod62html @@ -0,0 +1,13 @@ +#!/usr/bin/env perl6 + +use v6.c; + +use Pod::To::HTML; + +sub MAIN() +{ + Pod::To::HTML.render( + $*IN.slurp, + default-title => 'Readme', + ).say; +} diff --git a/lib/github/markup.rb b/lib/github/markup.rb index 84c1e45f..d6b5cca5 100644 --- a/lib/github/markup.rb +++ b/lib/github/markup.rb @@ -16,6 +16,7 @@ module Markups MARKUP_MEDIAWIKI = :mediawiki MARKUP_ORG = :org MARKUP_POD = :pod + MARKUP_POD6 = :pod6 MARKUP_RDOC = :rdoc MARKUP_RST = :rst MARKUP_TEXTILE = :textile diff --git a/lib/github/markups.rb b/lib/github/markups.rb index 61138e85..6c4da8e8 100644 --- a/lib/github/markups.rb +++ b/lib/github/markups.rb @@ -52,3 +52,4 @@ ) command(::GitHub::Markups::MARKUP_POD, :pod2html, /pod/, ["Pod"], "pod") +command(::GitHub::Markups::MARKUP_POD6, :pod62html, /pod6/, ["Pod6"], "pod6") diff --git a/test/markups/README.pod6 b/test/markups/README.pod6 new file mode 100644 index 00000000..d1d31c61 --- /dev/null +++ b/test/markups/README.pod6 @@ -0,0 +1,27 @@ +=begin pod + +=TITLE Document Title + +=comment This is a comment + +=head2 First Section + +=item One +=item Two + +Refer to L. + +=head2 Another Section + +NOTE: Here is some source code. + + MAIN() { + say "Hello GitHub!" + } + +=item ☐ todo +=item ☑ done + +content + +=end pod diff --git a/test/markups/README.pod6.html b/test/markups/README.pod6.html new file mode 100644 index 00000000..01d97df3 --- /dev/null +++ b/test/markups/README.pod6.html @@ -0,0 +1,69 @@ + + + + Document Title + + + + + + + +
+ + +

Document Title

+ + +
+

First Section

+ +

Refer to Another section.

+

Another Section

+

NOTE: Here is some source code.

+
MAIN() {
+  say "Hello GitHub!"
+}
+ +

content

+ +
+ + + + +