--- trunk/lib/Frey/Introspect.pm	2008/11/16 16:36:53	358
+++ trunk/lib/Frey/Introspect.pm	2008/11/17 18:42:51	380
@@ -8,6 +8,9 @@
 use File::Slurp;
 use List::Util;
 
+use PPI;
+use PPI::HTML;
+
 use lib 'lib';
 
 extends 'Frey::ClassLoader';
@@ -228,18 +231,40 @@
 	$table .= qq|</table>|;
 
 	my $pod = Frey::Pod->new( class => $class )->markup;
+	$pod = $pod->{body} if ref($pod);
+
+	my $Document = PPI::Document->new( $self->class_path( $class ) );
+
+	# Create a reusable syntax highlighter
+	my $Highlight = PPI::HTML->new(
+#		line_numbers => 1,
+#		page => 1,
+#		colors => {
+#			line_number => '#CCCCCC',
+#			number      => '#990000',
+#		},
+	);
+
+	# Spit out the HTML
+	my $source = $Highlight->html( $Document );
+
+#	$source =~ s{^.*<body[^>]+>}{}s;
+#	$source =~ s{</body.*$}{}s;
 
 	use Frey::Run;
 	my $runnable = join("\n", map { qq|<a href="/$class/$_">$_</a>| } grep { $class->can($_) } Frey::Run->runnable );
 	$runnable = " runnable: $runnable" if $runnable;
 
 	my $html = {
-		title => "Introspect $class",
-		body => qq|<h1>$class</h1>|
-			. qq|<div class="frey-introspect">$superclasses\n$roles\n$runnable\n|
-			. ( $pod ? qq|<a href="#___top" title="Skip to POD" style="font-size: 80%; color: #aaa;">&darr;pod&darr</a>| : '' )
-			. qq|$table\n$pod</div>|
-
+		title => $class,
+		body => join("\n"
+			, qq|<h1>$class</h1>|,
+			, qq|<div class="frey-introspect">$superclasses\n$roles\n$runnable\n|,
+			, ( $pod ? qq|<a href="#___top" title="Skip to POD" class="frey-skip">pod</a>| : '' )
+			, qq|<a href="#source" title="Skip to source" class="frey-skip">source</a>|
+			, qq|$table\n$pod\n</div>\n|
+			, qq|<h1>Source</h1><a name="source"></a><div class="frey-source">$source</div>|
+		),
 	};
 
 	return $html;