:class<>.diff

diff --git a/lib/Pod/To/HTML.pm b/lib/Pod/To/HTML.pm
index 797ea2d..9564d77 100644
--- a/lib/Pod/To/HTML.pm
+++ b/lib/Pod/To/HTML.pm
@@ -248,7 +248,7 @@ multi sub node2html(Pod::Block::Named $node) returns Str {
             return qq{<div class="nested">\n} ~ node2html($node.content) ~ qq{\n</div>\n};
         }
         when 'output' { return "<pre>\n" ~ node2inline($node.content) ~ "</pre>\n"; }
-        when 'pod'  { return node2html($node.content); }
+        when 'pod'  { return qq[<span class="{$node.config<class>}">\n{node2html($node.content)}</span>\n] }
         when 'para' { return node2html($node.content[0]); }
         when 'defn' {
             return node2html($node.content[0]) ~ "\n"

gistfile1.txt

perl6 --doc=HTML -e'=begin pod :class<smartlink>
=for pod :class<smartlink-file>
L<linkylink>
=for pod :class<smartlink-file>
L<linkylinklink>
=end pod'