Permalink
Browse files

Merge branch 'master' of github.com:perl6/Pod-To-HTML

  • Loading branch information...
2 parents 83a857e + 29155b3 commit 75a11c47c44b992e0c93d29a4a16e366368a9dd3 @moritz moritz committed Jul 3, 2012
Showing with 13 additions and 0 deletions.
  1. +13 −0 lib/Pod/To/HTML.pm
View
@@ -337,6 +337,19 @@ multi sub node2inline(Pod::FormattingCode $node) returns Str {
return qq{<a href="#fn-$id" id="fn-ref-$id">[$id]</a>};
}
+ #= Links
+ when 'L' {
+ my $url = $node.content.join;
+ my $text = $url;
+ if $url ~~ /'|'/ {
+ $text = $/.prematch;
+ $url = $/.postmatch;
+ }
+ # TODO: URI-escape $url
+ $text = escape_html $text;
+ return qq{<a href="$url">$text</a>}
+ }
+
# Stuff I haven't figured out yet
default {
return qq{<kbd class="pod2html-todo">{$node.type}&lt;}

0 comments on commit 75a11c4

Please sign in to comment.