--- trunk/lib/Frey/Web.pm 2008/11/29 17:48:54 625 +++ trunk/lib/Frey/Web.pm 2008/11/30 14:02:35 634 @@ -25,7 +25,10 @@ is => 'rw', isa => 'Uri', coerce => 1, required => 1, -# default => '/', + default => sub { + cluck "undefined request_url"; + '/'; + }, ); has 'title' => ( @@ -64,7 +67,7 @@ is => 'rw', isa => 'Int', # required => 1, # FIXME we can't have required fields with defaults because Frey::Action isn't smart enough and asks for them - default => 120, + default => 250, ); my %escape = ('<'=>'<', '>'=>'>', '&'=>'&', '"'=>'"'); @@ -463,7 +466,7 @@ warn "## multiline markers ", dump( $multiline_markers ), " -> $multiline_re"; sub log_path { - $Frey::Bootstrap::log_path || warn "no log_path?"; + $Frey::Bootstrap::log_path || die "no log_path?"; } sub warnings_html { @@ -493,6 +496,8 @@ chomp; $line++; + next if m{^\s+(Mojo|Class::MOP|Moose)::}; + my $style = ''; =for filter