--- trunk/lib/Frey/Introspect.pm	2008/11/18 11:45:15	405
+++ trunk/lib/Frey/Introspect.pm	2008/11/18 11:53:58	406
@@ -232,11 +232,12 @@
 	my $pod = Frey::Pod->new( class => $class )->markup;
 	$pod = $pod->{body} if ref($pod);
 
-	my $Document = PPI::Document->new( $self->class_path( $class ) );
+	my $path = $self->class_path( $class );
+	my $Document = PPI::Document->new( $path );
 
 	# Create a reusable syntax highlighter
 	my $Highlight = PPI::HTML->new(
-#		line_numbers => 1,
+		line_numbers => 1,
 #		page => 1,
 #		colors => {
 #			line_number => '#CCCCCC',
@@ -247,9 +248,13 @@
 	# Spit out the HTML
 	my $source = $Highlight->html( $Document );
 
+	$source =~ s{(<span.*?line_number.*>\s*)(\d+)(:\s*</span>)}{$1<a href="/editor+$path+$2" title="edit $path +$2" target="editor">$2</a>$3}g;
+
+	# strip page html
 #	$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;