Jifty::Plugin::LetMe::Dispatcher - Dispatcher for LetMe plugin

Jifty documentation

Contained in the Jifty distribution.

Index

NAME
DESCRIPTION

Code Index:

package Jifty::Plugin::LetMe::Dispatcher
EOF

NAME

Jifty::Plugin::LetMe::Dispatcher - Dispatcher for LetMe plugin

DESCRIPTION

All the dispatcher rules jifty needs to support Jifty::LetMe/

Jifty documentation

Contained in the Jifty distribution.

use strict;
use warnings;

package Jifty::Plugin::LetMe::Dispatcher;
use Jifty::Dispatcher -base;

## LetMes
before qr'^/let/(.*)' => run {
    my $let_me = Jifty::LetMe->new();
    $let_me->from_token($1);
    redirect '/error/let_me/invalid_token' unless $let_me->validate;
    Jifty->web->temporary_current_user( $let_me->validated_current_user );

    my %args = %{ $let_me->args };
    set $_ => $args{$_} for keys %args;
    set let_me => $let_me;
};

on qr'^/let/' =>
    run { my $let_me = get 'let_me'; show '/let/' . $let_me->path; };

1;