--- trunk/lib/Frey/Pod.pm	2008/12/10 19:43:52	799
+++ trunk/lib/Frey/Pod.pm	2008/12/10 20:27:34	800
@@ -48,7 +48,7 @@
 	sub heading {
 		my ($level,$html) = @_;
 		push @toc, { $level => $html };
-		warn "# heading $level $html";
+		warn "## heading $level $html" if $self->debug;
 		qq|<$level>$html</$level>|;
 	}
 	$body =~ s{<(h\d+)>(.+?)</\1>}{heading($1,$2)}egs;
@@ -101,10 +101,20 @@
 			.pod-toc a {
 				text-decoration: none;
 			}
+
 		|);
 		$toc_html = qq|<div class="pod-toc">$toc_html</div>|;
 	}
 
+	$self->add_css(qq|
+		pre {
+			color: #444;
+			border: 1px solid #eee;
+			padding-top: 0.5em;
+			padding-bottom: 0.5em;
+		}
+	|);
+
 	return $toc_html . $body;
 
 }