--- trunk/lib/Frey/Web.pm	2008/10/30 22:35:11	206
+++ trunk/lib/Frey/Web.pm	2008/11/17 16:59:06	375
@@ -96,6 +96,7 @@
 =cut
 
 use Frey::Bookmarklet;
+use Frey::ClassBrowser;
 
 sub page {
 	my $self = shift;
@@ -111,14 +112,24 @@
 	. ( $a->{body} || '<!-- no body -->' )
 	. qq|<div class="frey-status-line">
 		<a href="/">Frey</a> $Frey::VERSION
-		<a href="?reload=$reload_counter">reload</a>
-		<span class="frey-popup">Bookmarklets<span>| . Frey::Bookmarklet->markup . qq|</span>|
-	. '</body></html>'
-	;
+		<a href="?reload=$reload_counter"><code>| . dump( $ENV{'REQUEST_URI'} ) . qq|</code></a>
+		<span class="frey-popup">Bookmarklets<span>| . Frey::Bookmarklet->markup . qq|</span></span>
+		<span class="frey-popup">ClassBrowser<span>| . Frey::ClassBrowser->markup . qq|</span></span>
+		<span class="frey-popup">ENV<span><code>| . dump( %ENV ) . qq|</code></span></span>
+		</div>
+	    </body></html>
+	|;
 
 	warn "## >>> page ",length($html), " bytes\n" if $self->debug;
 
 	return $html;
 }
 
+sub error {
+	my ( $self, $error ) = @_;
+	warn $error;
+	$error =~ s{at\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;
+	return qq|<pre class="frey-error">$error</pre>|;
+}
+
 1;