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' );

};

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
19	};
20
21	under '/run' => [
22	on qr{code=(\d+)} => run {
23	set code => $1;
24	},
25	on qr{input=(\d+)} => run {
26	set input => $1;
27	},
28	show '/run',
29	];
30
31	on qr{/edit/id=(\d+)} => run {
32	set id => $1;
33	show '/edit';
34	};
35
36	1;