Permalink
Browse files

Markup unimplemented format codes appropriately

  • Loading branch information...
1 parent 04e53e6 commit 37907ae026acd815bd9b2a80ba34f1f79241d343 @flussence flussence committed Sep 7, 2011
Showing with 5 additions and 3 deletions.
  1. +5 −3 lib/Pod/To/HTML.pm
View
@@ -273,13 +273,15 @@ multi sub node2inline(Pod::FormattingCode $node) returns Str {
{ q{&} ~ $_ ~ q{;} }
# Uppercase = Unicode codepoint names
default
- { q{<kbd class="todo">E&lt;} ~ node2text($_) ~ q{&gt;</kbd>} }
+ { q{<kbd class="pod2html-todo">E&lt;} ~ node2text($_) ~ q{&gt;</kbd>} }
}).join;
}
- # TODO
+ # Stuff I haven't figured out yet
default {
- return $node.type ~ q{&lt;} ~ node2inline($node.content) ~ q{&gt;};
+ return qq{<kbd class="pod2html-todo">{$node.type}&lt;}
+ ~ node2inline($node.content)
+ ~ q{&gt;</kbd>};
}
}
}

0 comments on commit 37907ae

Please sign in to comment.