Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.

Continuity and templating 3 Comments More | Login | Reply /

 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • use Mason's templating parts, not its web framework parts, like you would with Catalyst or Jifty. see the source of Catalyst::View::Mason, and the "using Mason in standalone scripts" part of HTML::Mason::Admin.
    • (I'll be damned if I can get the code to format within <code> tags, so this is all Code format.)

      I actually tried installing Jifty last night because I realized it might be more what I had in mind (continuations, Mason...), but I aborted the install after about a half hour of exciting CPAN action. (Maybe I should try Catalyst I guess, but it's never really felt right to me..)

      Then I ended up doing just what you mentioned, using Mason as a standalone script. It wasn't very elegant, though. Unfortunately
      • Yeah. In larger apps I usually end up putting $request into an instance variable so that I don't have to pass it around all the time. You can do the same thing with your Mason interpreter, I imagine your main body might look like:

        sub main {
            my $request = shift;
            my $app = App->new(request => $request);
            $app->run;
        }

        package App.pm;
        # ...

        sub run {
            my $self = shift;
            $self->display('/one.html');
            my $num1 = $self->param('num');
            $self->display('/two.html');
            my $num2 = $self->param('num');
            $self->display('/sum.html',
                num1 => $num1,
                num2 => $num2,
                 sum => $num1 + $num2);
        }

        Also, instead of explicitly getting and setting num1 num2 etc, maybe you can use $request->params, which returns a list of all name/value pairs (you can treat it like a hash if you like) -- take that and give the whole thing to each template. Or something.
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.