lib/SQLSession/Dispatcher.pm

package SQLSession::Dispatcher;

use strict;
use warnings;

use Jifty::Dispatcher -base;

use Data::Dump qw/dump/;

under qr{sql/(\d+)} => run {

        my $q = SQLSession::Model::Query->new();
        $q->load( $1 ) or next_rule;

        warn "q = ",dump( $q );

        set sql_query => $q->sql_query;
        set name => $q->name;
        set database => $q->on_database->id;

        show '/sql';

};

on 'new' => run {
        show '/sql';
};

on '/' => run {
        show '/list';
};

1;
1	package SQLSession::Dispatcher;
2
3	use strict;
4	use warnings;
5
6	use Jifty::Dispatcher -base;
7
8	use Data::Dump qw/dump/;
9
10	under qr{sql/(\d+)} => run {
11
12	my $q = SQLSession::Model::Query->new();
13	$q->load( $1 ) or next_rule;
14
15	warn "q = ",dump( $q );
16
17	set sql_query => $q->sql_query;
18	set name => $q->name;
19	set database => $q->on_database->id;
20
21	show '/sql';
22
23	};
24
25	on 'new' => run {
26	show '/sql';
27	};
28
29	on '/' => run {
30	show '/list';
31	};
32
33	1;