--- trunk/lib/Frey/Web.pm 2008/11/18 13:57:52 410 +++ trunk/lib/Frey/Web.pm 2008/11/18 17:41:41 422 @@ -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 @@ -126,7 +136,11 @@ my $status_line = ''; foreach my $part ( @{ $self->status } ) { - confess "part not hash ",dump( $part ) unless ref($part) eq 'HASH'; + if ( ref($part) ne 'HASH' ) { + warn "part not hash ",dump( $part ) ; + #$self->status( $part ); + next; + } foreach my $name ( keys %$part ) { my $content = $part->{$name}; if ( ref($content) ) { @@ -144,11 +158,11 @@ my $html = join("\n", qq|
|, $self->_head_html, - '