--- 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
|;
}