| line |
true |
false |
branch |
|
597
|
3 |
0 |
if defined $^O |
|
598
|
0 |
3 |
if ($self->{'sprite_Crypt'}) |
|
601
|
0 |
0 |
if $#cryptinfo < 1 |
|
602
|
0 |
0 |
if $#cryptinfo < 2 |
|
604
|
0 |
0 |
if $cryptinfo[0] =~ s/^encrypt\=//i |
|
605
|
0 |
0 |
if $cryptinfo[0] =~ s/^decrypt\=//i |
|
606
|
0 |
0 |
unless $cryptinfo[0] =~ /\:\:/ |
|
609
|
0 |
0 |
if ($@) { } |
|
617
|
0 |
0 |
if ($@) |
|
636
|
3 |
6 |
if ($type eq 'read') { } |
|
|
3 |
3 |
elsif ($type eq 'write') { } |
|
|
3 |
0 |
elsif ($type eq 'record') { } |
|
654
|
0 |
3 |
unless $platform |
|
661
|
0 |
3 |
if ($platform =~ /(?:darwin|bsdos)/i) { } |
|
|
0 |
3 |
elsif ($platform =~ /(OS2|Win|DOS)/i) { } |
|
|
0 |
3 |
elsif ($platform =~ /^Mac(?:OS|intosh)?$/i) { } |
|
|
0 |
3 |
elsif ($platform =~ /^VMS$/i) { } |
|
687
|
0 |
3 |
unless $directory |
|
692
|
3 |
0 |
if (-d _ and -e _ and -r _) { } |
|
704
|
0 |
3 |
unless $ext |
|
720
|
18 |
0 |
unless $self->{'CaseTableNames'} |
|
721
|
0 |
18 |
if ($path) { } |
|
729
|
10 |
8 |
wantarray ? : |
|
736
|
0 |
0 |
if (not $file && $lock_try) { } |
|
760
|
0 |
0 |
if (sysopen FILE, $self->{'sprite_lock_file'}, 193, 420) { } |
|
779
|
0 |
4 |
if ($self->{'fake_lock'}) |
|
781
|
0 |
0 |
unless close $self->{'lock_handle'} |
|
782
|
0 |
0 |
unless unlink $self->{'sprite_lock_file'} |
|
797
|
0 |
0 |
wantarray ? : |
|
|
0 |
13 |
unless $query |
|
806
|
13 |
0 |
if ($query =~ /^($self->{'commands'})/io) { } |
|
811
|
6 |
7 |
if (ref $status eq 'ARRAY') { } |
|
815
|
6 |
0 |
wantarray ? : |
|
819
|
1 |
6 |
if ($status < 0) { } |
|
823
|
1 |
0 |
wantarray ? : |
|
827
|
6 |
0 |
wantarray ? : |
|
833
|
0 |
0 |
wantarray ? : |
|
843
|
0 |
1 |
unless $self->{'silent'} |
|
860
|
1 |
0 |
if $errdetails |
|
863
|
0 |
1 |
if $self->{'RaiseError'} |
|
874
|
1 |
3 |
unless $self->{'dirty'} |
|
876
|
3 |
0 |
if ($file) { } |
|
879
|
3 |
0 |
if $self->{'ext'} |
|
886
|
0 |
3 |
if $status <= 0 |
|
888
|
0 |
3 |
if $status <= 0 |
|
901
|
0 |
0 |
if $self->{'sprite_forcereplace'} and -w $blobfile and -e $tempfile |
|
902
|
0 |
0 |
if $? |
|
903
|
0 |
0 |
unless rename $tempfile, $blobfile |
|
904
|
0 |
0 |
if $bloberror |
|
906
|
0 |
3 |
if ($bloberror) { } |
|
990
|
0 |
4 |
unless $query |
|
995
|
0 |
4 |
unless ($colmlist =~ /\S/o) |
|
997
|
0 |
0 |
unless $self->{'CaseTableNames'} |
|
1000
|
0 |
0 |
if $colmlist =~ /^\-?\d+$/o |
|
1026
|
0 |
4 |
$self->{'sprite_nocase'} ? : |
|
1032
|
6 |
0 |
unless $i |
|
1033
|
2 |
4 |
if ($i) { } |
|
1036
|
1 |
1 |
if ($query =~ s/([\=\!]\^\s*)(["'])(.*?)\2/$1$2$3$2$caseopt/s) |
|
1071
|
1 |
11 |
if $lx[$i] eq '(' |
|
1072
|
1 |
11 |
unless $parincnt |
|
1073
|
1 |
10 |
if $lx[$i] eq ')' |
|
1086
|
3 |
0 |
unless $delim eq '/' |
|
1090
|
2 |
1 |
if ($four =~ /\(.*\)/) |
|
1099
|
2 |
1 |
if $catchmatch |
|
1115
|
2 |
3 |
if ($strings[$i] =~ /^m\'/o) { } |
|
1118
|
2 |
0 |
if (not $string =~ /\`/o) { } |
|
1136
|
0 |
4 |
if ($query =~ /^($column)$/) |
|
1140
|
0 |
0 |
unless $i =~ /($colmlist)/i |
|
1156
|
0 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
1157
|
0 |
0 |
if ($one =~ /NUM\s*\(/ or do {
$$self{'types'}
}->{$ONE} =~ /$NUMERICTYPES/io) { } |
|
1176
|
2 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
1178
|
1 |
1 |
if ($one =~ /NUM\s*\(/ or do {
$$self{'types'}
}->{$ONE} =~ /$NUMERICTYPES/iso) { } |
|
|
0 |
1 |
elsif ($self->{'StrictCharComp'} == 0 and do {
$$self{'types'}
}->{$ONE} eq 'CHAR') { } |
|
1181
|
1 |
0 |
if ($three =~ /^\*\d+/s) { } |
|
1192
|
1 |
0 |
if ($opno =~ /^[\+\-\d\.][\d\.Ex\+\-\_]*$/s) { } |
|
1200
|
1 |
0 |
unless $opno eq '0' |
|
1207
|
0 |
0 |
if ($three =~ /^\*\d+/) |
|
1230
|
5 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
1231
|
0 |
5 |
$match =~ /\b(?:$special)\b/iso ? : |
|
1257
|
1 |
0 |
unless ($res =~ /$i/) |
|
1259
|
1 |
0 |
if $one =~ s/\^/~/os |
|
1261
|
0 |
1 |
if $self->{'sprite_nocase'} and $isalike |
|
1276
|
8 |
0 |
unless ($self->{'sprite_CaseFieldNames'}) |
|
1278
|
0 |
8 |
if defined $column |
|
1286
|
0 |
15 |
unless ($self->{'fields'}{$column}) |
|
1318
|
0 |
1 |
unless $values->{$i} =~ /\S/o |
|
1328
|
1 |
4 |
if ($command eq 'update') |
|
1332
|
0 |
1 |
if (do {
$$self{'types'}
}->{$i} =~ /AUTO/o) |
|
1340
|
3 |
2 |
$#columns ? : |
|
1353
|
4 |
1 |
if ($fields) { } |
|
1376
|
0 |
13 |
unless defined $self->{'records'}[$loop] |
|
1380
|
7 |
6 |
if (not $condition or eval $condition) { } |
|
|
0 |
6 |
elsif ($@) { } |
|
1382
|
4 |
3 |
if ($command eq 'select') { } |
|
|
3 |
0 |
elsif ($command eq 'update') { } |
|
|
0 |
0 |
elsif ($command eq 'add') { } |
|
|
0 |
0 |
elsif ($command eq 'drop') { } |
|
1384
|
0 |
4 |
if $self->{'sprite_reclimit'} and $loop >= $self->{'sprite_reclimit'} |
|
1385
|
4 |
0 |
if ($fields) { } |
|
1392
|
0 |
7 |
if ($types[$i] and $rawvalue =~ /^\d+$/o) |
|
1397
|
0 |
0 |
if (open FILE, "<$blobfid") { } |
|
1413
|
0 |
0 |
if (open FILE, "<$blobfid") { } |
|
1457
|
0 |
3 |
if $coltypes[$i] |
|
1464
|
0 |
3 |
if ($i eq $keyfields[$j]) |
|
1470
|
0 |
0 |
if ($self->{'records'}[$k]{$i} eq $rawvalue) |
|
1474
|
0 |
0 |
unless ($jj =~ /$dontchkcols/) |
|
1478
|
0 |
0 |
unless $self->{'records'}[$k]{$jj} eq $_->{$jj} |
|
1489
|
0 |
3 |
if $matchcnt and $matchcnt > $#valuelist |
|
1498
|
3 |
0 |
if $rawvalue =~ s/\$(\d)/$perlmatches[$1 - 1]/g |
|
1499
|
3 |
0 |
if ($valuenames{$jj} =~ /^[_a-zA-Z]/o) { } |
|
1501
|
0 |
3 |
if ($self->{'sprite_CaseFieldNames'}) { } |
|
1503
|
0 |
0 |
if ($self->{'fields'}{"$valuenames{$jj}"}) { } |
|
1508
|
0 |
0 |
if $@ |
|
1517
|
0 |
3 |
if ($self->{'fields'}{uc $valuenames{$jj}}) { } |
|
1522
|
0 |
3 |
if $@ |
|
1533
|
0 |
0 |
if $valuenames{$jj} =~ /^\'/o |
|
1537
|
3 |
0 |
unless ($colskipreformat) |
|
1539
|
0 |
3 |
if (length $rawvalue > 0 and do {
$$self{'types'}
}->{$jj} =~ /$NUMERICTYPES/) { } |
|
1549
|
0 |
3 |
do {
$$self{'types'}
}->{$jj} =~ /$BLOBTYPES/ ? : |
|
1550
|
0 |
3 |
unless ($self->{'LongTruncOk'} or $rawvalue eq $k or do {
$$self{'types'}
}->{$jj} eq 'FLOAT') |
|
1556
|
0 |
3 |
if (do {
$$self{'types'}
}->{$jj} eq 'FLOAT' and int $rawvalue != int $k) |
|
1563
|
0 |
3 |
if (do {
$$self{'types'}
}->{$jj} eq 'CHAR' and length $rawvalue > 0) { } |
|
1586
|
0 |
3 |
if ($coltypes[$i]) { } |
|
1592
|
0 |
0 |
if (open FILE, ">$blobfid") { } |
|
1595
|
0 |
0 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { } |
|
1618
|
0 |
3 |
if $@ |
|
1634
|
0 |
0 |
if $command eq 'select' |
|
1635
|
0 |
0 |
if $command eq 'delete' |
|
1639
|
0 |
5 |
if ($status <= 0) { } |
|
|
1 |
4 |
elsif ($command ne 'select') { } |
|
1652
|
0 |
4 |
if ($distinct) |
|
1663
|
0 |
0 |
if ($i eq '') |
|
1672
|
0 |
4 |
if (@$ordercols) |
|
1696
|
0 |
0 |
$descorder->[0] =~ /de/io ? : |
|
1700
|
0 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
1702
|
0 |
0 |
defined $colorder{$j} ? : |
|
1707
|
0 |
0 |
$k >= 0 ? : |
|
1708
|
0 |
0 |
if (do {
$$self{'types'}
}->{$j} eq 'FLOAT' or do {
$$self{'types'}
}->{$j} eq 'DOUBLE') { } |
|
|
0 |
0 |
elsif (length $fieldval > 0 and do {
$$self{'types'}
}->{$j} =~ /$NUMERICTYPES/) { } |
|
1724
|
0 |
0 |
if $do |
|
1728
|
0 |
0 |
if ($jcnt < $#$ordercols) |
|
1730
|
0 |
0 |
$$descorder[++$jcnt] =~ /de/io ? : |
|
1733
|
0 |
0 |
if $SI[$i] =~ /(\d+)$/o |
|
1735
|
0 |
0 |
$do ? : |
|
1743
|
0 |
0 |
if $SI[$i] =~ /(\d+)$/o |
|
1747
|
0 |
4 |
if ($theresanull) |
|
1754
|
0 |
4 |
if $self->{'sprite_actlimit'} > 0 and $#{$results;} >= $self->{'sprite_actlimit'} |
|
1766
|
0 |
11 |
unless $file |
|
1768
|
1 |
10 |
if ($file =~ /^DUAL$/io) |
|
1787
|
10 |
0 |
if $self->{'ext'} |
|
1792
|
2 |
8 |
if ($self->{'table'} ne $table or ($self->{'file'} ne $file or $self->{'timestamp'} != $stats[9])) |
|
1795
|
1 |
1 |
if (-e _ and -s _ and -r _) { } |
|
1810
|
1 |
9 |
if $status == 0 |
|
1821
|
0 |
0 |
if (-e _ and -T _ and -s _ and -r _) { } |
|
1834
|
0 |
0 |
if $? |
|
1836
|
0 |
0 |
if ($blobglob and $bloberror) { } |
|
1873
|
0 |
5 |
if $query =~ /^select\s+distinct/o |
|
1877
|
5 |
0 |
if ($query =~ /^select\s+
(.+)\s+
from\s+
(\w+)(.*)$/iosx) { } |
|
1889
|
1 |
4 |
if ($column_stuff =~ /^table_name\s*$/io and $table =~ /^(user|all)_tables$/io) |
|
1893
|
1 |
0 |
unless not $full_path =~ /\S/o or $full_path =~ /$self->{'separator'}{$self->{'platform'}}$/ |
|
1898
|
0 |
1 |
if ($^O =~ /Win/i) { } |
|
1918
|
0 |
1 |
if ($^O =~ /Win/i) { } |
|
1948
|
7 |
3 |
if $column_stuff =~ s/^($self->{'column'}(?:\.(?:$psuedocols))?)// |
|
1950
|
3 |
7 |
unless $fnname |
|
1952
|
6 |
1 |
if ($#column_stuff <= 0 or $column_stuff[0] eq ',') |
|
1963
|
2 |
56 |
if ($column_stuff[$i] eq '(') |
|
1968
|
1 |
57 |
if not $parincnt and $found_parin |
|
1969
|
2 |
55 |
if $column_stuff[$i] eq ')' |
|
1974
|
1 |
0 |
unless $t |
|
1981
|
0 |
4 |
if $cfr < 0 |
|
2004
|
0 |
7 |
if ($self->{'sprite_CaseFieldNames'}) { } |
|
2025
|
0 |
4 |
if ($extra =~ s/([\s|\)]+)order\s+by\s*(.*)/$1/is) |
|
2034
|
0 |
0 |
if $ordercols[$i] =~ s/(\w+)\W+(asc|desc|ascending|descending)$/$1/is |
|
2045
|
3 |
1 |
if ($extra =~ /^\s+where\s*(.+)$/iso) |
|
2049
|
0 |
4 |
if ($column_stuff =~ /\*/o) |
|
2053
|
0 |
0 |
if ($self->{'sprite_CaseFieldNames'}) { } |
|
2070
|
4 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2071
|
0 |
4 |
unless $self->check_columns($columns) |
|
2073
|
4 |
0 |
if ($#fields >= 0) |
|
2110
|
1 |
0 |
if ($query =~ /^update\s+($path)\s+set\s+(.+)$/iso) { } |
|
2112
|
0 |
1 |
if $table =~ /^DUAL$/io |
|
2116
|
0 |
1 |
if ($extra =~ /^\(.+\)\s*where/so) |
|
2124
|
0 |
1 |
if $cfr < 0 |
|
2126
|
0 |
1 |
unless -w $self->{'file'} |
|
2176
|
1 |
0 |
$extra =~ s/(.*)where(.+)$/where$1/is ? : |
|
2194
|
1 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2210
|
0 |
1 |
unless $self->check_columns($columns) |
|
2230
|
0 |
0 |
if ($query =~ /^delete\s+from\s+($path)(?:\s+where\s+(.+))?$/iso) { } |
|
2236
|
0 |
0 |
if $cfr < 0 |
|
2238
|
0 |
0 |
unless -w $self->{'file'} |
|
2239
|
0 |
0 |
if ($wherepart =~ /\S/o) { } |
|
2266
|
1 |
0 |
if ($query =~ /^drop\s+table\s+($path)\s*$/iso) |
|
2271
|
1 |
0 |
if $cfr < 0 |
|
2285
|
0 |
0 |
unlink($self->{'file'}) ? : |
|
2294
|
0 |
0 |
if $query =~ s/^\s*truncate\s+table\s+/delete from /iso |
|
2306
|
0 |
1 |
if $cfr < 0 |
|
2356
|
0 |
0 |
if do {
$$self{'types'}
}->{$i} =~ /$REFTYPES/o |
|
2365
|
0 |
0 |
if not scalar @{$self->{'records'};} or $loop >= scalar @{$self->{'records'};} |
|
2369
|
0 |
0 |
if (eval $condition) { } |
|
2392
|
0 |
0 |
if $status > 0 |
|
2406
|
1 |
1 |
if ($query =~ /^create\s+table\s+($self->{'path'})\s*\((.+)\)\s*$/is) { } |
|
|
1 |
0 |
elsif ($query =~ /^create\s+sequence\s+($self->{'path'})(?:\s+inc(?:rement)?\s+by\s+(\d+))?(?:\s+start\s+with\s+(\d+))?/is) { } |
|
2410
|
1 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2430
|
1 |
3 |
if ($fieldlist[$i] =~ s/^PRIMARY\s+KEY\s*\(([^\)]+)\)$//i) |
|
2434
|
1 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2451
|
1 |
3 |
unless $i =~ /\S/o |
|
2454
|
0 |
0 |
if $4 |
|
2458
|
3 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2462
|
0 |
3 |
if $i =~ s/\s*PRIMARY\s+KEY\s*//i |
|
2466
|
3 |
0 |
if ($i =~ /(\w+)(?:\((\d+))?(?:\x02\^2jSpR1tE\x02(\d+))?/o) { } |
|
2476
|
0 |
3 |
unless ($len) |
|
2479
|
0 |
0 |
if $tp =~ /NUM|INT|FLOAT|DOUBLE/o |
|
2481
|
0 |
0 |
if $tp =~ /$BLOBTYPES/ |
|
2483
|
3 |
0 |
unless ($scale) |
|
2486
|
0 |
3 |
if ($tp eq 'FLOAT') { } |
|
|
1 |
2 |
elsif ($tp =~ /$NUMERICTYPES/) { } |
|
2496
|
0 |
3 |
if ($i =~ /\<3\>/) |
|
2501
|
0 |
0 |
if (length $value > 0 and $tp =~ /$NUMERICTYPES/) { } |
|
2511
|
0 |
0 |
$tp =~ /$BLOBTYPES/ ? : |
|
2512
|
0 |
0 |
unless ($self->{'LongTruncOk'} or $value eq $rawvalue or $tp eq 'FLOAT') |
|
2518
|
0 |
0 |
if ($tp eq 'FLOAT' and int $value != int $rawvalue) |
|
2525
|
0 |
0 |
if ($tp eq 'CHAR' and length $rawvalue > 0) { } |
|
2554
|
0 |
1 |
if $cfr < 0 |
|
2560
|
1 |
0 |
unless $incval |
|
2561
|
1 |
0 |
unless $startval |
|
2565
|
0 |
1 |
if $self->{'sprite_forcereplace'} and -e $new_file |
|
2566
|
1 |
0 |
if (open FILE, ">$new_file") { } |
|
2594
|
0 |
0 |
if ($query =~ /^alter\s+table\s+($path)\s+(.+)$/iso) { } |
|
2597
|
0 |
0 |
if ($extra =~ /^(add|modify|drop)\s*(.+)$/iso) { } |
|
2616
|
0 |
0 |
if $cfr < 0 |
|
2626
|
0 |
0 |
unless $i =~ /\S/o |
|
2630
|
0 |
0 |
if $4 |
|
2634
|
0 |
0 |
if $i =~ s/^(\d+)\s*//o |
|
2638
|
0 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2641
|
0 |
0 |
if $fd eq $keyfields[$j] |
|
2649
|
0 |
0 |
if ($type =~ /modify/io) |
|
2651
|
0 |
0 |
unless ($tp =~ /[a-zA-Z]/) |
|
2655
|
0 |
0 |
unless ($tp eq $self->{'types'}{$fd}) |
|
2657
|
0 |
0 |
if ($#{$$self{'records'};} >= 0) |
|
2664
|
0 |
0 |
if defined $self->{'defaults'}{$fd} |
|
2665
|
0 |
0 |
unless ($tp eq $self->{'types'}{$fd}) |
|
2673
|
0 |
0 |
if $x =~ s/(\d+)//o |
|
2674
|
0 |
0 |
unless ($self->{'lengths'}{$fd}) |
|
2677
|
0 |
0 |
if $tp =~ /NUM|INT|FLOAT|DOUBLE/o |
|
2679
|
0 |
0 |
if $tp =~ /$BLOBTYPES/ |
|
2681
|
0 |
0 |
if ($self->{'lengths'}{$fd} < $oldln and not $tp =~ /$BLOBTYPES/) |
|
2691
|
0 |
0 |
if ($self->{'types'}{$fd} =~ /$REFTYPES/o or $tp =~ /$REFTYPES/o) |
|
2698
|
0 |
0 |
if defined $olddf and not defined $self->{'defaults'}{$fd} |
|
2699
|
0 |
0 |
if $self->{'defaults'}{$fd} eq "\cB^4jSpR1tE\cB" |
|
2700
|
0 |
0 |
if ($x =~ s/\,\s*(\d+)//o) { } |
|
|
0 |
0 |
elsif ($self->{'types'}{$fd} eq 'FLOAT') { } |
|
2708
|
0 |
0 |
if (defined $self->{'defaults'}{$fd}) |
|
2712
|
0 |
0 |
if (length $self->{'defaults'}{$fd} > 0 and do {
$$self{'types'}
}->{$fd} =~ /$NUMERICTYPES/) { } |
|
2723
|
0 |
0 |
do {
$$self{'types'}
}->{$fd} =~ /$BLOBTYPES/ ? : |
|
2724
|
0 |
0 |
unless ($self->{'LongTruncOk'} or do {
$$self{'types'}
}->{$fd} =~ /$BLOBTYPES/ or $self->{'defaults'}{$fd} eq $val or do {
$$self{'types'}
}->{$fd} eq 'FLOAT') |
|
2731
|
0 |
0 |
if (do {
$$self{'types'}
}->{$fd} eq 'FLOAT' and int $self->{'defaults'}{$fd} != int $val) |
|
2738
|
0 |
0 |
if (do {
$$self{'types'}
}->{$fd} eq 'CHAR' and length $self->{'defaults'}{$fd} > 0) |
|
2753
|
0 |
0 |
if ($type =~ /add/io) { } |
|
|
0 |
0 |
elsif ($type =~ /modify/io) { } |
|
|
0 |
0 |
elsif ($type =~ /drop/io) { } |
|
2755
|
0 |
0 |
if (defined $posn) { } |
|
2769
|
0 |
0 |
if (defined $posn) |
|
2773
|
0 |
0 |
if (do {
$$self{'order'}
}->[$j] eq $fd) |
|
2787
|
0 |
0 |
unless $self->check_columns($fd) |
|
2792
|
0 |
0 |
if $_ eq $fd |
|
2825
|
3 |
0 |
if ($query =~ /^insert\s+into\s+ # Keyword
($path)\s* # Table
(?:\((.+?)\)\s*)? # Keys
values\s* # 'values'
\((.+)\)$/iosx) { } |
|
2833
|
0 |
3 |
if $table =~ /^DUAL$/io |
|
2837
|
0 |
3 |
if $cfr < 0 |
|
2841
|
3 |
0 |
unless $columns =~ /\S/o |
|
2843
|
0 |
3 |
unless -w $self->{'file'} |
|
2844
|
0 |
3 |
unless ($columns =~ /\S/o) |
|
2848
|
0 |
0 |
if $columns =~ /^\-?\d+$/o |
|
2880
|
3 |
6 |
if ($values[$i] =~ /^[_a-zA-Z]/so) |
|
2882
|
3 |
0 |
if ($values[$i] =~ /\s*(\w+).NEXTVAL\s*$/o or $values[$i] =~ /\s*(\w+).CURRVAL\s*$/o) { } |
|
2888
|
0 |
3 |
unless (open FILE, "<$seq_file") |
|
2899
|
3 |
0 |
if (/\s*(\w+).NEXTVAL\s*$/o) |
|
2902
|
0 |
3 |
if $self->{'sprite_forcereplace'} and -e $seq_file |
|
2903
|
0 |
3 |
unless (open FILE, ">$seq_file") |
|
2919
|
0 |
0 |
if $@ |
|
2924
|
0 |
3 |
unless $self->check_columns($columns) |
|
2939
|
3 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2943
|
0 |
9 |
if (do {
$$self{'types'}
}->{$i} =~ /AUTO/io) |
|
2948
|
0 |
0 |
if ($j eq $i) |
|
2954
|
0 |
0 |
unless ($autoColumnIncluded) |
|
2978
|
3 |
0 |
if ($#columns == $#values) { } |
|
2987
|
9 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2989
|
0 |
9 |
if defined $self->{'defaults'}{$column} and length $self->{'defaults'}{$column} |
|
2995
|
9 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2998
|
9 |
0 |
if ($self->{'fields'}{$column}) |
|
3005
|
0 |
9 |
if (do {
$$self{'types'}
}->{$column} =~ /AUTO/o) { } |
|
|
9 |
0 |
elsif (length $values[$loop] or not length $self->{'defaults'}{$column}) { } |
|
3007
|
0 |
0 |
if (length $values[$loop]) { } |
|
3027
|
3 |
6 |
if (length $v > 0 and do {
$$self{'types'}
}->{$column} =~ /$NUMERICTYPES/) { } |
|
|
0 |
6 |
elsif (do {
$$self{'types'}
}->{$column} =~ /$REFTYPES/o) { } |
|
3041
|
0 |
0 |
if (open FILE, ">$randblobfid") { } |
|
3044
|
0 |
0 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { } |
|
3066
|
0 |
9 |
do {
$$self{'types'}
}->{$column} =~ /$BLOBTYPES/ ? : |
|
3067
|
0 |
9 |
unless ($self->{'LongTruncOk'} or $v eq $hash->{$column} or do {
$$self{'types'}
}->{$column} eq 'FLOAT') |
|
3073
|
0 |
9 |
if (do {
$$self{'types'}
}->{$column} eq 'FLOAT' and int $v != int $hash->{$column}) { } |
|
|
3 |
6 |
elsif (do {
$$self{'types'}
}->{$column} eq 'CHAR' and length $v > 0) { } |
|
3100
|
3 |
6 |
if ($column eq $keyfields[$j]) |
|
3102
|
0 |
3 |
if ($self->{'records'}[$k]{$column} eq $hash->{$column}) |
|
3105
|
0 |
0 |
if $matchcnt and $matchcnt > $#keyfields |
|
3130
|
0 |
0 |
if $self->{'_write'} =~ /^xml/io and $self->{'CBC'} and $self->{'sprite_Crypt'} <= 2 |
|
3134
|
0 |
3 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { } |
|
|
3 |
0 |
elsif (not $self->{'_write'} =~ /^xml/io) { } |
|
3148
|
0 |
3 |
if $#{$$self{'order'};} < 0 |
|
3151
|
0 |
3 |
if $status >= 1 and $self->{'sprite_forcereplace'} and -e $new_file |
|
3152
|
3 |
0 |
if ($status >= 1 and open FILE, ">$new_file") { } |
|
3156
|
0 |
3 |
if ($self->{'platform'} eq 'PC') { } |
|
3158
|
0 |
0 |
unless $self->lock |
|
3162
|
0 |
3 |
unless flock FILE, $LOCK_EX |
|
3164
|
0 |
3 |
if ($@) |
|
3166
|
0 |
0 |
if $@ |
|
3173
|
0 |
3 |
if ($self->{'_write'} =~ /^xml/io) { } |
|
3179
|
0 |
0 |
if $self->{'sprite_xsl'} |
|
3193
|
0 |
0 |
if (do {
$$self{'order'}
}->[$i] eq $keyfields[$j]) |
|
3203
|
0 |
0 |
${$$self{'types'};}{do {
$$self{'order'}
}->[$i]} =~ /$BLOBTYPES/ ? : |
|
3226
|
3 |
6 |
if do {
$$self{'order'}
}->[$i] eq $keyfields[$j] |
|
3231
|
9 |
0 |
unless (${$$self{'types'};}{do {
$$self{'order'}
}->[$i]} =~ /$BLOBTYPES/) |
|
3234
|
0 |
9 |
if (${$$self{'scales'};}{do {
$$self{'order'}
}->[$i]} and ${$$self{'types'};}{do {
$$self{'order'}
}->[$i]} =~ /$NUMERICTYPES/) |
|
3243
|
0 |
9 |
if length ${$$self{'defaults'};}{do {
$$self{'order'}
}->[$i]} |
|
3249
|
0 |
3 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { } |
|
3257
|
0 |
3 |
$self->{'_write'} =~ /^xml/io ? : |
|
3258
|
0 |
3 |
$rsinit ? : |
|
3264
|
0 |
6 |
unless defined $record |
|
3272
|
6 |
12 |
if (do {
$$self{'types'}
}->{$column} eq 'CHAR' and length $record->{$column} > 0) { } |
|
3291
|
0 |
18 |
$rsinit ? : |
|
3299
|
0 |
6 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { } |
|
3308
|
0 |
3 |
if ($rsend) |
|
3311
|
0 |
0 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { } |
|
3325
|
0 |
3 |
unless $self->unlock |
|
3327
|
0 |
0 |
$status < 1 ? : |
|
3346
|
0 |
0 |
if ($_[1] =~ /[\x00-\x08\x0A-\x0C\x0E-\x19\x7f-\xff]/o) { } |
|
3363
|
0 |
0 |
if $self->{'_read'} =~ /^xml/io and $self->{'CBC'} and $self->{'sprite_Crypt'} <= 2 |
|
3368
|
0 |
1 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} != 2) { } |
|
3382
|
0 |
1 |
if scalar @{$self->{'records'};} |
|
3385
|
0 |
1 |
if ($self->{'_read'} =~ /^xml/io) { } |
|
3387
|
0 |
0 |
unless $XMLavailable |
|
3392
|
0 |
0 |
unless $xmldoc |
|
3395
|
0 |
0 |
$xmldoc->{'select'}{'columns'}{'order'} ? : |
|
3401
|
0 |
0 |
if $xmldoc->{'select'}{'columns'}{'column'}{$fields[$i]}{'key'} eq 'PRIMARY' |
|
3409
|
0 |
0 |
if (length $xmldoc->{'select'}{'columns'}{'column'}{$fields[$i]}{'default'} > 0) |
|
3416
|
0 |
0 |
if (ref $xmldoc->{'select'}{'row'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $xmldoc->{'select'}{'row'} eq 'HASH') { } |
|
3432
|
0 |
0 |
if (ref $self->{'records'} eq 'ARRAY') |
|
3440
|
0 |
0 |
if ($self->{'records'}[$i]{$j}{'xml:encoding'}) |
|
3444
|
0 |
0 |
if ref $self->{'records'}[$i]{$j} |
|
3458
|
0 |
1 |
unless open FILE, $file |
|
3462
|
0 |
1 |
if ($self->{'platform'} eq 'PC') { } |
|
3464
|
0 |
0 |
unless $self->lock |
|
3468
|
0 |
1 |
unless flock FILE, $LOCK_EX |
|
3470
|
0 |
1 |
if ($@) |
|
3472
|
0 |
0 |
if $@ |
|
3478
|
0 |
1 |
if $self->{'CBC'} and $self->{'sprite_Crypt'} != 2 |
|
3479
|
0 |
1 |
unless /^\w+\=/o |
|
3496
|
3 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
3497
|
0 |
3 |
unless $tp |
|
3499
|
1 |
2 |
if $tp =~ s/^\*//o |
|
3502
|
1 |
2 |
if $tp =~ /NUM|INT|FLOAT|DOUBLE/ |
|
3504
|
0 |
3 |
if $tp =~ /$BLOBTYPES/ |
|
3505
|
3 |
0 |
if $tp =~ s/(.*)\((.*)\)/$1/ |
|
3509
|
0 |
3 |
if defined $dflt |
|
3510
|
0 |
3 |
if (${$$self{'lengths'};}{$fields[$i]} =~ s/\,(\d+)//) { } |
|
|
0 |
3 |
elsif (${$$self{'types'};}{$fields[$i]} eq 'FLOAT') { } |
|
3520
|
3 |
0 |
unless ${$$self{'scales'};}{$fields[$i]} |
|
3530
|
0 |
0 |
if $self->{'CBC'} and $self->{'sprite_Crypt'} != 2 |
|
3532
|
0 |
0 |
unless $_ |
|
3552
|
0 |
1 |
unless $self->unlock |
|
3555
|
1 |
0 |
if $self->{'use_fields'} |
|
3556
|
1 |
0 |
if $self->{'key_fields'} |
|
3577
|
0 |
0 |
if ($#{$$self{'order'};} >= 0) { } |
|
3587
|
0 |
0 |
unless open FILE, $self->{'file'} |
|
3589
|
0 |
0 |
if ($self->{'_read'} =~ /^xml/io) { } |
|
3591
|
0 |
0 |
if $self->{'CBC'} and $self->{'sprite_Crypt'} <= 2 |
|
3592
|
0 |
0 |
unless $XMLavailable |
|
3600
|
0 |
0 |
if /^\s*\\s*$/o |
|
3610
|
0 |
0 |
unless $xmldoc |
|
3612
|
0 |
0 |
if ($colmlist) { } |
|
3638
|
0 |
1 |
unless $id =~ /CURRVAL|NEXTVAL/ |
|
3644
|
0 |
1 |
unless (open FILE, "<$seq_file") |
|
3654
|
1 |
0 |
if ($id =~ /NEXTVAL/o) |
|
3657
|
0 |
1 |
if $self->{'sprite_forcereplace'} and -e $seq_file |
|
3658
|
0 |
1 |
unless (open FILE, ">$seq_file") |
|
3721
|
0 |
0 |
if (s/^(["'`])(.+?)\1//) { } |
|
|
0 |
0 |
elsif (/^["']/o) { } |
|
|
0 |
0 |
elsif (s/^\\(.)//o) { } |
|
|
0 |
0 |
elsif (not $_ or s/^$delim//) { } |
|
3723
|
0 |
0 |
if $keep |
|
3733
|
0 |
0 |
if $keep |
|
3740
|
0 |
0 |
if /^['"]/ and not $snippet =~ /\\$/o |
|
3777
|
3 |
0 |
defined $_->{$one} ? : |
|
3780
|
3 |
0 |
unless do {
$$self{'types'}
}->{$one} =~ /$NUMERICTYPES/i |
|
3822
|
0 |
1 |
if ref $_[0] eq 'HASH' |
|
3824
|
0 |
1 |
unless $packagename |