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.html';

};

under 'new' => run {
        show '/sql.html';
};

1;
1	dpavlin	20	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	dpavlin	21	set database => $q->on_database->id;
20	dpavlin	20
21			show '/sql.html';
22
23			};
24
25	dpavlin	21	under 'new' => run {
26			show '/sql.html';
27			};
28
29	dpavlin	20	1;