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	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	$top->child( 'Run' => url => '/run' );
18	$top->child( 'Prefs' => url => '/prefs' )
19	if Jifty->web->current_user->id;
20
21	};
22
23	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	1;