--- trunk/lib/Frey/Web.pm 2008/11/18 16:39:13 417
+++ 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|