lib/Perly/Dispatcher.pm

package Perly::Dispatcher;

use strict;
use warnings;

use Jifty::Dispatcher -base;

use Data::Dump qw/dump/;

before '*' => run {
        my $top = Jifty->web->navigation;
        my $user = Jifty->web->current_user->user_object;

#       Jifty->log->debug("current_user = ", dump( $user ));

        $top->child( 'Upload' => url => '/upload' );
        $top->child( 'Run' => url => '/run' );
        $top->child( 'Prefs' => url => '/prefs' )
                if Jifty->web->current_user->id;

};

under '/run' => [
        on qr{code=(\d+)} => run {
                set code => $1;
        },
        on qr{input=(\d+)} => run {
                set input => $1;
        },
        show '/run',
];

on qr{/edit/id=(\d+)} => run {
        set id => $1;
        show '/edit';
};

1;
1	dpavlin	8	package Perly::Dispatcher;
2
3			use strict;
4			use warnings;
5
6			use Jifty::Dispatcher -base;
7
8			use Data::Dump qw/dump/;
9
10			before '*' => run {
11			my $top = Jifty->web->navigation;
12			my $user = Jifty->web->current_user->user_object;
13
14			# Jifty->log->debug("current_user = ", dump( $user ));
15
16			$top->child( 'Upload' => url => '/upload' );
17	dpavlin	14	$top->child( 'Run' => url => '/run' );
18	dpavlin	37	$top->child( 'Prefs' => url => '/prefs' )
19			if Jifty->web->current_user->id;
20	dpavlin	8
21			};
22
23	dpavlin	30	under '/run' => [
24			on qr{code=(\d+)} => run {
25			set code => $1;
26			},
27			on qr{input=(\d+)} => run {
28			set input => $1;
29			},
30			show '/run',
31			];
32
33			on qr{/edit/id=(\d+)} => run {
34			set id => $1;
35			show '/edit';
36			};
37
38	dpavlin	8	1;