| line |
true |
false |
branch |
|
598
|
3 |
0 |
if defined $^O |
|
599
|
0 |
3 |
if ($self->{'sprite_Crypt'}) |
|
602
|
0 |
0 |
if $#cryptinfo < 1 |
|
603
|
0 |
0 |
if $#cryptinfo < 2 |
|
605
|
0 |
0 |
if $cryptinfo[0] =~ s/^encrypt\=//i |
|
606
|
0 |
0 |
if $cryptinfo[0] =~ s/^decrypt\=//i |
|
607
|
0 |
0 |
unless $cryptinfo[0] =~ /\:\:/ |
|
610
|
0 |
0 |
if ($@) { } |
|
618
|
0 |
0 |
if ($@) |
|
637
|
3 |
6 |
if ($type eq 'read') { } |
|
|
3 |
3 |
elsif ($type eq 'write') { } |
|
|
3 |
0 |
elsif ($type eq 'record') { } |
|
655
|
0 |
3 |
unless $platform |
|
662
|
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) { } |
|
688
|
0 |
3 |
unless $directory |
|
693
|
3 |
0 |
if (-d _ and -e _ and -r _) { } |
|
705
|
0 |
3 |
unless $ext |
|
721
|
18 |
0 |
unless $self->{'CaseTableNames'} |
|
722
|
0 |
18 |
if ($path) { } |
|
730
|
10 |
8 |
wantarray ? : |
|
737
|
0 |
0 |
if (not $file && $lock_try) { } |
|
761
|
0 |
0 |
if (sysopen FILE, $self->{'sprite_lock_file'}, 193, 420) { } |
|
780
|
0 |
4 |
if ($self->{'fake_lock'}) |
|
782
|
0 |
0 |
unless close $self->{'lock_handle'} |
|
783
|
0 |
0 |
unless unlink $self->{'sprite_lock_file'} |
|
798
|
0 |
0 |
wantarray ? : |
|
|
0 |
13 |
unless $query |
|
807
|
13 |
0 |
if ($query =~ /^($self->{'commands'})/io) { } |
|
812
|
6 |
7 |
if (ref $status eq 'ARRAY') { } |
|
816
|
6 |
0 |
wantarray ? : |
|
820
|
1 |
6 |
if ($status < 0) { } |
|
824
|
1 |
0 |
wantarray ? : |
|
828
|
6 |
0 |
wantarray ? : |
|
834
|
0 |
0 |
wantarray ? : |
|
844
|
0 |
1 |
unless $self->{'silent'} |
|
861
|
1 |
0 |
if $errdetails |
|
864
|
0 |
1 |
if $self->{'RaiseError'} |
|
875
|
1 |
3 |
unless $self->{'dirty'} |
|
877
|
3 |
0 |
if ($file) { } |
|
880
|
3 |
0 |
if $self->{'ext'} |
|
887
|
0 |
3 |
if $status <= 0 |
|
889
|
0 |
3 |
if $status <= 0 |
|
902
|
0 |
0 |
if $self->{'sprite_forcereplace'} and -w $blobfile and -e $tempfile |
|
903
|
0 |
0 |
if $? |
|
904
|
0 |
0 |
unless rename $tempfile, $blobfile |
|
905
|
0 |
0 |
if $bloberror |
|
907
|
0 |
3 |
if ($bloberror) { } |
|
991
|
0 |
4 |
unless $query |
|
996
|
0 |
4 |
unless ($colmlist =~ /\S/o) |
|
998
|
0 |
0 |
unless $self->{'CaseTableNames'} |
|
1001
|
0 |
0 |
if $colmlist =~ /^\-?\d+$/o |
|
1027
|
0 |
4 |
$self->{'sprite_nocase'} ? : |
|
1033
|
6 |
0 |
unless $i |
|
1034
|
2 |
4 |
if ($i) { } |
|
1037
|
1 |
1 |
if ($query =~ s/([\=\!]\^\s*)(["'])(.*?)\2/$1$2$3$2$caseopt/s) |
|
1072
|
1 |
11 |
if $lx[$i] eq '(' |
|
1073
|
1 |
11 |
unless $parincnt |
|
1074
|
1 |
10 |
if $lx[$i] eq ')' |
|
1087
|
3 |
0 |
unless $delim eq '/' |
|
1091
|
2 |
1 |
if ($four =~ /\(.*\)/) |
|
1100
|
2 |
1 |
if $catchmatch |
|
1116
|
2 |
3 |
if ($strings[$i] =~ /^m\'/o) { } |
|
1119
|
2 |
0 |
if (not $string =~ /\`/o) { } |
|
1137
|
0 |
4 |
if ($query =~ /^($column)$/) |
|
1141
|
0 |
0 |
unless $i =~ /($colmlist)/i |
|
1157
|
0 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
1158
|
0 |
0 |
if ($one =~ /NUM\s*\(/ or do {
$$self{'types'}
}->{$ONE} =~ /$NUMERICTYPES/io) { } |
|
1177
|
2 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
1179
|
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') { } |
|
1182
|
1 |
0 |
if ($three =~ /^\*\d+/s) { } |
|
1193
|
0 |
1 |
if (not $opno =~ /^[\+\-\d\.][\d\.Ex\+\-\_]*$/s) { } |
|
1201
|
1 |
0 |
unless $opno eq '0' |
|
1208
|
0 |
0 |
if ($three =~ /^\*\d+/) |
|
1231
|
5 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
1232
|
0 |
5 |
$match =~ /\b(?:$special)\b/iso ? : |
|
1258
|
1 |
0 |
unless ($res =~ /$i/) |
|
1260
|
1 |
0 |
if $one =~ s/\^/~/os |
|
1262
|
0 |
1 |
if $self->{'sprite_nocase'} and $isalike |
|
1277
|
8 |
0 |
unless ($self->{'sprite_CaseFieldNames'}) |
|
1279
|
0 |
8 |
if defined $column |
|
1287
|
0 |
15 |
unless ($self->{'fields'}{$column}) |
|
1319
|
0 |
1 |
unless $values->{$i} =~ /\S/o |
|
1329
|
1 |
4 |
if ($command eq 'update') |
|
1333
|
0 |
1 |
if (do {
$$self{'types'}
}->{$i} =~ /AUTO/o) |
|
1341
|
3 |
2 |
$#columns ? : |
|
1354
|
4 |
1 |
if ($fields) { } |
|
1377
|
0 |
13 |
unless defined $self->{'records'}[$loop] |
|
1381
|
7 |
6 |
if (not $condition or eval $condition) { } |
|
|
0 |
6 |
elsif ($@) { } |
|
1383
|
4 |
3 |
if ($command eq 'select') { } |
|
|
3 |
0 |
elsif ($command eq 'update') { } |
|
|
0 |
0 |
elsif ($command eq 'add') { } |
|
|
0 |
0 |
elsif ($command eq 'drop') { } |
|
1385
|
0 |
4 |
if $self->{'sprite_reclimit'} and $loop >= $self->{'sprite_reclimit'} |
|
1386
|
4 |
0 |
if ($fields) { } |
|
1393
|
0 |
7 |
if ($types[$i] and $rawvalue =~ /^\d+$/o) |
|
1398
|
0 |
0 |
if (open FILE, "<$blobfid") { } |
|
1414
|
0 |
0 |
if (open FILE, "<$blobfid") { } |
|
1458
|
0 |
3 |
if $coltypes[$i] |
|
1465
|
0 |
3 |
if ($i eq $keyfields[$j]) |
|
1471
|
0 |
0 |
if ($self->{'records'}[$k]{$i} eq $rawvalue) |
|
1475
|
0 |
0 |
unless ($jj =~ /$dontchkcols/) |
|
1479
|
0 |
0 |
unless $self->{'records'}[$k]{$jj} eq $_->{$jj} |
|
1490
|
0 |
3 |
if $matchcnt and $matchcnt > $#valuelist |
|
1499
|
3 |
0 |
if $rawvalue =~ s/\$(\d)/$perlmatches[$1 - 1]/g |
|
1500
|
3 |
0 |
if ($valuenames{$jj} =~ /^[_a-zA-Z]/o) { } |
|
1502
|
0 |
3 |
if ($self->{'sprite_CaseFieldNames'}) { } |
|
1504
|
0 |
0 |
if (not $self->{'fields'}{"$valuenames{$jj}"}) { } |
|
1509
|
0 |
0 |
if $@ |
|
1518
|
3 |
0 |
if (not $self->{'fields'}{uc $valuenames{$jj}}) { } |
|
1523
|
0 |
3 |
if $@ |
|
1534
|
0 |
0 |
if $valuenames{$jj} =~ /^\'/o |
|
1538
|
3 |
0 |
unless ($colskipreformat) |
|
1540
|
0 |
3 |
if (length $rawvalue > 0 and do {
$$self{'types'}
}->{$jj} =~ /$NUMERICTYPES/) { } |
|
1550
|
0 |
3 |
do {
$$self{'types'}
}->{$jj} =~ /$BLOBTYPES/ ? : |
|
1551
|
0 |
3 |
unless ($self->{'LongTruncOk'} or $rawvalue eq $k or do {
$$self{'types'}
}->{$jj} eq 'FLOAT') |
|
1557
|
0 |
3 |
if (do {
$$self{'types'}
}->{$jj} eq 'FLOAT' and int $rawvalue != int $k) |
|
1564
|
0 |
3 |
if (do {
$$self{'types'}
}->{$jj} eq 'CHAR' and length $rawvalue > 0) { } |
|
1587
|
0 |
3 |
if ($coltypes[$i]) { } |
|
1593
|
0 |
0 |
if (open FILE, ">$blobfid") { } |
|
1596
|
0 |
0 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { } |
|
1619
|
0 |
3 |
if $@ |
|
1635
|
0 |
0 |
if $command eq 'select' |
|
1636
|
0 |
0 |
if $command eq 'delete' |
|
1640
|
0 |
5 |
if ($status <= 0) { } |
|
|
1 |
4 |
elsif ($command ne 'select') { } |
|
1653
|
0 |
4 |
if ($distinct) |
|
1664
|
0 |
0 |
if ($i eq '') |
|
1673
|
0 |
4 |
if (@$ordercols) |
|
1697
|
0 |
0 |
$descorder->[0] =~ /de/io ? : |
|
1701
|
0 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
1703
|
0 |
0 |
defined $colorder{$j} ? : |
|
1708
|
0 |
0 |
$k >= 0 ? : |
|
1709
|
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/) { } |
|
1725
|
0 |
0 |
if $do |
|
1729
|
0 |
0 |
if ($jcnt < $#$ordercols) |
|
1731
|
0 |
0 |
$$descorder[++$jcnt] =~ /de/io ? : |
|
1734
|
0 |
0 |
if $SI[$i] =~ /(\d+)$/o |
|
1736
|
0 |
0 |
$do ? : |
|
1744
|
0 |
0 |
if $SI[$i] =~ /(\d+)$/o |
|
1748
|
0 |
4 |
if ($theresanull) |
|
1755
|
0 |
4 |
if $self->{'sprite_actlimit'} > 0 and $#{$results;} >= $self->{'sprite_actlimit'} |
|
1767
|
0 |
11 |
unless $file |
|
1769
|
1 |
10 |
if ($file =~ /^DUAL$/io) |
|
1788
|
10 |
0 |
if $self->{'ext'} |
|
1793
|
2 |
8 |
if ($self->{'table'} ne $table or ($self->{'file'} ne $file or $self->{'timestamp'} != $stats[9])) |
|
1796
|
1 |
1 |
if (-e _ and -s _ and -r _) { } |
|
1811
|
1 |
9 |
if $status == 0 |
|
1822
|
0 |
0 |
if (-e _ and -T _ and -s _ and -r _) { } |
|
1835
|
0 |
0 |
if $? |
|
1837
|
0 |
0 |
if ($blobglob and $bloberror) { } |
|
1874
|
0 |
5 |
if $query =~ /^select\s+distinct/o |
|
1878
|
5 |
0 |
if ($query =~ /^select\s+
(.+)\s+
from\s+
(\w+)(.*)$/iosx) { } |
|
1890
|
1 |
4 |
if ($column_stuff =~ /^table_name\s*$/io and $table =~ /^(user|all)_tables$/io) |
|
1894
|
1 |
0 |
unless not $full_path =~ /\S/o or $full_path =~ /$self->{'separator'}{$self->{'platform'}}$/ |
|
1899
|
0 |
1 |
if ($^O =~ /Win/i) { } |
|
1919
|
0 |
1 |
if ($^O =~ /Win/i) { } |
|
1949
|
7 |
3 |
if $column_stuff =~ s/^($self->{'column'}(?:\.(?:$psuedocols))?)// |
|
1951
|
3 |
7 |
unless $fnname |
|
1953
|
6 |
1 |
if ($#column_stuff <= 0 or $column_stuff[0] eq ',') |
|
1964
|
2 |
56 |
if ($column_stuff[$i] eq '(') |
|
1969
|
1 |
57 |
if not $parincnt and $found_parin |
|
1970
|
2 |
55 |
if $column_stuff[$i] eq ')' |
|
1975
|
1 |
0 |
unless $t |
|
1982
|
0 |
4 |
if $cfr < 0 |
|
2005
|
0 |
7 |
if ($self->{'sprite_CaseFieldNames'}) { } |
|
2026
|
0 |
4 |
if ($extra =~ s/([\s|\)]+)order\s+by\s*(.*)/$1/is) |
|
2035
|
0 |
0 |
if $ordercols[$i] =~ s/(\w+)\W+(asc|desc|ascending|descending)$/$1/is |
|
2046
|
3 |
1 |
if ($extra =~ /^\s+where\s*(.+)$/iso) |
|
2050
|
0 |
4 |
if ($column_stuff =~ /\*/o) |
|
2054
|
0 |
0 |
if ($self->{'sprite_CaseFieldNames'}) { } |
|
2071
|
4 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2072
|
0 |
4 |
unless $self->check_columns($columns) |
|
2074
|
4 |
0 |
if ($#fields >= 0) |
|
2111
|
1 |
0 |
if ($query =~ /^update\s+($path)\s+set\s+(.+)$/iso) { } |
|
2113
|
0 |
1 |
if $table =~ /^DUAL$/io |
|
2117
|
0 |
1 |
if ($extra =~ /^\(.+\)\s*where/so) |
|
2125
|
0 |
1 |
if $cfr < 0 |
|
2127
|
0 |
1 |
unless -w $self->{'file'} |
|
2177
|
1 |
0 |
$extra =~ s/(.*)where(.+)$/where$1/is ? : |
|
2195
|
1 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2211
|
0 |
1 |
unless $self->check_columns($columns) |
|
2231
|
0 |
0 |
if ($query =~ /^delete\s+from\s+($path)(?:\s+where\s+(.+))?$/iso) { } |
|
2237
|
0 |
0 |
if $cfr < 0 |
|
2239
|
0 |
0 |
unless -w $self->{'file'} |
|
2240
|
0 |
0 |
if ($wherepart =~ /\S/o) { } |
|
2267
|
1 |
0 |
if ($query =~ /^drop\s+table\s+($path)\s*$/iso) |
|
2272
|
1 |
0 |
if $cfr < 0 |
|
2286
|
0 |
0 |
unlink($self->{'file'}) ? : |
|
2295
|
0 |
0 |
if $query =~ s/^\s*truncate\s+table\s+/delete from /iso |
|
2307
|
0 |
1 |
if $cfr < 0 |
|
2357
|
0 |
0 |
if do {
$$self{'types'}
}->{$i} =~ /$REFTYPES/o |
|
2366
|
0 |
0 |
if not scalar @{$self->{'records'};} or $loop >= scalar @{$self->{'records'};} |
|
2370
|
0 |
0 |
if (eval $condition) { } |
|
2393
|
0 |
0 |
if $status > 0 |
|
2407
|
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) { } |
|
2411
|
1 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2431
|
1 |
3 |
if ($fieldlist[$i] =~ s/^PRIMARY\s+KEY\s*\(([^\)]+)\)$//i) |
|
2435
|
1 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2452
|
1 |
3 |
unless $i =~ /\S/o |
|
2455
|
0 |
0 |
if $4 |
|
2459
|
3 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2463
|
0 |
3 |
if $i =~ s/\s*PRIMARY\s+KEY\s*//i |
|
2467
|
3 |
0 |
if ($i =~ /(\w+)(?:\((\d+))?(?:\x02\^2jSpR1tE\x02(\d+))?/o) { } |
|
2477
|
0 |
3 |
unless ($len) |
|
2480
|
0 |
0 |
if $tp =~ /NUM|INT|FLOAT|DOUBLE/o |
|
2482
|
0 |
0 |
if $tp =~ /$BLOBTYPES/ |
|
2484
|
3 |
0 |
unless ($scale) |
|
2487
|
0 |
3 |
if ($tp eq 'FLOAT') { } |
|
|
1 |
2 |
elsif ($tp =~ /$NUMERICTYPES/) { } |
|
2497
|
0 |
3 |
if ($i =~ /\<3\>/) |
|
2502
|
0 |
0 |
if (length $value > 0 and $tp =~ /$NUMERICTYPES/) { } |
|
2512
|
0 |
0 |
$tp =~ /$BLOBTYPES/ ? : |
|
2513
|
0 |
0 |
unless ($self->{'LongTruncOk'} or $value eq $rawvalue or $tp eq 'FLOAT') |
|
2519
|
0 |
0 |
if ($tp eq 'FLOAT' and int $value != int $rawvalue) |
|
2526
|
0 |
0 |
if ($tp eq 'CHAR' and length $rawvalue > 0) { } |
|
2555
|
0 |
1 |
if $cfr < 0 |
|
2561
|
1 |
0 |
unless $incval |
|
2562
|
1 |
0 |
unless $startval |
|
2566
|
0 |
1 |
if $self->{'sprite_forcereplace'} and -e $new_file |
|
2567
|
1 |
0 |
if (open FILE, ">$new_file") { } |
|
2595
|
0 |
0 |
if ($query =~ /^alter\s+table\s+($path)\s+(.+)$/iso) { } |
|
2598
|
0 |
0 |
if ($extra =~ /^(add|modify|drop)\s*(.+)$/iso) { } |
|
2617
|
0 |
0 |
if $cfr < 0 |
|
2627
|
0 |
0 |
unless $i =~ /\S/o |
|
2631
|
0 |
0 |
if $4 |
|
2635
|
0 |
0 |
if $i =~ s/^(\d+)\s*//o |
|
2639
|
0 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2642
|
0 |
0 |
if $fd eq $keyfields[$j] |
|
2650
|
0 |
0 |
if ($type =~ /modify/io) |
|
2652
|
0 |
0 |
unless ($tp =~ /[a-zA-Z]/) |
|
2656
|
0 |
0 |
unless ($tp eq $self->{'types'}{$fd}) |
|
2658
|
0 |
0 |
if ($#{$$self{'records'};} >= 0) |
|
2665
|
0 |
0 |
if defined $self->{'defaults'}{$fd} |
|
2666
|
0 |
0 |
unless ($tp eq $self->{'types'}{$fd}) |
|
2674
|
0 |
0 |
if $x =~ s/(\d+)//o |
|
2675
|
0 |
0 |
unless ($self->{'lengths'}{$fd}) |
|
2678
|
0 |
0 |
if $tp =~ /NUM|INT|FLOAT|DOUBLE/o |
|
2680
|
0 |
0 |
if $tp =~ /$BLOBTYPES/ |
|
2682
|
0 |
0 |
if ($self->{'lengths'}{$fd} < $oldln and not $tp =~ /$BLOBTYPES/) |
|
2692
|
0 |
0 |
if ($self->{'types'}{$fd} =~ /$REFTYPES/o or $tp =~ /$REFTYPES/o) |
|
2699
|
0 |
0 |
if defined $olddf and not defined $self->{'defaults'}{$fd} |
|
2700
|
0 |
0 |
if $self->{'defaults'}{$fd} eq "\cB^4jSpR1tE\cB" |
|
2701
|
0 |
0 |
if ($x =~ s/\,\s*(\d+)//o) { } |
|
|
0 |
0 |
elsif ($self->{'types'}{$fd} eq 'FLOAT') { } |
|
2709
|
0 |
0 |
if (defined $self->{'defaults'}{$fd}) |
|
2713
|
0 |
0 |
if (length $self->{'defaults'}{$fd} > 0 and do {
$$self{'types'}
}->{$fd} =~ /$NUMERICTYPES/) { } |
|
2724
|
0 |
0 |
do {
$$self{'types'}
}->{$fd} =~ /$BLOBTYPES/ ? : |
|
2725
|
0 |
0 |
unless ($self->{'LongTruncOk'} or do {
$$self{'types'}
}->{$fd} =~ /$BLOBTYPES/ or $self->{'defaults'}{$fd} eq $val or do {
$$self{'types'}
}->{$fd} eq 'FLOAT') |
|
2732
|
0 |
0 |
if (do {
$$self{'types'}
}->{$fd} eq 'FLOAT' and int $self->{'defaults'}{$fd} != int $val) |
|
2739
|
0 |
0 |
if (do {
$$self{'types'}
}->{$fd} eq 'CHAR' and length $self->{'defaults'}{$fd} > 0) |
|
2754
|
0 |
0 |
if ($type =~ /add/io) { } |
|
|
0 |
0 |
elsif ($type =~ /modify/io) { } |
|
|
0 |
0 |
elsif ($type =~ /drop/io) { } |
|
2756
|
0 |
0 |
if (defined $posn) { } |
|
2770
|
0 |
0 |
if (defined $posn) |
|
2774
|
0 |
0 |
if (do {
$$self{'order'}
}->[$j] eq $fd) |
|
2788
|
0 |
0 |
unless $self->check_columns($fd) |
|
2793
|
0 |
0 |
if $_ eq $fd |
|
2826
|
3 |
0 |
if ($query =~ /^insert\s+into\s+ # Keyword
($path)\s* # Table
(?:\((.+?)\)\s*)? # Keys
values\s* # 'values'
\((.+)\)$/iosx) { } |
|
2834
|
0 |
3 |
if $table =~ /^DUAL$/io |
|
2838
|
0 |
3 |
if $cfr < 0 |
|
2842
|
3 |
0 |
unless $columns =~ /\S/o |
|
2844
|
0 |
3 |
unless -w $self->{'file'} |
|
2845
|
0 |
3 |
unless ($columns =~ /\S/o) |
|
2849
|
0 |
0 |
if $columns =~ /^\-?\d+$/o |
|
2881
|
3 |
6 |
if ($values[$i] =~ /^[_a-zA-Z]/so) |
|
2883
|
3 |
0 |
if ($values[$i] =~ /\s*(\w+).NEXTVAL\s*$/o or $values[$i] =~ /\s*(\w+).CURRVAL\s*$/o) { } |
|
2889
|
0 |
3 |
unless (open FILE, "<$seq_file") |
|
2900
|
3 |
0 |
if (/\s*(\w+).NEXTVAL\s*$/o) |
|
2903
|
0 |
3 |
if $self->{'sprite_forcereplace'} and -e $seq_file |
|
2904
|
0 |
3 |
unless (open FILE, ">$seq_file") |
|
2920
|
0 |
0 |
if $@ |
|
2925
|
0 |
3 |
unless $self->check_columns($columns) |
|
2940
|
3 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2944
|
0 |
9 |
if (do {
$$self{'types'}
}->{$i} =~ /AUTO/io) |
|
2949
|
0 |
0 |
if ($j eq $i) |
|
2955
|
0 |
0 |
unless ($autoColumnIncluded) |
|
2979
|
3 |
0 |
if ($#columns == $#values) { } |
|
2988
|
9 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2990
|
0 |
9 |
if defined $self->{'defaults'}{$column} and length $self->{'defaults'}{$column} |
|
2996
|
9 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
2999
|
9 |
0 |
if ($self->{'fields'}{$column}) |
|
3006
|
0 |
9 |
if (do {
$$self{'types'}
}->{$column} =~ /AUTO/o) { } |
|
|
9 |
0 |
elsif (length $values[$loop] or not length $self->{'defaults'}{$column}) { } |
|
3008
|
0 |
0 |
if (length $values[$loop]) { } |
|
3028
|
3 |
6 |
if (length $v > 0 and do {
$$self{'types'}
}->{$column} =~ /$NUMERICTYPES/) { } |
|
|
0 |
6 |
elsif (do {
$$self{'types'}
}->{$column} =~ /$REFTYPES/o) { } |
|
3042
|
0 |
0 |
if (open FILE, ">$randblobfid") { } |
|
3045
|
0 |
0 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { } |
|
3067
|
0 |
9 |
do {
$$self{'types'}
}->{$column} =~ /$BLOBTYPES/ ? : |
|
3068
|
0 |
9 |
unless ($self->{'LongTruncOk'} or $v eq $hash->{$column} or do {
$$self{'types'}
}->{$column} eq 'FLOAT') |
|
3074
|
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) { } |
|
3101
|
3 |
6 |
if ($column eq $keyfields[$j]) |
|
3103
|
0 |
3 |
if ($self->{'records'}[$k]{$column} eq $hash->{$column}) |
|
3106
|
0 |
0 |
if $matchcnt and $matchcnt > $#keyfields |
|
3131
|
0 |
0 |
if $self->{'_write'} =~ /^xml/io and $self->{'CBC'} and $self->{'sprite_Crypt'} <= 2 |
|
3135
|
0 |
3 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { } |
|
|
3 |
0 |
elsif (not $self->{'_write'} =~ /^xml/io) { } |
|
3149
|
0 |
3 |
if $#{$$self{'order'};} < 0 |
|
3152
|
0 |
3 |
if $status >= 1 and $self->{'sprite_forcereplace'} and -e $new_file |
|
3153
|
3 |
0 |
if ($status >= 1 and open FILE, ">$new_file") { } |
|
3157
|
0 |
3 |
if ($self->{'platform'} eq 'PC') { } |
|
3159
|
0 |
0 |
unless $self->lock |
|
3163
|
0 |
3 |
unless flock FILE, $LOCK_EX |
|
3165
|
0 |
3 |
if ($@) |
|
3167
|
0 |
0 |
if $@ |
|
3174
|
0 |
3 |
if ($self->{'_write'} =~ /^xml/io) { } |
|
3180
|
0 |
0 |
if $self->{'sprite_xsl'} |
|
3194
|
0 |
0 |
if (do {
$$self{'order'}
}->[$i] eq $keyfields[$j]) |
|
3204
|
0 |
0 |
${$$self{'types'};}{do {
$$self{'order'}
}->[$i]} =~ /$BLOBTYPES/ ? : |
|
3227
|
3 |
6 |
if do {
$$self{'order'}
}->[$i] eq $keyfields[$j] |
|
3232
|
9 |
0 |
unless (${$$self{'types'};}{do {
$$self{'order'}
}->[$i]} =~ /$BLOBTYPES/) |
|
3235
|
0 |
9 |
if (${$$self{'scales'};}{do {
$$self{'order'}
}->[$i]} and ${$$self{'types'};}{do {
$$self{'order'}
}->[$i]} =~ /$NUMERICTYPES/) |
|
3244
|
0 |
9 |
if length ${$$self{'defaults'};}{do {
$$self{'order'}
}->[$i]} |
|
3250
|
0 |
3 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { } |
|
3258
|
0 |
3 |
$self->{'_write'} =~ /^xml/io ? : |
|
3259
|
0 |
3 |
$rsinit ? : |
|
3265
|
0 |
6 |
unless defined $record |
|
3273
|
6 |
12 |
if (do {
$$self{'types'}
}->{$column} eq 'CHAR' and length $record->{$column} > 0) { } |
|
3292
|
0 |
18 |
$rsinit ? : |
|
3300
|
0 |
6 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { } |
|
3309
|
0 |
3 |
if ($rsend) |
|
3312
|
0 |
0 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { } |
|
3326
|
0 |
3 |
unless $self->unlock |
|
3328
|
0 |
0 |
$status < 1 ? : |
|
3347
|
0 |
0 |
if ($_[1] =~ /[\x00-\x08\x0A-\x0C\x0E-\x19\x7f-\xff]/o) { } |
|
3364
|
0 |
0 |
if $self->{'_read'} =~ /^xml/io and $self->{'CBC'} and $self->{'sprite_Crypt'} <= 2 |
|
3369
|
0 |
1 |
if ($self->{'CBC'} and $self->{'sprite_Crypt'} != 2) { } |
|
3383
|
0 |
1 |
if scalar @{$self->{'records'};} |
|
3386
|
0 |
1 |
if ($self->{'_read'} =~ /^xml/io) { } |
|
3388
|
0 |
0 |
unless $XMLavailable |
|
3393
|
0 |
0 |
unless $xmldoc |
|
3396
|
0 |
0 |
$xmldoc->{'select'}{'columns'}{'order'} ? : |
|
3402
|
0 |
0 |
if $xmldoc->{'select'}{'columns'}{'column'}{$fields[$i]}{'key'} eq 'PRIMARY' |
|
3410
|
0 |
0 |
if (length $xmldoc->{'select'}{'columns'}{'column'}{$fields[$i]}{'default'} > 0) |
|
3417
|
0 |
0 |
if (ref $xmldoc->{'select'}{'row'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $xmldoc->{'select'}{'row'} eq 'HASH') { } |
|
3433
|
0 |
0 |
if (ref $self->{'records'} eq 'ARRAY') |
|
3441
|
0 |
0 |
if ($self->{'records'}[$i]{$j}{'xml:encoding'}) |
|
3445
|
0 |
0 |
if ref $self->{'records'}[$i]{$j} |
|
3459
|
0 |
1 |
unless open FILE, $file |
|
3463
|
0 |
1 |
if ($self->{'platform'} eq 'PC') { } |
|
3465
|
0 |
0 |
unless $self->lock |
|
3469
|
0 |
1 |
unless flock FILE, $LOCK_EX |
|
3471
|
0 |
1 |
if ($@) |
|
3473
|
0 |
0 |
if $@ |
|
3479
|
0 |
1 |
if $self->{'CBC'} and $self->{'sprite_Crypt'} != 2 |
|
3480
|
0 |
1 |
unless /^\w+\=/o |
|
3497
|
3 |
0 |
unless $self->{'sprite_CaseFieldNames'} |
|
3498
|
0 |
3 |
unless $tp |
|
3500
|
1 |
2 |
if $tp =~ s/^\*//o |
|
3503
|
1 |
2 |
if $tp =~ /NUM|INT|FLOAT|DOUBLE/ |
|
3505
|
0 |
3 |
if $tp =~ /$BLOBTYPES/ |
|
3506
|
3 |
0 |
if $tp =~ s/(.*)\((.*)\)/$1/ |
|
3510
|
0 |
3 |
if defined $dflt |
|
3511
|
0 |
3 |
if (${$$self{'lengths'};}{$fields[$i]} =~ s/\,(\d+)//) { } |
|
|
0 |
3 |
elsif (${$$self{'types'};}{$fields[$i]} eq 'FLOAT') { } |
|
3521
|
3 |
0 |
unless ${$$self{'scales'};}{$fields[$i]} |
|
3531
|
0 |
0 |
if $self->{'CBC'} and $self->{'sprite_Crypt'} != 2 |
|
3533
|
0 |
0 |
unless $_ |
|
3553
|
0 |
1 |
unless $self->unlock |
|
3556
|
1 |
0 |
if $self->{'use_fields'} |
|
3557
|
1 |
0 |
if $self->{'key_fields'} |
|
3578
|
0 |
0 |
if ($#{$$self{'order'};} >= 0) { } |
|
3588
|
0 |
0 |
unless open FILE, $self->{'file'} |
|
3590
|
0 |
0 |
if ($self->{'_read'} =~ /^xml/io) { } |
|
3592
|
0 |
0 |
if $self->{'CBC'} and $self->{'sprite_Crypt'} <= 2 |
|
3593
|
0 |
0 |
unless $XMLavailable |
|
3601
|
0 |
0 |
if /^\s*\\s*$/o |
|
3611
|
0 |
0 |
unless $xmldoc |
|
3613
|
0 |
0 |
if ($colmlist) { } |
|
3639
|
0 |
1 |
unless $id =~ /CURRVAL|NEXTVAL/ |
|
3645
|
0 |
1 |
unless (open FILE, "<$seq_file") |
|
3655
|
1 |
0 |
if ($id =~ /NEXTVAL/o) |
|
3658
|
0 |
1 |
if $self->{'sprite_forcereplace'} and -e $seq_file |
|
3659
|
0 |
1 |
unless (open FILE, ">$seq_file") |
|
3722
|
0 |
0 |
if (s/^(["'`])(.+?)\1//) { } |
|
|
0 |
0 |
elsif (/^["']/o) { } |
|
|
0 |
0 |
elsif (s/^\\(.)//o) { } |
|
|
0 |
0 |
elsif (not $_ or s/^$delim//) { } |
|
3724
|
0 |
0 |
if $keep |
|
3734
|
0 |
0 |
if $keep |
|
3741
|
0 |
0 |
if /^['"]/ and not $snippet =~ /\\$/o |
|
3778
|
3 |
0 |
defined $_->{$one} ? : |
|
3781
|
3 |
0 |
unless do {
$$self{'types'}
}->{$one} =~ /$NUMERICTYPES/i |
|
3823
|
0 |
1 |
if ref $_[0] eq 'HASH' |
|
3825
|
0 |
1 |
unless $packagename |