Branch Coverage

blib/lib/Acme/Tools.pm
Criterion Covered Total %
branch 636 1126 56.4


line true false branch
281 0 4 if $num < $start
287 0 4 if $num > 0
292 1 0 unless defined $start
334 7 17 $b == 0 ? :
2 24 @r ? :
371 1 2 @r ? :
464 4 9 unless defined $g
465 4 9 unless defined $start
466 13 0 unless defined $delta
467 13 0 unless defined $iters
468 12 1 unless defined $sec
469 0 13 if $iters == 0
470 0 13 if $iters < 0 or $sec < 0
473 0 13 unless @_
474 0 13 if ref $f ne 'CODE'
477 1 12 $sec > 0 ? :
479 0 13 ref $start eq 'Math::BigFloat' ? :
483 0 546 if ($fx =~ /x/ and $fx =~ m[^[ \(\)\.\d\+\-\*/x\=]+$])
493 7 170 if $fd == 0
494 1 176 if $fd == 0
496 1 176 if $fd == 0
500 11 118 if $n > 3 and $x[$n + 1] == $x[$n] and $x[$n] == $x[$n - 1]
501 0 118 if $n > 3 and ref $x[$n + 1] eq 'Math::BigFloat' and substr($x[$n + 1], 0, $ds) eq substr($x[$n], 0, $ds)
502 1 2 if $sec > 0 and time_fp() - $time_start > $sec and $timeout = 1
506 0 11 if @x >= $iters
1202 0 0 $^O =~ /^(?:linux|cygwin)$/ ? :
1204 0 0 if (not -e $fn or time - (stat $fn)[9] >= $Currency_rates_expire)
1206 0 0 unless -s "$fn.$$.tmp"
1215 0 0 if keys %r > 20
1217 0 0 if $@
1225 0 41 if @_ != 3
1226 1 40 unless $conv_prepare_time
1231 0 41 if @type > 1
1233 0 41 if @type < 1
1234 0 41 if @err
1236 0 41 if $type eq 'money' and time >= $conv_prepare_money_time + $Currency_rates_expire
1237 7 34 if $type eq 'temperature'
1238 5 29 if $type eq 'numbers'
1241 9 19 $cf < 0 && $ct > 0 ? :
1 28 $cf > 0 && $ct < 0 ? :
1250 1 6 if $from =~ s/K/C/
1252 1 6 if $from eq $to
1262 0 0 $fr eq 'des' ? :
1 0 $fr eq 'roman' ? :
0 1 $fr eq 'skokk' ? :
0 1 $fr eq 'small_gross' ? :
0 1 $fr eq 'great_gross' ? :
0 1 $fr =~ /^(gross|gr|gro)$/ ? :
0 1 $fr =~ /^(dusin|dozen|doz|dz)$/ ? :
2 1 $fr eq 'bin' ? :
0 3 $fr eq 'oct' ? :
2 3 $fr eq 'hex' ? :
0 5 $fr eq 'dec' ? :
1274 2 0 $to eq 'des' ? :
1 2 $to eq 'roman' ? :
0 3 $to eq 'skokk' ? :
0 3 $to eq 'small_gross' ? :
0 3 $to eq 'great_gross' ? :
0 3 $to =~ /^(gross|gr|gro)$/ ? :
0 3 $to =~ /^(dusin|dozen|doz|dz)$/ ? :
1 3 $to eq 'bin' ? :
1 4 $to eq 'oct' ? :
0 5 $to eq 'hex' ? :
0 5 $to eq 'dec' ? :
1322 0 7 unless defined $bytes
1323 2 5 if abs $bytes <= 1000
1324 1 4 if abs $bytes < 1024000
1325 1 3 if abs $bytes < 1048576000
1326 1 2 if abs $bytes < 1073741824000
1327 2 0 if abs $bytes < 1099511627776000
1369 143 913 $n > 3999 ? :
100 1056 $n < 0 ? :
2 1156 $n == 0 ? :
0 1158 int $n != $n ? :
2 1158 !length($n) ? :
1 1160 !defined($n) ? :
1374 101 916 $r =~ s/^-// ? :
1456 0 4 if $sqrt_a > 1
1457 0 4 if $sqrt_1ma > 1
1524 1 8 unless $INC{'Math/BigInt.pm'}
1525 2 7 if (wantarray) { }
1529 1 6 unless $INC{'Math/BigFloat.pm'}
1530 2 5 if (wantarray) { }
1534 1 16 unless $INC{'Math/BigRat.pm'}
1535 7 10 if (wantarray) { }
1540 0 2 m[/] ? :
2 2 /\./ ? :
1 7 $_[0] =~ m[/] ? :
3 8 $_[0] =~ /\./ ? :
1 11 wantarray ? :
1544 2 2 unless @_ == 1
1546 0 2 unless $INC{'Math/BigInt.pm'}
1547 0 2 unless $INC{'Math/BigFloat.pm'}
1548 0 2 unless $INC{'Math/BigRat.pm'}
1583 0 0 if ($nn =~ /^(\d*?)((.{$_})(\3)+)$/)
1585 0 0 if (length $2 > $max)
1592 0 0 if not $l || recursed() and $dec > 6 and substr $n, -1 and substr($n, -1)--
1602 0 0 if $d == 1
1606 0 0 wantarray ? :
1618 10 10 @_ ? :
1631 25 2 $fom < $tom ? :
1655 0 126 if @_ != 3 or not defined $min or not defined $max or not defined $val or $min > $max
1656 1 125 if ref $val eq 'SCALAR'
1657 1 122 $val > $max ? :
2 123 $val < $min ? :
1725 1 0 @_ ? :
1726 1 0 @_ ? :
1729 4 20 unless @_
1730 1 19 if @_ > 1
1732 5 14 if (ref $s eq 'SCALAR')
1733 1 13 if (ref $s eq 'ARRAY')
1740 2 2 if @_ < 3 or not length $p
1747 2 3 if @_ < 3 or not length $p
1748 1 4 $l < length $s ? :
1755 4 7 if @_ < 3 or not length $p
1757 0 11 if $l < $ls
1765 0 0 unless length $p
1766 0 0 if $l < length $s
1769 0 0 $i == int $i ? :
1770 0 0 $i == int $i ? :
1851 2 1 unless ref $s
1852 1 0 if ref $s eq 'ARRAY'
1857 1 1 unless ref $s
1858 1 0 if ref $s eq 'ARRAY'
1907 1 68 if ref $str eq 'SCALAR'
1912 55 27 defined $til ? :
1958 90 6996 if defined $_ and !defined($min) || $_ < $min
1959 2 1 if defined $_ and !defined($min) || $_ lt $min
1960 48 7020 if defined $_ and !defined($max) || $_ > $max
1961 2 1 if defined $_ and !defined($max) || $_ gt $max
2021 2348 8567 if (not defined $Pushsort_cmpsub and @$ar + @_ < 100)
2029 901 6666 unless (defined $Pushsort_cmpsub)
2030 3 898 if $v >= $ar->[-1]
2031 6 892 if $v < $ar->[0]
2086 0 14603 if ref $aref ne 'ARRAY'
2087 0 14603 if $cmpsub and ref $cmpsub ne 'CODE'
2088 12 0 $insertpos ? :
12 14591 unless @$aref
2098 39065 89604 if (not $cmpsub and $search < $middle_value or $cmpsub and &$cmpsub($search, $middle_value) < 0) { }
82567 7037 elsif (not $cmpsub and $search > $middle_value or $cmpsub and &$cmpsub($search, $middle_value) > 0) { }
2100 0 39065 if $middle == $max and $min != $max
2101 1476 0 $insertpos ? :
1476 37589 if $middle == $max
2106 7505 75062 if $middle == $min and $max != $min
2107 6078 0 $insertpos ? :
6078 68984 if $middle == $min
2123 0 0 if ($x->[$k] > $v) { }
2159 10 25 if ($rank < 0)
2167 8652 262 if @sort > $rank
2169 20 5 wantarray ? :
2171 10 0 wantarray ? :
2192 1 26 if @arefs < 2
2199 0 272 if ++$ant and $ant > 100
2200 2 270 if $arefs[0][$_] ne $ar->[$_] or $arefs[0][$_] != $ar->[$_]
2230 0 1197 if not $cmpsub and $a->[$_] > $$a[$_ + 1] or $cmpsub and &$cmpsub($a->[$_], $$a[$_ + 1]) > 0
2285 4 4 &$c ? :
2323 0 880 if (@_ == 0)
2324 1 879 if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
2326 1 879 if (@a == 0)
2381 1 13 if @_ == 0
2382 5 8 if @_ > 0 and not ref $_[0]
2384 0 8 if @$ar == 0
2385 2 6 if @$ar == 1
2414 3 3 $n % 2 ? :
2560 1 2 if (ref $_[0] eq 'ARRAY') { }
2 0 elsif (not ref $_[0]) { }
2564 0 3 unless @p
2565 0 3 unless @t
2567 0 3 if @t == 1
2569 0 9 if $_ < 0 or $_ > 100
2571 0 5 $i == int $i ? :
2 5 $i > $#t ? :
2 7 $i < 0 ? :
2577 2 1 @p == 1 ? :
2618 15001 6001 if ($ref eq 'ARRAY') { }
4001 2000 elsif ($ref eq 'HASH') { }
2620 1 15000 @_ > 1 ? :
2626 1 4000 @_ > 1 ? :
2628 1000 1000 if @_ == 1
2629 0 2000 if $from > $to
2737 0 1 unless defined $avg
2738 0 1 unless defined $stddev
2739 0 1 unless defined $num
2740 0 1 if @_ > 3
2753 0 1 if @r > $num
2754 0 1 if @_ < 3
2811 0 1020 if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
2878 1630 670 if /^[a-z\d].*[a-z\d]$/i and /[a-z]/ and /[A-Z]/ and /\d/
2884 6 54 unless $_[2]
2890 2 12270 if ++$Pwgen_trials >= $Pwgen_max_trials or time_fp() - $t > $Pwgen_max_sec * $num
2895 6178 908 unless &$r()
7086 11729 if (ref $r eq 'CODE') { }
11729 0 elsif (ref $r eq 'Regexp') { }
2896 5441 6288 unless $pw =~ /$r/
2902 51 7 if $num == 1
2973 83 199 if $_ eq $val
2980 1 4999 if $_ == $val
3034 44 4 if $first{$_}
3056 2 6 if $code{$_} != 3
3234 0 17 unless my $x = Compress::Zlib::deflateInit(-'Dictionary', $dict || '', -'Level', Compress::Zlib::Z_BEST_COMPRESSION())
3235 0 17 if $status != Compress::Zlib::Z_OK()
3236 0 17 if $status2 != Compress::Zlib::Z_OK()
3275 0 5 unless my $x = Compress::Zlib::inflateInit(-'Dictionary', $dict || '')
3277 0 5 if $status != Compress::Zlib::Z_STREAM_END()
3406 0 1 if exists $IPNUM_memo{$ipaddr}
3409 0 1 unless defined $h
3411 1 0 $ipnum =~ /^(\d+\.){3}\d+$/ ? :
3463 0 2 unless defined $query
3464 0 2 if (not defined $query and $ENV{'REQUEST_METHOD'} eq 'POST')
3470 0 7 unless length $_
3472 3 4 exists $R{$nkl} ? :
3572 2 7 if 1 > @_ or @_ > 3
2 5 if @_ == 1
3579 7 13 if /^[\d \.\,]+$/
3643 0 4 if (ref $filename eq 'ARRAY')
3647 0 4 unless open WRITEFILE, '>', $filename and binmode WRITEFILE
3648 4 0 if (not defined $text && ref $text) { }
0 0 elsif (ref $text eq 'SCALAR') { }
0 0 elsif (ref $text eq 'ARRAY') { }
3710 6 6 if (@_ == 1) { }
3711 1 5 if (wantarray) { }
3715 0 6 unless open my $fh, openstr($filename)
3716 5 1 if (ref $ref eq 'SCALAR') { }
1 0 elsif (ref $ref eq 'ARRAY') { }
3823 7 1 unless ref $s
3824 1 1 defined $1 && length $1 ? :
3845 0 2 unless -f $file and -e $file
3847 0 2 unless open my $WIFH, '+<', $file
3857 1 1 unless $keep
3885 1 0 ref $_[0] ? :
3887 1 0 if chmod $mode, $_ and utime $atime, $mtime, $_ and chown $uid, $gid, $_
3920 0 0 unless defined $p
3924 0 0 if $MAKEDIR{$d} or -d $d or mkdir $d, $p or ($dd) = $d =~ m[^(.+)/+([^/]+)$] and makedir($dd, $p) and mkdir $d, $p
3946 1 1 if -d $fn
3947 0 1 unless open my $FH, '<', $fn
3950 0 1 if $@
4010 1 2 ref $fn ? :
4015 12 51 if ($l =~ /^\s*\[\s*(.*?)\s*\]/) { }
33 18 elsif ($l =~ /^\s*([^\:\=]+)[:=]\s*(.*?)\s*$/) { }
4022 29 4 if length $section or $Read_conf_empty_section
4023 6 27 unless length $section
4055 8 6 unless $ext
4056 0 6 unless @Openstrpath
0 6 unless (grep((-x $_), map("$_/$_[0]", @Openstrpath)))[0]
4059 3 3 $fn =~ /^\s*>/ ? :
4208 0 1 if $_tms_inited++
4224 0 0 if @_ == 1 and $_[0] =~ /^(\d{4})(\d\d)(\d\d)$/
4225 0 0 unless $y =~ /^\d\d\d\d$/
4226 0 0 $y % 4 || $y % 100 == 0 && $y % 400 ? :
0 0 if $m < 1 or $m > 12 or $d < 1 or $d > (31, $y % 4 || $y % 100 == 0 && $y % 400 ? 28 : 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)[$m - 1]
4231 0 0 if @_ < 1
4232 0 0 if @_ == 1 and $_[0] =~ /^(\d{4})(\d\d)(\d\d)$/
4235 0 0 if (@_ < 2) { }
0 0 elsif (@_ != 3) { }
4236 0 0 if ($year =~ /^\d{8}$/) { }
0 0 elsif ($year > 99999999) { }
4241 0 0 unless date_ok(sprintf('%04d%02d%02d', $year, $month, $day))
4243 0 0 if $@
4252 0 40 if @_ > 1 and not defined $_[1]
4253 2 38 if (@_ == 1)
4255 0 2 if $_[0] eq 'YYYY'
4256 0 2 if $_[0] eq 'YYYYMMDD'
4257 1 1 if $_[0] =~ /$Re_isnum/ and @lt = localtime $_[0]
4260 2 37 unless defined $time
4261 34 5 if @_ >= 2 and $format =~ /^[\d+\:\-\.]+$/
4272 0 39 if ($is_date) { }
4273 0 0 10 + $_[0] > $lt[5] % 100 ? :
4274 0 0 if $time =~ /^(\d\d)(\d\d)(\d\d)$/
4275 0 0 if $time =~ /^((?:18|19|20)\d\d)(\d\d)(\d\d)$/
4278 0 39 if $time =~ /^((?:19|20|18)\d\d) #yyyy (0[1-9]|1[012]) #mm (0[1-9]|[12]\d|3[01]) \-? #dd ([01]\d|2[0-3]) \:? #hh24 ([0-5]\d) \:? #mi ([0-5]\d) $/x
4286 1 38 unless $_tms_inited
4287 1 38 unless $format
4331 0 0 $lt[5] == (localtime)[5] ? :
4340 1 1 $lt[6] ? :
4345 4 4 $lt[2] < 13 ? :
4350 2 2 $lt[2] < 13 ? :
4351 2 2 $lt[2] < 13 ? :
4385 1164 3836 (($L -= $L > 28 || ($L > 27 ? 1 - (21 - $Y % 19) / 11 : 0)) -= ($Y + $Y / 4 + $L + 2 - $C + $C / 4) % 7) < 4 ? :
4413 0 12416 unless eval { do { require Time::HiRes } }
4447 0 13 unless eval { do { require Time::HiRes } }
4448 0 1 unless eval { do { require Time::HiRes } }
4449 0 1 unless eval { do { require Time::HiRes } }
4450 0 1 unless eval { do { require Time::HiRes } }
4451 0 1 unless eval { do { require Time::HiRes } }
4475 1 2003 @_ == 2 ? :
4479 98 1906 if @$a > 40
4480 1 2003 if @$a > 1 and $$a[-2][0] == $$a[-1][0]
4481 3 2001 if @$a < 2
4532 0 0 @_ == 1 ? :
4536 0 0 if $sleep > 0
4556 0 0 $_[0] % 4 ? :
0 0 $_[0] % 100 ? :
0 0 $_[0] % 400 ? :
4562 0 0 unless $s
4563 0 0 unless $t
4564 0 0 if not $l and 1000 < 0 + %ldist_cache
4568 0 0 substr($s, 0, 1) eq substr($t, 0, 1) ? :
4593 16 22 if defined $_[0] and length $_[0] or @_ == 1
4594 13 9 if @_ == 2
4595 8 1 if @_ > 2
4643 0 4 if @_ < 2
4645 4 0 if (defined $uttrykk) { }
4651 0 1 if @_ < 2
4653 1 0 if (defined $uttrykk) { }
4726 0 0 unless eval { do { require Term::ANSIColor } }
4805 0 0 if (KID_ok($ccn))
4806 0 0 if $ccn =~ /^5[1-5]\d{14}$/
4807 0 0 if $ccn =~ /^4\d{12}(?:\d{3})?$/
4808 0 0 if $ccn =~ /^3[47]\d{13}$/
4809 0 0 if $ccn =~ /^6011\d{12}$/
4810 0 0 if $ccn =~ /^3(?:0[0-5]\d{11}|[68]\d{12})$/
4811 0 0 if $ccn =~ /^(?:3\d{15}|(?:2131|1800)\d{11})$/
4851 0 0 if $_[0] =~ /\D/
4852 0 0 unless my @k = split(//, shift(), 0)
4854 0 0 $s % 10 == 0 ? :
4900 2 6 if @_ > 3
4902 1 5 if @_ == 1
4903 1 4 if @_ == 2
4904 0 4 if @_ != 3 or $jump == 0
4906 2 2 if ($jump > 0) { }
4915 2 0 $jump[0] >= 0 ? :
5027 0 2 ref $_[0] eq 'CODE' ? :
5028 0 2 if $code and @_ < 6
5030 0 2 if @_ < 2
5032 1 1 if @_ == 2
5034 1 0 if @_ == 3
5037 0 0 if @_ == 4
5044 0 0 if @_ == 5
5072 0 0 if (defined wantarray) { }
0 0 if ($code) { }
5073 0 0 if --$c[$i]
5177 1 4 unless (ref $_[0])
5183 1 8 if ref $ar eq 'CODE'
5191 0 0 @_ ? :
5218 0 0 if @rest == 0
5373 0 4 ref $vertikalefelt[-1] eq 'HASH' ? :
5374 0 4 if $opt{'sum'}
5375 0 4 exists $opt{'prosent'} ? :
5389 0 112 unless length $rad
5390 0 112 unless length $felt
5393 0 112 if ($opt_sum or defined $opt_pro)
5399 0 112 if $opt_pro
5402 0 4 if $opt_sum
5410 0 120 if (/^\%/ and defined $opt_pro) { }
5413 0 0 if ($sum != 0) { }
5414 0 0 defined $verdi ? :
5419 0 0 $verdi != 0 ? :
5429 0 4 if $opt_sum
5444 14 96 if $c and not "$a[$_]$b[$_]" =~ /[iI][nN][fF]|\376/i
5446 58 38 if $c
5500 0 5 $_[0] ? :
5505 0 5 exists $o{'pagesize'} ? :
5515 33 0 if (ref $_ eq 'ARRAY') { }
5519 0 210 if ($nodup_rad and $i > 0 and $$tab[$i][$j] eq $$tab[$i - 1][$j] || ($nodup_rad = 0)) { }
5520 0 0 $nodup == 1 ? :
5527 169 41 if not $hode and length $celle > 0
5529 0 236 /
5534 42 194 if length($_) + 1 + $bredere > $bredde[$j]
5535 37 198 if $_ and not /^\s*[\-\+]?(\d+|\d*\.\d+)\s*\%?$/ and not $hode
5537 25 185 if ($hoeyde > 1 and not $ikke_space)
5538 2 23 unless $hode
5539 1 24 if $i > 1 and $hoeyde[$i - 1] == 1
5541 38 172 if $hoeyde > $hoeyde[$i]
5555 0 5 if ($i == 0 or $venstretvang) { }
5556 0 33 unless $ikketom[$_]
5562 0 33 if ($$tab[$x] eq '-') { }
5563 0 0 $$tab[$x - 1][$_] =~ /\S/ ? :
5568 0 210 if $fjern_tom and not $ikketom[$y]
5571 0 0 $nodup > 0 ? :
0 210 !$overskrift_forrige && $nodup && $nodup[$x][$y] ? :
5578 129 57 if length $txt > 0 and not $venstre[$y] and $x > 0 || $ikke_hodestrek
5580 42 219 if ($y == $j) { }
5585 0 219 $txt =~ /
5597 33 0 unless ($ikke_hodestrek)
5598 5 28 if ($x == 0) { }
0 28 elsif ($x % $pagesize == 0 || $nodup > 0 && !$nodup[$x + 1][$nodup - 1] and $x + 1 < @$tab and not $ikke_hodestrek) { }
5600 0 33 if $fjern_tom and not $ikketom[$y]
5714 0 1127 if ($filename)
5715 0 0 unless open my $fh, '>', $filename
5721 903 224 if (ref $r eq 'SCALAR') { }
72 152 elsif (ref $r eq 'ARRAY') { }
31 121 elsif (ref $r eq 'HASH') { }
48 73 elsif (ref $$r eq 'ARRAY') { }
73 0 elsif (ref $$r eq 'HASH') { }
0 0 elsif (ref $$r eq 'SCALAR') { }
0 0 elsif (ref $r eq 'LVALUE') { }
0 0 elsif (ref $$r eq 'CODE') { }
0 0 elsif (ref $$r eq 'GLOB') { }
5722 0 903 if $name
5723 4 899 unless defined $$r
5730 2 70 if $name
5734 322 28 if $level >= 0
5738 0 70 if $name
5742 10 21 if $name
5746 73 0 if $level >= 0
5750 0 21 if $name
5754 0 48 if $name
5758 0 100 if not defined $level or $level >= 0
5762 0 48 if $name
5766 0 73 if $name
5770 0 214 if $level >= 0
5774 0 73 if $name
5844 0 0 unless $r == 0
5859 0 0 (caller 1)[3] eq (caller 2)[3] ? :
5888 1 17 if ref $s
5892 121 0 $cs =~ s/^(M\d+|M.|""|".+?"|S.+?R|\\.|.)//s ? :
5894 1 120 if (defined $t)
5896 0 65 $sh ^ $cl ? :
65 55 if ($c =~ /^([a-z0-9 ])/) { }
1 54 elsif ($c =~ /^"(.+)"$/) { }
1 53 elsif ($c =~ /^\\(.)/) { }
2 51 elsif ($c =~ /^S(.+)R/) { }
1 50 elsif ($c =~ /^M(\d+)/) { }
2 48 elsif ($c eq 'F') { }
1 47 elsif ($c eq 'B') { }
0 47 elsif ($c eq 'A') { }
8 39 elsif ($c eq 'E') { }
4 35 elsif ($c eq 'D') { }
3 32 elsif ($c eq 'MD') { }
3 29 elsif ($c eq 'MF') { }
3 26 elsif ($c eq 'MB') { }
0 26 elsif ($c eq '-') { }
5 21 elsif ($c eq 'M-') { }
3 18 elsif ($c eq 'K') { }
12 6 elsif ($c eq 'Y') { }
0 6 elsif ($c eq 'U') { }
0 6 elsif ($c eq 'L') { }
0 6 elsif ($c eq 'C') { }
0 6 elsif ($c eq '<') { }
0 6 elsif ($c eq '>') { }
0 6 elsif ($c eq 'T') { }
0 6 elsif ($c eq 'C') { }
1 5 elsif ($c eq '{') { }
1 4 elsif ($c eq '}') { }
2 2 elsif ($c eq '!') { }
2 0 elsif ($c eq '""') { }
5899 2 0 if $i >= 0
5904 8 0 if substr($s, $p) =~ /(.*)/
5906 3 0 if substr($s, $p) =~ s/^(\W*\w+)//
5907 3 0 if substr($s, $p) =~ /(\W*\w+)/
5908 3 0 if substr($s, 0, $p) =~ /(\w+\W*)$/
5909 0 0 if $p
5910 5 0 if substr($s, 0, $p) =~ s/(\w+\W*)$//
5911 3 0 if substr($s, $p) =~ s/(\S.+|\s*?\n)//
5922 0 2 if $m or not @m
5925 3 116 if $m and $c ne '{'
6000 4 2 if $inp and $bf =~ /,/
6001 3 12 /\,/ ? :
36 15 /\./ ? :
21 51 /
34 72 />/ ? :
6 106 /\]/ ? :
6 112 /\[/ ? :
53 118 /\-/ ? :
206 171 /\+/ ? :
6010 0 0 $s =~ s/\$c/$o\$c/ ? :
6353 1 23 if @_ == 1
6354 2 0 if @_ == 2 and 0 < $_[0] and $_[0] < 1 and $_[1] > 1
6355 0 0 if @_ == 2 and 0 < $_[1] and $_[1] < 1 and $_[0] > 1
6357 0 21 if @_ % 2
6361 1 20 if @not_ok
6362 0 20 if exists $arg{'keys'} and ref $arg{'keys'} ne 'ARRAY'
6363 0 20 unless in(nvl($arg{'counting_bits'}, 1), 1, 2, 4, 8, 16, 32)
6364 0 20 if $arg{'adaptive'} and $arg{'counting_bits'} > 1
6376 2 18 if $bf->{'error_rate'} <= 0 or $bf->{'error_rate'} >= 1
6377 0 18 if $arg{'hashfuncs'}
6381 1 0 $bf->{'filterlength'} <= 1073741824 ? :
17 1 $bf->{'filterlength'} <= 16384 ? :
6383 8 10 if $arg{'keys'}
6392 0 2 if $differror
6393 0 2 if $bf->{'adaptive'}
6396 0 2 if $count > $bf->{'capacity'}
6398 1 1 if ($bf->{'counting_bits'} == 1) { }
6408 0 4793 if ($sum > 2 ** $cb - 1)
6417 0 4793 if exists $bf2->{'overflow'}{$_}
6424 5 3 if $bf->{'counting_bits'} == 1
6432 0 11 unless @keys
6433 1 10 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6437 15083 0 unless $bf->{'key_count'} >= $n and croak("Exceeded filter capacity $n")
6439 11110 3973 if ($cb == 1 and not $adaptive) { }
3973 0 elsif ($cb > 1) { }
0 0 elsif ($adaptive) { }
6448 26 11893 if ($c == 0)
6451 1 25 if $bf->{'overflow'}{$pos}++ and keys %{$$bf{'overflow'};} > 10
6459 0 0 unless @h
6463 0 0 if $_ >= $k - 1 and $bit == 0
6473 0 5 unless @keys
6474 0 5 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6477 5 0 if (not $adaptive) { }
6482 0 24001 unless $wa
6490 0 0 unless @h
6493 0 0 if $_ > $k - 1 and $bit == 1
6494 0 0 if $_ <= $k - 1 and $bit == 0
6495 0 0 if $bit == 0
6497 0 0 unless $wa
6505 0 8 unless @keys
6506 8 0 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6518 0 1 unless @keys
6519 1 0 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6531 0 3 unless @keys
6532 1 2 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6534 0 3 if $cb == 1
6537 501 0 unless $bf->{'key_count'} == 0 and croak('Deleted all and then some')
6544 3 1500 if $c == 0
6546 0 918 if $c == 1 and ++$ones and $bf->{'overflow'}{$pos}
6548 1 500 if ($croak)
6563 0 2 if $bf->{'version'} > $VERSION
6572 0 0 @_ == 2 ? :
0 0 @_ == 1 ? :
6575 0 0 unless 0 < $p and $p < 1
6582 0 0 @_ == 2 ? :
18 0 @_ == 1 ? :
6596 0 0 unless open my $F, '>', $fn
6605 0 0 $$_[2] ? :
0 0 $$_[4] > 0.01 ? :
6612 0 0 if -w "$fn,v"
6617 0 0 -t $f ? :
0 0 -c $f ? :
0 0 -b $f ? :
0 0 -S $f ? :
0 0 -p $f ? :
0 0 -l $f ? :
0 0 -d $f ? :
0 0 -f $f ? :
0 0 unless -e $f and -f $f ? 'file' : (-d $f ? 'dir' : (-l $f ? 'symlink' : (-p $f ? 'pipe' : (-S $f ? 'socket' : (-b $f ? 'blockfile' : (-c $f ? 'charfile' : (-t $f ? 'ttyfile' : '')))))))
6689 0 0 if $o{'h'} + $o{'k'} + $o{'m'} > 1
6690 0 0 if $o{'a'} + $o{'c'} > 1
6691 0 0 if $o{'k'} + $o{'m'} > 1
6692 0 0 unless @q
6694 0 0 $o{'z'} ? :
6696 0 0 exists $o{'e'} ? :
6699 0 0 unless -f $_
6700 0 0 if $rexcl and $File::Find::name =~ /$rexcl/
6702 0 0 /$r/ ? :
6703 0 0 if $o{'i'}
6706 0 0 if $o{'M'} or $o{'P'}
6713 0 0 $o{'h'} ? :
0 0 $o{'m'} ? :
0 0 $o{'K'} ? :
0 0 $o{'k'} ? :
6715 0 0 unless $c{$a} <=> $c{$b}
6716 0 0 unless $b{$a} <=> $b{$b}
0 0 $o{'c'} ? :
0 0 $o{'a'} ? :
6717 0 0 $o{'P'} ? :
6719 0 0 unless $o{'M'} or $o{'P'}
6721 0 0 @_ > 0 ? :
6723 0 0 if $o{'M'}
6725 0 0 if $o{'t'}
6735 0 0 unless open my $FH, $os
6745 0 0 ++$i % 3 ? :
6767 0 0 if not -e $fno or &$too_old($fno)
6805 0 0 if $connstr =~ /(\.sqlite|sqlite:.*\.db)$/i
6806 0 0 if $connstr =~ /\@/
6818 0 0 if ($type eq 'SQLite') { }
0 0 elsif ($type eq 'Oracle') { }
0 0 elsif ($type eq 'Pg') { }
6831 0 0 if $Dbh
6837 0 0 if @Dbh
6845 0 0 if $Acme::Tools::Dbh->{'Driver'}{'Name'} eq 'SQLite'
6847 0 0 @r == 1 ? :
6877 0 0 ref $arg[-1] eq 'HASH' ? :
6900 0 0 unless -x $Wget