--- trunk/lib/Frey/Web.pm 2008/11/05 21:40:02 316
+++ trunk/lib/Frey/Web.pm 2008/11/17 20:14:12 385
@@ -107,6 +107,7 @@
my $html = qq||
. $self->_head_html
. '' . ( $a->{title} || ref($self) ) . ''
+ . ''
. ( $a->{head} || '' )
. ''
. ( $a->{body} || '' )
@@ -125,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;