On 12/20/05 5:20 PM, "Mark Stosberg" <[EMAIL PROTECTED]> wrote:
> On 2005-12-20, Ricardo SIGNES <[EMAIL PROTECTED]> wrote:
>>
>> We do this a lot, with a method that, simplified to remove other weird thin=
>> gs
>> we do, looks like this:
>>
>> sub redispatch {
>> my ($self, $newclass) =3D @_;
>> eval "require $newclass";
>> die $@ if $@;
>>
>> # by default, at the end of the runmode, the value is sent
>> # as the response. we want to return the value instead.
>> local $ENV{CGI_APP_RETURN_ONLY} =3D 1;
>>
>> $self->register_wrapper; # set up TT2 wrapping, a la Mason autohandler
>>
>> return $newclass->new(
>> PARAMS =3D> { map { $_ =3D> $self->param($_) } $self->param },
>> QUERY =3D> $self->query,
>> )->run;
>> }
>>
>> This works very nicely.
>
> Interesting. This looks sort of like the sub_request that Catalyst has:
>
> http://search.cpan.org/perldoc?Catalyst::Plugin::SubRequest
>
> Why not use an external redirect, giving the resulting page a bookmarkable
> URL?
>
> (It realize it takes a little more time and resources for an external
> redirect because it's a roundtrip to the browser and back.)
I thought the point of doing these kind of subrequests was to enable filling
in a section of the resulting output page with the output of another
run_mode. At least that is what I thought Cat::Plugin::Subrequest did,
although I haven't used it.
Sean
---------------------------------------------------------------------
Web Archive: http://www.mail-archive.com/[email protected]/
http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
