--- trunk/lib/Frey/Web.pm 2008/11/18 13:57:52 410 +++ trunk/lib/Frey/Web.pm 2008/11/18 16:54:10 418 @@ -35,6 +35,16 @@ default => '/', ); +has 'title' => ( + is => 'rw', + isa => 'Str', + lazy => 1, + default => sub { + my ($self) = @_; + ref($self); + }, +); + =head2 inline_smaller_than Inline JavaScript and CSS smaller than this size into page reducing @@ -144,11 +154,11 @@ my $html = join("\n", qq||, $self->_head_html, - '' . ( $a->{title} || ref($self) ) . '', + '' . ( $self->title || $a->{title} || ref($self) ) . '', '', ( $a->{head} || '' ), '', - ( $a->{body} || '' ), + ( $a->{body} || $self->markup || '' ), qq|
Frey $Frey::VERSION @@ -171,6 +181,7 @@ $error .= " at $filename line $line" if $error !~ m{ at }; warn "WARN: $error\n"; $error =~ s{at\s+(\S+)\s+line\s+(\d+)}{at $1 line $2}gsm; + $error =~ s{(via package ")([\w:]+)(")}{$1$2$3}gsm; return qq|
$error
|; }