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

};

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	1;