line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package DBIx::Inspector::ForeignKey::Pg; |
2
|
1
|
|
|
1
|
|
6
|
use strict; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
38
|
|
3
|
1
|
|
|
1
|
|
5
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
26
|
|
4
|
1
|
|
|
1
|
|
5
|
use utf8; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
6
|
|
5
|
1
|
|
|
1
|
|
27
|
use base qw/DBIx::Inspector::ForeignKey/; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
1159
|
|
6
|
|
|
|
|
|
|
|
7
|
0
|
|
|
0
|
1
|
|
sub pktable_cat { $_[0]->{UK_TABLE_CAT} } |
8
|
0
|
|
|
0
|
1
|
|
sub pktable_schem { $_[0]->{UK_TABLE_SCHEM} } |
9
|
0
|
|
|
0
|
1
|
|
sub pktable_name { $_[0]->{UK_TABLE_NAME} } |
10
|
0
|
|
|
0
|
1
|
|
sub pkcolumn_name { $_[0]->{UK_COLUMN_NAME} } |
11
|
|
|
|
|
|
|
|
12
|
0
|
|
|
0
|
1
|
|
sub fktable_cat { $_[0]->{FK_TABLE_CAT} } |
13
|
0
|
|
|
0
|
1
|
|
sub fktable_schem { $_[0]->{FK_TABLE_SCHEM} } |
14
|
0
|
|
|
0
|
1
|
|
sub fktable_name { $_[0]->{FK_TABLE_NAME} } |
15
|
0
|
|
|
0
|
1
|
|
sub fkcolumn_name { $_[0]->{FK_COLUMN_NAME} } |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
1; |
18
|
|
|
|
|
|
|
|