--- trunk/lib/Frey/Web.pm 2008/10/31 19:53:50 214 +++ trunk/lib/Frey/Web.pm 2008/11/17 20:14:12 385 @@ -107,14 +107,16 @@ my $html = qq|| . $self->_head_html . '' . ( $a->{title} || ref($self) ) . '' + . '' . ( $a->{head} || '' ) . '' . ( $a->{body} || '' ) . qq|
Frey $Frey::VERSION - reload + | . dump( $ENV{'REQUEST_URI'} ) . qq| Bookmarklets| . Frey::Bookmarklet->markup . qq| ClassBrowser| . Frey::ClassBrowser->markup . qq| + ENV| . dump( %ENV ) . qq|
|; @@ -124,4 +126,11 @@ return $html; } +sub error { + my ( $self, $error ) = @_; + warn $error; + $error =~ s{at\s+(\S+)\s+line\s+(\d+)}{ $1 line $2}gsm; + return qq|
$error
|; +} + 1;