1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use open qw(:std :utf8);
use lib qw(lib);
use DBIx::DR::PlPlaceHolders;
use Benchmark qw(:all) ;
use Data::Dumper;
my $sql = q[
SELECT
u.*
FROM
users AS u
% if ($filters->{role_name}) {
LEFT JOIN roles AS r ON u.rid = r.id
% }
% if ($filters->{user_name}) {
LEFT JOIN user_cards AS uc ON u.id = uc.uid
% }
WHERE
1 = 1
% if ($filters->{role_name}) {
AND r.name = <%= $filters->{role_name} %>
% }
% if ($filters->{user_name}) {
AND uc.name = <%= $filters->{user_name} %>
% }
];
print "Two active filters\n";
my $tp = DBIx::DR::PlPlaceHolders->new;
my $b1 = timeit 10000, sub {
$tp->sql_transform( $sql,
filters => { role_name => 'Superadmin', user_name => 'Vasya' }
);
};
printf "%s\n", $b1->timestr;
printf "One active filter\n";
my $b2 = timeit 10000, sub {
$tp->sql_transform(
$sql,
filters => { role_name => 'Superadmin' }
);
};
printf "%s\n", $b2->timestr;
print "No active filters\n";
my $b3 = timeit 10000, sub {
$tp->sql_transform($sql, filters => {});
};
printf "%s\n", $b3->timestr;
=head1 COPYRIGHT
Copyright (C) 2011 Dmitry E. Oboukhov <unera@debian.org>
Copyright (C) 2011 Roman V. Nikolaev <rshadow@rambler.ru>
This program is free software, you can redistribute it and/or
modify it under the terms of the Artistic License.
=cut
|
