view release on metacpan or  search on metacpan

t/TestApp/lib/TestApp/Dispatcher.pm  view on Meta::CPAN

    set after      => $after;
    set after_once => $after_once;
};

after '/dispatch/*' => run {
    return if already_run;
    $after_once++;
};

after '/dispatch/*' => run {
    $after++;
};

on qr{/setuser/(.*)} => run {
    my $name = $1;

    my $current_user = TestApp::CurrentUser->new( name => $name );
    Jifty->web->current_user( $current_user );
    show '/index.html';
};



before '/before_stage_show' => run { show '/index.html'; };
on '/on_stage_show' => run { show '/index.html'; };
after '/after_stage_show' => run { show '/index.html'; };



before 'pre-redir-region' => run {
    redirect('/post-redir-region');

};

before '__jifty/webservices/*' => run {
    my (@actions) = grep { $_->class eq 'Jifty::Action::Redirect' } values %{ Jifty->web->request->{'actions'} };
    $_->active(0) for @actions;
};

on qr{(__jifty/webservices/.*)} => run {
    my (@actions) = values %{ Jifty->web->request->{'actions'} };
    for my $act (@actions) {
        warn Dumper($act);
    }
};

on HTTPS '/dispatch/protocol' => run {
    set content => 'HTTPS';
};

on HTTP '/dispatch/protocol' => run {
    set content => 'NOT HTTPS';
};

on '/dispatch/protocol' => run {
    set footer => 'normal';
};



before '/content-type-bug' => run {
    
    Jifty->web->navigation->child( test1 => label => '<i>Italic</i>', escape_label => 0);

    my $content = Jifty->web->render_template('/sample-widget');
    Jifty->web->navigation->child( test2 => label => $content, escape_label => 0);
};


before '/someplace' => run {
    my $result = Jifty::Result->new;
    $result->action_class("TestApp::Action::DoSomething");
    Jifty->web->response->result(foo => $result);
    redirect '/otherplace';
};

1;