--- trunk/lib/Frey/Run.pm 2008/11/30 23:19:06 652 +++ trunk/lib/Frey/Run.pm 2008/11/30 23:49:32 653 @@ -57,6 +57,17 @@ default => 'html', ); +has 'request_url' => ( + documentation => 'Take url from params if not specified', + is => 'rw', + isa => 'Uri', coerce => 1, + lazy => 1, + default => sub { + my $self = shift; + $self->params->{request_url}; + }, +); + sub html { my ( $self ) = @_; @@ -137,6 +148,7 @@ if ( $@ ) { my $error = $@; my $o = Frey->new; + $o->{request_url} = $self->request_url; # sigh, this is dynamic languge, right? Frey::Web->meta->apply( $o ); $html = $o->page( body => $self->error( $error ) ); }