Parent Directory
|
Revision Log
|
Patch
revision 2 by dpavlin, Sat Dec 2 00:08:50 2006 UTC | revision 15 by dpavlin, Sun Dec 3 14:01:53 2006 UTC | |
---|---|---|
# | Line 21 sub run { | Line 21 sub run { |
21 | dsn => 'DBI:Pg:dbname=test', | dsn => 'DBI:Pg:dbname=test', |
22 | ); | ); |
23 | ||
24 | my $q = SQLSession::Model::Query->new(current_user => $system_user); | |
25 | $q->create( | |
26 | name => 'test query', | |
27 | sql_query => 'select * from a;', | |
28 | on_database => $db, | |
29 | ); | |
30 | ||
31 | $q->create( | |
32 | name => 'All films', | |
33 | sql_query => 'select * from film', | |
34 | on_database => $db->create( | |
35 | name => 'Pagila sample database', | |
36 | dsn => 'DBI:Pg:dbname=pagila', | |
37 | ), | |
38 | ); | |
39 | ||
40 | } | } |
41 | ||
42 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |