line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
1
|
|
|
1
|
|
624
|
use 5.006; use strict; use warnings; |
|
1
|
|
|
1
|
|
2
|
|
|
1
|
|
|
1
|
|
6
|
|
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
19
|
|
|
1
|
|
|
|
|
4
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
62
|
|
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
package DBIx::Simple::Concrete; |
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
our $VERSION = '1.006'; |
6
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
330
|
use DBIx::Simple (); |
|
1
|
|
|
|
|
8
|
|
|
1
|
|
|
|
|
21
|
|
8
|
1
|
|
|
1
|
|
411
|
use SQL::Concrete (); |
|
1
|
|
|
|
|
3606
|
|
|
1
|
|
|
|
|
127
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub import { |
11
|
1
|
|
|
1
|
|
1301
|
shift; |
12
|
1
|
|
|
|
|
9
|
my $prelude = sprintf qq'package %s;\n#line %d "%s"\n', ( caller )[0,2,1]; |
13
|
1
|
|
|
|
|
79
|
my $sub = eval qq{ sub { $prelude SQL::Concrete->import(\@_) } }; |
14
|
1
|
|
|
|
|
13
|
&$sub; |
15
|
|
|
|
|
|
|
} |
16
|
|
|
|
|
|
|
|
17
|
1
|
|
|
1
|
0
|
1054
|
sub cquery { shift->query( SQL::Concrete::Renderer->new->render( @_ ) ) } |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
die 'Too late to patch DBIx::Simple' if DBIx::Simple->can( 'cquery' ); |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
*DBIx::Simple::cquery = \&cquery; |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
__END__ |