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;

        show '/sql.html';

};

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;
20
21	show '/sql.html';
22
23	};
24
25	1;