projects / scpubgit/Q-Branch.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Added the sql expr scripts I've been using to test
[scpubgit/Q-Branch.git] / maint / sqlaexpr
1 use SQL::Abstract;
2 use Devel::Dwarn;
3
4 warn $ARGV[1];
5
6 my @args = eval '('.$ARGV[1].')';
7
8 die $@ if $@;
9
10 Dwarn([ SQL::Abstract->new->${\$ARGV[0]}(@args) ]);
Unnamed repository; edit this file 'description' to name the repository.