Branch Coverage

blib/lib/JSprite.pm
Criterion Covered Total %
branch 0 790 0.0


line true false branch
598 0 0 if defined $^O
599 0 0 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 0 0 if ($type eq 'read') { }
0 0 elsif ($type eq 'write') { }
0 0 elsif ($type eq 'record') { }
655 0 0 unless $platform
662 0 0 if ($platform =~ /(?:darwin|bsdos)/i) { }
0 0 elsif ($platform =~ /(OS2|Win|DOS)/i) { }
0 0 elsif ($platform =~ /^Mac(?:OS|intosh)?$/i) { }
0 0 elsif ($platform =~ /^VMS$/i) { }
688 0 0 unless $directory
693 0 0 if (-d _ and -e _ and -r _) { }
705 0 0 unless $ext
721 0 0 unless $self->{'CaseTableNames'}
722 0 0 if ($path) { }
730 0 0 wantarray ? :
737 0 0 if (not $file && $lock_try) { }
761 0 0 if (sysopen FILE, $self->{'sprite_lock_file'}, 193, 420) { }
780 0 0 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 0 unless $query
807 0 0 if ($query =~ /^($self->{'commands'})/io) { }
812 0 0 if (ref $status eq 'ARRAY') { }
816 0 0 wantarray ? :
820 0 0 if ($status < 0) { }
824 0 0 wantarray ? :
828 0 0 wantarray ? :
834 0 0 wantarray ? :
844 0 0 unless $self->{'silent'}
861 0 0 if $errdetails
864 0 0 if $self->{'RaiseError'}
875 0 0 unless $self->{'dirty'}
877 0 0 if ($file) { }
880 0 0 if $self->{'ext'}
887 0 0 if $status <= 0
889 0 0 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 0 if ($bloberror) { }
991 0 0 unless $query
996 0 0 unless ($colmlist =~ /\S/o)
998 0 0 unless $self->{'CaseTableNames'}
1001 0 0 if $colmlist =~ /^\-?\d+$/o
1027 0 0 $self->{'sprite_nocase'} ? :
1033 0 0 unless $i
1034 0 0 if ($i) { }
1037 0 0 if ($query =~ s/([\=\!]\^\s*)(["'])(.*?)\2/$1$2$3$2$caseopt/s)
1072 0 0 if $lx[$i] eq '('
1073 0 0 unless $parincnt
1074 0 0 if $lx[$i] eq ')'
1087 0 0 unless $delim eq '/'
1091 0 0 if ($four =~ /\(.*\)/)
1100 0 0 if $catchmatch
1116 0 0 if ($strings[$i] =~ /^m\'/o) { }
1119 0 0 if (not $string =~ /\`/o) { }
1137 0 0 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 0 0 unless $self->{'sprite_CaseFieldNames'}
1179 0 0 if ($one =~ /NUM\s*\(/ or do { $$self{'types'} }->{$ONE} =~ /$NUMERICTYPES/iso) { }
0 0 elsif ($self->{'StrictCharComp'} == 0 and do { $$self{'types'} }->{$ONE} eq 'CHAR') { }
1182 0 0 if ($three =~ /^\*\d+/s) { }
1193 0 0 if (not $opno =~ /^[\+\-\d\.][\d\.Ex\+\-\_]*$/s) { }
1201 0 0 unless $opno eq '0'
1208 0 0 if ($three =~ /^\*\d+/)
1231 0 0 unless $self->{'sprite_CaseFieldNames'}
1232 0 0 $match =~ /\b(?:$special)\b/iso ? :
1258 0 0 unless ($res =~ /$i/)
1260 0 0 if $one =~ s/\^/~/os
1262 0 0 if $self->{'sprite_nocase'} and $isalike
1277 0 0 unless ($self->{'sprite_CaseFieldNames'})
1279 0 0 if defined $column
1287 0 0 unless ($self->{'fields'}{$column})
1319 0 0 unless $values->{$i} =~ /\S/o
1329 0 0 if ($command eq 'update')
1333 0 0 if (do { $$self{'types'} }->{$i} =~ /AUTO/o)
1341 0 0 $#columns ? :
1354 0 0 if ($fields) { }
1377 0 0 unless defined $self->{'records'}[$loop]
1381 0 0 if (not $condition or eval $condition) { }
0 0 elsif ($@) { }
1383 0 0 if ($command eq 'select') { }
0 0 elsif ($command eq 'update') { }
0 0 elsif ($command eq 'add') { }
0 0 elsif ($command eq 'drop') { }
1385 0 0 if $self->{'sprite_reclimit'} and $loop >= $self->{'sprite_reclimit'}
1386 0 0 if ($fields) { }
1393 0 0 if ($types[$i] and $rawvalue =~ /^\d+$/o)
1398 0 0 if (open FILE, "<$blobfid") { }
1414 0 0 if (open FILE, "<$blobfid") { }
1458 0 0 if $coltypes[$i]
1465 0 0 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 0 if $matchcnt and $matchcnt > $#valuelist
1499 0 0 if $rawvalue =~ s/\$(\d)/$perlmatches[$1 - 1]/g
1500 0 0 if ($valuenames{$jj} =~ /^[_a-zA-Z]/o) { }
1502 0 0 if ($self->{'sprite_CaseFieldNames'}) { }
1504 0 0 if (not $self->{'fields'}{"$valuenames{$jj}"}) { }
1509 0 0 if $@
1518 0 0 if (not $self->{'fields'}{uc $valuenames{$jj}}) { }
1523 0 0 if $@
1534 0 0 if $valuenames{$jj} =~ /^\'/o
1538 0 0 unless ($colskipreformat)
1540 0 0 if (length $rawvalue > 0 and do { $$self{'types'} }->{$jj} =~ /$NUMERICTYPES/) { }
1550 0 0 do { $$self{'types'} }->{$jj} =~ /$BLOBTYPES/ ? :
1551 0 0 unless ($self->{'LongTruncOk'} or $rawvalue eq $k or do { $$self{'types'} }->{$jj} eq 'FLOAT')
1557 0 0 if (do { $$self{'types'} }->{$jj} eq 'FLOAT' and int $rawvalue != int $k)
1564 0 0 if (do { $$self{'types'} }->{$jj} eq 'CHAR' and length $rawvalue > 0) { }
1587 0 0 if ($coltypes[$i]) { }
1593 0 0 if (open FILE, ">$blobfid") { }
1596 0 0 if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { }
1619 0 0 if $@
1635 0 0 if $command eq 'select'
1636 0 0 if $command eq 'delete'
1640 0 0 if ($status <= 0) { }
0 0 elsif ($command ne 'select') { }
1653 0 0 if ($distinct)
1664 0 0 if ($i eq '')
1673 0 0 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 0 if ($theresanull)
1755 0 0 if $self->{'sprite_actlimit'} > 0 and $#{$results;} >= $self->{'sprite_actlimit'}
1767 0 0 unless $file
1769 0 0 if ($file =~ /^DUAL$/io)
1788 0 0 if $self->{'ext'}
1793 0 0 if ($self->{'table'} ne $table or ($self->{'file'} ne $file or $self->{'timestamp'} != $stats[9]))
1796 0 0 if (-e _ and -s _ and -r _) { }
1811 0 0 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 0 if $query =~ /^select\s+distinct/o
1878 0 0 if ($query =~ /^select\s+ (.+)\s+ from\s+ (\w+)(.*)$/iosx) { }
1890 0 0 if ($column_stuff =~ /^table_name\s*$/io and $table =~ /^(user|all)_tables$/io)
1894 0 0 unless not $full_path =~ /\S/o or $full_path =~ /$self->{'separator'}{$self->{'platform'}}$/
1899 0 0 if ($^O =~ /Win/i) { }
1919 0 0 if ($^O =~ /Win/i) { }
1949 0 0 if $column_stuff =~ s/^($self->{'column'}(?:\.(?:$psuedocols))?)//
1951 0 0 unless $fnname
1953 0 0 if ($#column_stuff <= 0 or $column_stuff[0] eq ',')
1964 0 0 if ($column_stuff[$i] eq '(')
1969 0 0 if not $parincnt and $found_parin
1970 0 0 if $column_stuff[$i] eq ')'
1975 0 0 unless $t
1982 0 0 if $cfr < 0
2005 0 0 if ($self->{'sprite_CaseFieldNames'}) { }
2026 0 0 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 0 0 if ($extra =~ /^\s+where\s*(.+)$/iso)
2050 0 0 if ($column_stuff =~ /\*/o)
2054 0 0 if ($self->{'sprite_CaseFieldNames'}) { }
2071 0 0 unless $self->{'sprite_CaseFieldNames'}
2072 0 0 unless $self->check_columns($columns)
2074 0 0 if ($#fields >= 0)
2111 0 0 if ($query =~ /^update\s+($path)\s+set\s+(.+)$/iso) { }
2113 0 0 if $table =~ /^DUAL$/io
2117 0 0 if ($extra =~ /^\(.+\)\s*where/so)
2125 0 0 if $cfr < 0
2127 0 0 unless -w $self->{'file'}
2177 0 0 $extra =~ s/(.*)where(.+)$/where$1/is ? :
2195 0 0 unless $self->{'sprite_CaseFieldNames'}
2211 0 0 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 0 0 if ($query =~ /^drop\s+table\s+($path)\s*$/iso)
2272 0 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 0 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 0 0 if ($query =~ /^create\s+table\s+($self->{'path'})\s*\((.+)\)\s*$/is) { }
0 0 elsif ($query =~ /^create\s+sequence\s+($self->{'path'})(?:\s+inc(?:rement)?\s+by\s+(\d+))?(?:\s+start\s+with\s+(\d+))?/is) { }
2411 0 0 unless $self->{'sprite_CaseFieldNames'}
2431 0 0 if ($fieldlist[$i] =~ s/^PRIMARY\s+KEY\s*\(([^\)]+)\)$//i)
2435 0 0 unless $self->{'sprite_CaseFieldNames'}
2452 0 0 unless $i =~ /\S/o
2455 0 0 if $4
2459 0 0 unless $self->{'sprite_CaseFieldNames'}
2463 0 0 if $i =~ s/\s*PRIMARY\s+KEY\s*//i
2467 0 0 if ($i =~ /(\w+)(?:\((\d+))?(?:\x02\^2jSpR1tE\x02(\d+))?/o) { }
2477 0 0 unless ($len)
2480 0 0 if $tp =~ /NUM|INT|FLOAT|DOUBLE/o
2482 0 0 if $tp =~ /$BLOBTYPES/
2484 0 0 unless ($scale)
2487 0 0 if ($tp eq 'FLOAT') { }
0 0 elsif ($tp =~ /$NUMERICTYPES/) { }
2497 0 0 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 0 if $cfr < 0
2561 0 0 unless $incval
2562 0 0 unless $startval
2566 0 0 if $self->{'sprite_forcereplace'} and -e $new_file
2567 0 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 0 0 if ($query =~ /^insert\s+into\s+ # Keyword ($path)\s* # Table (?:\((.+?)\)\s*)? # Keys values\s* # 'values' \((.+)\)$/iosx) { }
2834 0 0 if $table =~ /^DUAL$/io
2838 0 0 if $cfr < 0
2842 0 0 unless $columns =~ /\S/o
2844 0 0 unless -w $self->{'file'}
2845 0 0 unless ($columns =~ /\S/o)
2849 0 0 if $columns =~ /^\-?\d+$/o
2881 0 0 if ($values[$i] =~ /^[_a-zA-Z]/so)
2883 0 0 if ($values[$i] =~ /\s*(\w+).NEXTVAL\s*$/o or $values[$i] =~ /\s*(\w+).CURRVAL\s*$/o) { }
2889 0 0 unless (open FILE, "<$seq_file")
2900 0 0 if (/\s*(\w+).NEXTVAL\s*$/o)
2903 0 0 if $self->{'sprite_forcereplace'} and -e $seq_file
2904 0 0 unless (open FILE, ">$seq_file")
2920 0 0 if $@
2925 0 0 unless $self->check_columns($columns)
2940 0 0 unless $self->{'sprite_CaseFieldNames'}
2944 0 0 if (do { $$self{'types'} }->{$i} =~ /AUTO/io)
2949 0 0 if ($j eq $i)
2955 0 0 unless ($autoColumnIncluded)
2979 0 0 if ($#columns == $#values) { }
2988 0 0 unless $self->{'sprite_CaseFieldNames'}
2990 0 0 if defined $self->{'defaults'}{$column} and length $self->{'defaults'}{$column}
2996 0 0 unless $self->{'sprite_CaseFieldNames'}
2999 0 0 if ($self->{'fields'}{$column})
3006 0 0 if (do { $$self{'types'} }->{$column} =~ /AUTO/o) { }
0 0 elsif (length $values[$loop] or not length $self->{'defaults'}{$column}) { }
3008 0 0 if (length $values[$loop]) { }
3028 0 0 if (length $v > 0 and do { $$self{'types'} }->{$column} =~ /$NUMERICTYPES/) { }
0 0 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 0 do { $$self{'types'} }->{$column} =~ /$BLOBTYPES/ ? :
3068 0 0 unless ($self->{'LongTruncOk'} or $v eq $hash->{$column} or do { $$self{'types'} }->{$column} eq 'FLOAT')
3074 0 0 if (do { $$self{'types'} }->{$column} eq 'FLOAT' and int $v != int $hash->{$column}) { }
0 0 elsif (do { $$self{'types'} }->{$column} eq 'CHAR' and length $v > 0) { }
3101 0 0 if ($column eq $keyfields[$j])
3103 0 0 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 0 if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { }
0 0 elsif (not $self->{'_write'} =~ /^xml/io) { }
3149 0 0 if $#{$$self{'order'};} < 0
3152 0 0 if $status >= 1 and $self->{'sprite_forcereplace'} and -e $new_file
3153 0 0 if ($status >= 1 and open FILE, ">$new_file") { }
3157 0 0 if ($self->{'platform'} eq 'PC') { }
3159 0 0 unless $self->lock
3163 0 0 unless flock FILE, $LOCK_EX
3165 0 0 if ($@)
3167 0 0 if $@
3174 0 0 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 0 0 if do { $$self{'order'} }->[$i] eq $keyfields[$j]
3232 0 0 unless (${$$self{'types'};}{do { $$self{'order'} }->[$i]} =~ /$BLOBTYPES/)
3235 0 0 if (${$$self{'scales'};}{do { $$self{'order'} }->[$i]} and ${$$self{'types'};}{do { $$self{'order'} }->[$i]} =~ /$NUMERICTYPES/)
3244 0 0 if length ${$$self{'defaults'};}{do { $$self{'order'} }->[$i]}
3250 0 0 if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { }
3258 0 0 $self->{'_write'} =~ /^xml/io ? :
3259 0 0 $rsinit ? :
3265 0 0 unless defined $record
3273 0 0 if (do { $$self{'types'} }->{$column} eq 'CHAR' and length $record->{$column} > 0) { }
3292 0 0 $rsinit ? :
3300 0 0 if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { }
3309 0 0 if ($rsend)
3312 0 0 if ($self->{'CBC'} and $self->{'sprite_Crypt'} <= 2) { }
3326 0 0 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 0 if ($self->{'CBC'} and $self->{'sprite_Crypt'} != 2) { }
3383 0 0 if scalar @{$self->{'records'};}
3386 0 0 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 0 unless open FILE, $file
3463 0 0 if ($self->{'platform'} eq 'PC') { }
3465 0 0 unless $self->lock
3469 0 0 unless flock FILE, $LOCK_EX
3471 0 0 if ($@)
3473 0 0 if $@
3479 0 0 if $self->{'CBC'} and $self->{'sprite_Crypt'} != 2
3480 0 0 unless /^\w+\=/o
3497 0 0 unless $self->{'sprite_CaseFieldNames'}
3498 0 0 unless $tp
3500 0 0 if $tp =~ s/^\*//o
3503 0 0 if $tp =~ /NUM|INT|FLOAT|DOUBLE/
3505 0 0 if $tp =~ /$BLOBTYPES/
3506 0 0 if $tp =~ s/(.*)\((.*)\)/$1/
3510 0 0 if defined $dflt
3511 0 0 if (${$$self{'lengths'};}{$fields[$i]} =~ s/\,(\d+)//) { }
0 0 elsif (${$$self{'types'};}{$fields[$i]} eq 'FLOAT') { }
3521 0 0 unless ${$$self{'scales'};}{$fields[$i]}
3531 0 0 if $self->{'CBC'} and $self->{'sprite_Crypt'} != 2
3533 0 0 unless $_
3553 0 0 unless $self->unlock
3556 0 0 if $self->{'use_fields'}
3557 0 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 0 unless $id =~ /CURRVAL|NEXTVAL/
3645 0 0 unless (open FILE, "<$seq_file")
3655 0 0 if ($id =~ /NEXTVAL/o)
3658 0 0 if $self->{'sprite_forcereplace'} and -e $seq_file
3659 0 0 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 0 0 defined $_->{$one} ? :
3781 0 0 unless do { $$self{'types'} }->{$one} =~ /$NUMERICTYPES/i
3823 0 0 if ref $_[0] eq 'HASH'
3825 0 0 unless $packagename