Branch Coverage

blib/lib/Acme/Tools.pm
Criterion Covered Total %
branch 707 1280 55.2


line true false branch
308 0 4 if $num < $start
314 0 4 if $num > 0
319 1 0 unless defined $start
363 7 17 $b == 0 ? :
2 24 @r ? :
400 1 2 @r ? :
492 6 10 unless defined $goal
493 6 10 unless defined $start
494 16 0 unless defined $delta
495 16 0 unless defined $iters
496 15 1 unless defined $sec
497 0 16 if $iters == 0
498 0 16 if $iters < 0 or $sec < 0
501 0 16 unless @_
502 0 16 if ref $f ne 'CODE'
505 1 15 $sec > 0 ? :
506 0 16 ref $start eq 'Math::BigFloat' ? :
510 1 558 if ($fx =~ /x/ and $fx =~ m[^[ \(\)\.\d\+\-\*/x\=\^]+$])
524 6 176 if $fd == 0
525 1 181 if $fd == 0
526 1 181 if $fd == 0
531 1 123 if $n > 3 and $x[$n + 1] == $x[$n] and $x[$n] == $x[$n - 1]
532 13 97 if $n > 4 and $x[$n] != 0 and abs 1 - $x[$n + 1] / $x[$n] < 1e-13
533 0 110 if $n > 3 and ref $x[$n + 1] eq 'Math::BigFloat' and substr($x[$n + 1], 0, $ds) eq substr($x[$n], 0, $ds)
534 1 166 if $sec > 0 and ($Resolve_time = time_fp() - $time_start) > $sec
539 0 14 if @x >= $iters
1257 0 0 $^O =~ /^(?:linux|cygwin)$/ ? :
1259 0 0 if (not -e $fn or time - (stat $fn)[9] >= $Currency_rates_expire)
1261 0 0 unless -s "$fn.$$.tmp"
1270 0 0 if keys %r > 20
1272 0 0 if $@
1280 0 43 if @_ != 3
1281 1 42 unless $conv_prepare_time
1286 0 43 if @type > 1
1288 0 43 if @type < 1
1289 0 43 if @err
1291 0 43 if $type eq 'money' and time >= $conv_prepare_money_time + $Currency_rates_expire
1292 7 36 if $type eq 'temperature'
1293 5 31 if $type eq 'numbers'
1296 9 21 $cf < 0 && $ct > 0 ? :
1 30 $cf > 0 && $ct < 0 ? :
1305 1 6 if $from =~ s/K/C/
1307 1 6 if $from eq $to
1317 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' ? :
1329 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' ? :
1384 0 32 unless defined $bytes
1385 8 24 if abs $bytes <= 1000
1386 16 8 if abs $bytes < 1024000
1387 2 6 if abs $bytes < 1048576000
1388 2 4 if abs $bytes < 1073741824000
1389 4 0 if abs $bytes < 1099511627776000
1425 3 3 $s < 31622400 ? :
1 6 $s < 86400 ? :
6 7 $s < 3600 ? :
6 13 $s < 60 ? :
4 19 $s < 60 && int $s == $s ? :
2 23 $s < 0 ? :
0 25 !length($s) ? :
0 25 !defined($s) ? :
1475 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) ? :
1480 101 916 $r =~ s/^-// ? :
1562 0 4 if $sqrt_a > 1
1563 0 4 if $sqrt_1ma > 1
1630 1 8 unless $INC{'Math/BigInt.pm'}
1631 2 7 if (wantarray) { }
1635 1 6 unless $INC{'Math/BigFloat.pm'}
1636 2 5 if (wantarray) { }
1640 1 16 unless $INC{'Math/BigRat.pm'}
1641 7 10 if (wantarray) { }
1646 0 2 m[/] ? :
2 2 /\./ ? :
1 7 $_[0] =~ m[/] ? :
3 8 $_[0] =~ /\./ ? :
1 11 wantarray ? :
1650 2 2 unless @_ == 1
1652 0 2 unless $INC{'Math/BigInt.pm'}
1653 0 2 unless $INC{'Math/BigFloat.pm'}
1654 0 2 unless $INC{'Math/BigRat.pm'}
1689 0 0 if ($nn =~ /^(\d*?)((.{$_})(\3)+)$/)
1691 0 0 if (length $2 > $max)
1698 0 0 if not $l || recursed() and $dec > 6 and substr $n, -1 and substr($n, -1)--
1708 0 0 if $d == 1
1712 0 0 wantarray ? :
1729 10 10 @_ ? :
1742 25 2 $fom < $tom ? :
1766 0 126 if @_ != 3 or not defined $min or not defined $max or not defined $val or $min > $max
1767 1 125 if ref $val eq 'SCALAR'
1768 1 122 $val > $max ? :
2 123 $val < $min ? :
1838 1 0 @_ ? :
1839 1 0 @_ ? :
1842 4 20 unless @_
1843 1 19 if @_ > 1
1845 5 14 if (ref $s eq 'SCALAR')
1846 1 13 if (ref $s eq 'ARRAY')
1853 15 2 if @_ < 3 or not length $p
1860 2 3 if @_ < 3 or not length $p
1861 1 4 $l < length $s ? :
1868 4 7 if @_ < 3 or not length $p
1870 0 11 if $l < $ls
1878 0 0 unless length $p
1879 0 0 if $l < length $s
1882 0 0 $i == int $i ? :
1883 0 0 $i == int $i ? :
1964 2 1 unless ref $s
1965 1 0 if ref $s eq 'ARRAY'
1970 1 1 unless ref $s
1971 1 0 if ref $s eq 'ARRAY'
2020 1 82 if ref $str eq 'SCALAR'
2025 81 28 defined $til ? :
2070 90 6996 if defined $_ and !defined($min) || $_ < $min
2071 2 1 if defined $_ and !defined($min) || $_ lt $min
2072 62 7030 if defined $_ and !defined($max) || $_ > $max
2073 2 1 if defined $_ and !defined($max) || $_ gt $max
2133 2348 8567 if (not defined $Pushsort_cmpsub and @$ar + @_ < 100)
2141 901 6666 unless (defined $Pushsort_cmpsub)
2142 0 901 if $v >= $ar->[-1]
2143 3 898 if $v < $ar->[0]
2212 0 14611 if ref $aref ne 'ARRAY'
2213 0 6678 if defined $cmpsub and ref $cmpsub and ref $cmpsub ne 'CODE'
2214 1 14610 if (defined $cmpsub and not ref $cmpsub)
2218 12 0 $insertpos ? :
12 14599 unless @$aref
2228 39007 89745 if (not $cmpsub and $search < $middle_value or $cmpsub and &$cmpsub($search, $middle_value) < 0) { }
82706 7039 elsif (not $cmpsub and $search > $middle_value or $cmpsub and &$cmpsub($search, $middle_value) > 0) { }
2230 0 39007 if $middle == $max and $min != $max
2231 1453 0 $insertpos ? :
1453 37554 if $middle == $max
2236 7521 75185 if $middle == $min and $max != $min
2237 6107 0 $insertpos ? :
6107 69078 if $middle == $min
2253 0 0 if ($x->[$k] > $v) { }
2289 10 25 if ($rank < 0)
2297 8652 262 if @sort > $rank
2299 20 5 wantarray ? :
2301 10 0 wantarray ? :
2322 1 26 if @arefs < 2
2329 0 272 if ++$ant and $ant > 100
2330 2 270 if $arefs[0][$_] ne $ar->[$_] or $arefs[0][$_] != $ar->[$_]
2360 0 1197 if not $cmpsub and $a->[$_] > $$a[$_ + 1] or $cmpsub and &$cmpsub($a->[$_], $$a[$_ + 1]) > 0
2415 4 4 &$c ? :
2460 0 0 ref $_[0] ? :
3 0 ref $_[0] eq 'ARRAY' ? :
2461 0 0 ref $_[0] ? :
3 0 ref $_[0] eq 'HASH' ? :
2462 0 0 ref $_[0] ? :
1 0 ref $_[0] eq 'SCALAR' ? :
2463 0 0 ref $_[0] ? :
1 0 ref $_[0] eq 'ARRAY' ? :
2464 0 0 ref $_[0] ? :
1 0 ref $_[0] eq 'ARRAY' ? :
2465 0 0 ref $_[0] ? :
1 0 ref $_[0] eq 'HASH' ? :
2466 0 0 ref $_[0] ? :
1 0 ref $_[0] eq 'HASH' ? :
2503 1 0 @_ >= 4 ? :
2 1 @_ == 3 ? :
1 3 @_ == 2 ? :
0 4 @_ == 1 ? :
2506 4 0 ref $_[0] eq 'HASH' ? :
2543 0 880 if (@_ == 0)
2544 1 879 if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
2546 1 879 if (@a == 0)
2601 1 13 if @_ == 0
2602 5 8 if @_ > 0 and not ref $_[0]
2604 0 8 if @$ar == 0
2605 2 6 if @$ar == 1
2642 3 3 $n % 2 ? :
2786 1 2 if (ref $_[0] eq 'ARRAY') { }
2 0 elsif (not ref $_[0]) { }
2790 0 3 unless @p
2791 0 3 unless @t
2793 0 3 if @t == 1
2795 0 9 if $_ < 0 or $_ > 100
2797 0 5 $i == int $i ? :
2 5 $i > $#t ? :
2 7 $i < 0 ? :
2803 2 1 @p == 1 ? :
2844 15001 6001 if ($ref eq 'ARRAY') { }
4001 2000 elsif ($ref eq 'HASH') { }
2846 1 15000 @_ > 1 ? :
2852 1 4000 @_ > 1 ? :
2854 1000 1000 if @_ == 1
2855 0 2000 if $from > $to
2963 0 1 unless defined $avg
2964 0 1 unless defined $stddev
2965 0 1 unless defined $num
2966 0 1 if @_ > 3
2979 0 1 if @r > $num
2980 0 1 if @_ < 3
3037 0 1020 if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
3104 1486 778 if /^[a-z].*[a-z\d]$/i and /[a-z]/ and /[A-Z]/ and /\d/
3110 6 54 unless $_[2]
3116 2 13907 if ++$Pwgen_trials >= $Pwgen_max_trials or ($d = time_fp() - $t) > $Pwgen_max_sec * $num and not $d =~ /^\d+$/
3122 7360 819 unless &$r()
8179 12377 if (ref $r eq 'CODE') { }
12377 0 elsif (ref $r eq 'Regexp') { }
3123 5896 6481 unless $pw =~ /$r/
3129 51 7 if $num == 1
3200 89 205 if $_ eq $val
3207 1 4999 if $_ == $val
3261 46 4 if $first{$_}
3283 2 6 if $code{$_} != 3
3414 0 0 unless $c{$a} <=> $c{$b}
3506 0 17 unless my $x = Compress::Zlib::deflateInit(-'Dictionary', $dict || '', -'Level', Compress::Zlib::Z_BEST_COMPRESSION())
3507 0 17 if $status != Compress::Zlib::Z_OK()
3508 0 17 if $status2 != Compress::Zlib::Z_OK()
3547 0 5 unless my $x = Compress::Zlib::inflateInit(-'Dictionary', $dict || '')
3549 0 5 if $status != Compress::Zlib::Z_STREAM_END()
3593 2 6 unless $INC{'Compress/Zlib.pm'}
0 8 if $@
0 8 ref $s ? :
3594 0 3 unless $INC{'Compress/Zlib.pm'}
0 3 if $@
0 3 ref $s ? :
3595 0 0 unless $INC{'Compress/Bzip2.pm'}
0 0 if $@
0 0 ref $s ? :
3596 0 0 unless $INC{'Compress/Bzip2.pm'}
0 0 if $@
0 0 ref $s ? :
3651 0 1 if exists $IPNUM_memo{$ipaddr}
3654 0 1 unless defined $h
3656 1 0 $ipnum =~ /^(\d+\.){3}\d+$/ ? :
3708 0 2 unless defined $query
3709 0 2 if (not defined $query and $ENV{'REQUEST_METHOD'} eq 'POST')
3715 0 7 unless length $_
3717 3 4 exists $R{$nkl} ? :
3817 2 7 if 1 > @_ or @_ > 3
2 5 if @_ == 1
3824 7 13 if /^[\d \.\,]+$/
3888 0 9 if (ref $filename eq 'ARRAY')
3892 0 9 unless open WRITEFILE, '>', $filename and binmode WRITEFILE
3893 9 0 if (not defined $text && ref $text) { }
0 0 elsif (ref $text eq 'SCALAR') { }
0 0 elsif (ref $text eq 'ARRAY') { }
3955 6 6 if (@_ == 1) { }
3956 1 5 if (wantarray) { }
3960 0 6 unless open my $fh, openstr($filename)
3961 5 1 if (ref $ref eq 'SCALAR') { }
1 0 elsif (ref $ref eq 'ARRAY') { }
4068 7 1 unless ref $s
4069 1 1 defined $1 && length $1 ? :
4090 0 2 unless -f $file and -e $file
4092 0 2 unless open my $WIFH, '+<', $file
4102 1 1 unless $keep
4130 1 11 ref $_[0] ? :
4132 12 0 if chmod $mode, $_ and utime $atime, $mtime, $_ and chown $uid, $gid, $_
4165 0 0 unless defined $p
4169 0 0 if $MAKEDIR{$d} or -d $d or mkdir $d, $p or ($dd) = $d =~ m[^(.+)/+([^/]+)$] and makedir($dd, $p) and mkdir $d, $p
4191 1 1 if -d $fn
4192 0 1 unless open my $FH, '<', $fn
4195 0 1 if $@
4255 1 2 ref $fn ? :
4260 12 51 if ($l =~ /^\s*\[\s*(.*?)\s*\]/) { }
33 18 elsif ($l =~ /^\s*([^\:\=]+)[:=]\s*(.*?)\s*$/) { }
4267 29 4 if length $section or $Read_conf_empty_section
4268 6 27 unless length $section
4300 10 12 unless $ext
4301 0 12 unless @Openstrpath
6 6 unless (grep((-x $_), map("$_/$_[0]", @Openstrpath)))[0]
4304 6 6 $fn =~ /^\s*>/ ? :
4455 0 1 if $_tms_inited++
4471 0 0 if @_ == 1 and $_[0] =~ /^(\d{4})(\d\d)(\d\d)$/
4472 0 0 unless $y =~ /^\d\d\d\d$/
4473 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]
4478 0 0 if @_ < 1
4479 0 0 if @_ == 1 and $_[0] =~ /^(\d{4})(\d\d)(\d\d)$/
4482 0 0 if (@_ < 2) { }
0 0 elsif (@_ != 3) { }
4483 0 0 if ($year =~ /^\d{8}$/) { }
0 0 elsif ($year > 99999999) { }
4488 0 0 unless date_ok(sprintf('%04d%02d%02d', $year, $month, $day))
4490 0 0 if $@
4501 0 42 if @_ > 1 and not defined $_[1]
4502 2 40 if (@_ == 1)
4504 0 2 if $_[0] eq 'YYYY'
4505 0 2 if $_[0] eq 'YYYYMMDD'
4506 1 1 if $_[0] =~ /$Re_isnum/ and @lt = localtime $_[0]
4509 2 39 unless defined $time
4510 36 5 if @_ >= 2 and $format =~ /^[\d+\:\-\.]+$/
4521 0 41 if ($is_date) { }
4522 0 0 10 + $_[0] > $lt[5] % 100 ? :
4523 0 0 if $time =~ /^(\d\d)(\d\d)(\d\d)$/
4524 0 0 if $time =~ /^((?:18|19|20)\d\d)(\d\d)(\d\d)$/
4527 0 41 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
4535 1 40 unless $_tms_inited
4536 1 40 unless $format
4580 0 0 $lt[5] == (localtime)[5] ? :
4589 1 1 $lt[6] ? :
4594 4 4 $lt[2] < 13 ? :
4599 2 2 $lt[2] < 13 ? :
4600 2 2 $lt[2] < 13 ? :
4638 3161 10342 (($L -= $L > 28 || ($L > 27 ? 1 - (21 - $Y % 19) / 11 : 0)) -= ($Y + $Y / 4 + $L + 2 - $C + $C / 4) % 7) < 4 ? :
4666 0 14069 unless eval { do { require Time::HiRes } }
4672 0 0 unless eval { do { require Time::HiRes } }
4706 0 5 unless eval { do { require Time::HiRes } }
4707 0 1 unless eval { do { require Time::HiRes } }
4708 0 1 unless eval { do { require Time::HiRes } }
4709 0 1 unless eval { do { require Time::HiRes } }
4710 0 1 unless eval { do { require Time::HiRes } }
4734 1 2011 @_ == 2 ? :
4738 98 1914 if @$a > 40
4739 1 2011 if @$a > 1 and $$a[-2][0] == $$a[-1][0]
4740 11 2001 if @$a < 2
4791 0 0 @_ == 1 ? :
4795 0 0 if $sleep > 0
4805 0 0 if @$thr < $times
4807 0 0 $since < $mintime ? :
4829 0 0 $_[0] % 4 ? :
0 0 $_[0] % 100 ? :
0 0 $_[0] % 400 ? :
4835 0 0 unless $s
4836 0 0 unless $t
4837 0 0 if not $l and 1000 < 0 + %ldist_cache
4841 0 0 substr($s, 0, 1) eq substr($t, 0, 1) ? :
4866 16 22 if defined $_[0] and length $_[0] or @_ == 1
4867 13 9 if @_ == 2
4868 8 1 if @_ > 2
4916 0 4 if @_ < 2
4918 4 0 if (defined $uttrykk) { }
4924 0 1 if @_ < 2
4926 1 0 if (defined $uttrykk) { }
4999 0 0 unless eval { do { require Term::ANSIColor } }
5078 0 0 if (KID_ok($ccn))
5079 0 0 if $ccn =~ /^5[1-5]\d{14}$/
5080 0 0 if $ccn =~ /^4\d{12}(?:\d{3})?$/
5081 0 0 if $ccn =~ /^3[47]\d{13}$/
5082 0 0 if $ccn =~ /^6011\d{12}$/
5083 0 0 if $ccn =~ /^3(?:0[0-5]\d{11}|[68]\d{12})$/
5084 0 0 if $ccn =~ /^(?:3\d{15}|(?:2131|1800)\d{11})$/
5124 0 0 if $_[0] =~ /\D/
5125 0 0 unless my @k = split(//, shift(), 0)
5127 0 0 $s % 10 == 0 ? :
5173 2 6 if @_ > 3
5175 1 5 if @_ == 1
5176 1 4 if @_ == 2
5177 0 4 if @_ != 3 or $jump == 0
5179 2 2 if ($jump > 0) { }
5188 2 0 $jump[0] >= 0 ? :
5217 120 13 $4 ? :
5324 0 2 ref $_[0] eq 'CODE' ? :
5325 0 2 if $code and @_ < 6
5327 0 2 if @_ < 2
5329 1 1 if @_ == 2
5331 1 0 if @_ == 3
5334 0 0 if @_ == 4
5341 0 0 if @_ == 5
5369 0 0 if (defined wantarray) { }
0 0 if ($code) { }
5370 0 0 if --$c[$i]
5474 1 4 unless (ref $_[0])
5480 1 8 if ref $ar eq 'CODE'
5488 0 0 @_ ? :
5515 0 0 if @rest == 0
5670 0 4 ref $vertikalefelt[-1] eq 'HASH' ? :
5671 0 4 if $opt{'sum'}
5672 0 4 exists $opt{'prosent'} ? :
5686 0 112 unless length $rad
5687 0 112 unless length $felt
5690 0 112 if ($opt_sum or defined $opt_pro)
5696 0 112 if $opt_pro
5699 0 4 if $opt_sum
5707 0 120 if (/^\%/ and defined $opt_pro) { }
5710 0 0 if ($sum != 0) { }
5711 0 0 defined $verdi ? :
5716 0 0 $verdi != 0 ? :
5726 0 4 if $opt_sum
5741 18 101 if $c and not "$a[$_]$b[$_]" =~ /[iI][nN][fF]|\376/i
5743 60 41 if $c
5797 0 5 $_[0] ? :
5802 0 5 exists $o{'pagesize'} ? :
5812 33 0 if (ref $_ eq 'ARRAY') { }
5816 0 210 if ($nodup_rad and $i > 0 and $$tab[$i][$j] eq $$tab[$i - 1][$j] || ($nodup_rad = 0)) { }
5817 0 0 $nodup == 1 ? :
5824 169 41 if not $hode and length $celle > 0
5826 0 236 /
5831 42 194 if length($_) + 1 + $bredere > $bredde[$j]
5832 37 198 if $_ and not /^\s*[\-\+]?(\d+|\d*\.\d+)\s*\%?$/ and not $hode
5834 25 185 if ($hoeyde > 1 and not $ikke_space)
5835 2 23 unless $hode
5836 1 24 if $i > 1 and $hoeyde[$i - 1] == 1
5838 38 172 if $hoeyde > $hoeyde[$i]
5852 0 5 if ($i == 0 or $venstretvang) { }
5853 0 33 unless $ikketom[$_]
5859 0 33 if ($$tab[$x] eq '-') { }
5860 0 0 $$tab[$x - 1][$_] =~ /\S/ ? :
5865 0 210 if $fjern_tom and not $ikketom[$y]
5868 0 0 $nodup > 0 ? :
0 210 !$overskrift_forrige && $nodup && $nodup[$x][$y] ? :
5875 129 57 if length $txt > 0 and not $venstre[$y] and $x > 0 || $ikke_hodestrek
5877 42 219 if ($y == $j) { }
5882 0 219 $txt =~ /
5894 33 0 unless ($ikke_hodestrek)
5895 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) { }
5897 0 33 if $fjern_tom and not $ikketom[$y]
6011 0 1421 if ($filename)
6012 0 0 unless open my $fh, '>', $filename
6018 1151 270 if (ref $r eq 'SCALAR') { }
76 194 elsif (ref $r eq 'ARRAY') { }
31 163 elsif (ref $r eq 'HASH') { }
70 93 elsif (ref $$r eq 'ARRAY') { }
93 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') { }
6019 0 1151 if $name
6020 8 1143 unless defined $$r
6027 2 74 if $name
6031 364 28 if $level >= 0
6035 0 74 if $name
6039 10 21 if $name
6043 73 0 if $level >= 0
6047 0 21 if $name
6051 0 70 if $name
6055 0 188 if not defined $level or $level >= 0
6059 0 70 if $name
6063 0 93 if $name
6067 0 294 if $level >= 0
6071 0 93 if $name
6166 1 5 ref((values %$hr)[0]) ? :
6169 0 16 unless $hr->{$a} <=> $hr->{$b}
6201 0 11 unless $r == 0
6216 0 0 (caller 1)[3] eq (caller 2)[3] ? :
6247 1 17 if ref $s
6251 121 0 $cs =~ s/^(M\d+|M.|""|".+?"|S.+?R|\\.|.)//s ? :
6253 1 120 if (defined $t)
6255 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 '""') { }
6258 2 0 if $i >= 0
6263 8 0 if substr($s, $p) =~ /(.*)/
6265 3 0 if substr($s, $p) =~ s/^(\W*\w+)//
6266 3 0 if substr($s, $p) =~ /(\W*\w+)/
6267 3 0 if substr($s, 0, $p) =~ /(\w+\W*)$/
6268 0 0 if $p
6269 5 0 if substr($s, 0, $p) =~ s/(\w+\W*)$//
6270 3 0 if substr($s, $p) =~ s/(\S.+|\s*?\n)//
6281 0 2 if $m or not @m
6284 3 116 if $m and $c ne '{'
6358 4 2 if $inp and $bf =~ /,/
6359 3 12 /\,/ ? :
36 15 /\./ ? :
21 51 /
34 72 />/ ? :
6 106 /\]/ ? :
6 112 /\[/ ? :
53 118 /\-/ ? :
206 171 /\+/ ? :
6368 0 0 $s =~ s/\$c/$o\$c/ ? :
6711 1 23 if @_ == 1
6712 2 0 if @_ == 2 and 0 < $_[0] and $_[0] < 1 and $_[1] > 1
6713 0 0 if @_ == 2 and 0 < $_[1] and $_[1] < 1 and $_[0] > 1
6715 0 21 if @_ % 2
6719 1 20 if @not_ok
6720 0 20 if exists $arg{'keys'} and ref $arg{'keys'} ne 'ARRAY'
6721 0 20 unless in(nvl($arg{'counting_bits'}, 1), 1, 2, 4, 8, 16, 32)
6722 0 20 if $arg{'adaptive'} and $arg{'counting_bits'} > 1
6734 2 18 if $bf->{'error_rate'} <= 0 or $bf->{'error_rate'} >= 1
6735 0 18 if $arg{'hashfuncs'}
6739 1 0 $bf->{'filterlength'} <= 1073741824 ? :
17 1 $bf->{'filterlength'} <= 16384 ? :
6741 8 10 if $arg{'keys'}
6750 0 2 if $differror
6751 0 2 if $bf->{'adaptive'}
6754 0 2 if $count > $bf->{'capacity'}
6756 1 1 if ($bf->{'counting_bits'} == 1) { }
6766 0 4793 if ($sum > 2 ** $cb - 1)
6775 0 4793 if exists $bf2->{'overflow'}{$_}
6782 5 3 if $bf->{'counting_bits'} == 1
6790 0 11 unless @keys
6791 1 10 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6795 15083 0 unless $bf->{'key_count'} >= $n and croak("Exceeded filter capacity $n")
6797 11110 3973 if ($cb == 1 and not $adaptive) { }
3973 0 elsif ($cb > 1) { }
0 0 elsif ($adaptive) { }
6806 26 11893 if ($c == 0)
6809 1 25 if $bf->{'overflow'}{$pos}++ and keys %{$$bf{'overflow'};} > 10
6817 0 0 unless @h
6821 0 0 if $_ >= $k - 1 and $bit == 0
6831 0 5 unless @keys
6832 0 5 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6835 5 0 if (not $adaptive) { }
6840 0 24001 unless $wa
6848 0 0 unless @h
6851 0 0 if $_ > $k - 1 and $bit == 1
6852 0 0 if $_ <= $k - 1 and $bit == 0
6853 0 0 if $bit == 0
6855 0 0 unless $wa
6863 0 8 unless @keys
6864 8 0 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6876 0 1 unless @keys
6877 1 0 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6889 0 3 unless @keys
6890 1 2 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6892 0 3 if $cb == 1
6895 501 0 unless $bf->{'key_count'} == 0 and croak('Deleted all and then some')
6902 3 1500 if $c == 0
6904 0 918 if $c == 1 and ++$ones and $bf->{'overflow'}{$pos}
6906 1 500 if ($croak)
6921 0 2 if $bf->{'version'} > $VERSION
6930 0 0 @_ == 2 ? :
0 0 @_ == 1 ? :
6933 0 0 unless 0 < $p and $p < 1
6940 0 0 @_ == 2 ? :
18 0 @_ == 1 ? :
6954 0 0 unless open my $F, '>', $fn
6963 0 0 $$_[2] ? :
0 0 $$_[4] > 0.01 ? :
6970 0 0 if -w "$fn,v"
6975 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' : '')))))))
7094 0 0 if $o{'l'}
7095 0 0 if $o{'h'} + $o{'k'} + $o{'m'} > 1
7096 0 0 if $o{'a'} + $o{'c'} > 1
7097 0 0 if $o{'k'} + $o{'m'} > 1
7098 0 0 unless @q
7100 0 0 $o{'z'} ? :
7102 0 0 exists $o{'e'} ? :
7106 0 0 if (-p STDIN) { }
7109 0 0 -f $_ ? :
0 0 /$qrstdin/ ? :
7110 0 0 $f =~ /$r/ ? :
7111 0 0 if $o{'i'}
7115 0 0 if $o{'M'} or $o{'P'}
7121 0 0 unless -f $_
7122 0 0 if $qrexcl and defined $File::Find::name and $File::Find::name =~ /$qrexcl/
7124 0 0 /$r/ ? :
7125 0 0 if $o{'i'}
7128 0 0 if $o{'M'} or $o{'P'}
7136 0 0 $o{'h'} ? :
0 0 $o{'m'} ? :
0 0 $o{'K'} ? :
0 0 $o{'k'} ? :
7138 0 0 unless $c{$a} <=> $c{$b}
7139 0 0 unless $b{$a} <=> $b{$b}
0 0 $o{'c'} ? :
0 0 $o{'a'} ? :
7142 0 0 $o{'P'} ? :
7144 0 0 @_ > 0 ? :
7146 0 0 if $o{'M'}
7148 0 0 $o{'t'} ? :
7151 0 0 !($o{'M'} || $o{'P'}) ? :
7158 0 0 unless open my $FH, $os
7169 0 0 ++$i % 3 ? :
7192 0 0 if not -e $fno or &$too_old($fno)
7214 0 8 unless $t =~ /^(gz|bz2|xz)$/
7216 1 7 if $o{'v'} and @ARGV > 1
7218 0 0 if (`which pv`) { }
0 8 if ($o{'p'})
7226 0 11 unless $new =~ s/(\.(gz|bz2|xz))?$/.$t/i
7227 6 5 defined $2 ? :
7228 0 11 if $same
0 11 if $o{'k'} and $same
7229 0 11 if not -e $_ and warn "$_ do not exists\n"
7230 0 11 if not -r $_ and warn "$_ is not readable\n"
7231 0 0 if -e $new and not $o{'o'} and warn "$new already exists, skipping (use -o to overwrite)\n"
7242 11 0 unless $o{'n'}
7245 11 0 unless $o{'k'}
7246 0 11 if $same
7247 11 0 if ($o{'v'})
7254 7 4 $o{'h'} ? :
7256 4 7 if (@ARGV > 1)
7258 0 0 $i < @ARGV ? :
0 4 if $sum > 1000000
7267 1 7 if ($o{'v'} and @ARGV > 1)
7268 1 0 $o{'h'} ? :
7273 3 0 $o{'h'} ? :
7314 0 0 if $connstr =~ /(\.sqlite|sqlite:.*\.db)$/i
7315 0 0 if $connstr =~ /\@/
7327 0 0 if ($type eq 'SQLite') { }
0 0 elsif ($type eq 'Oracle') { }
0 0 elsif ($type eq 'Pg') { }
7340 0 0 if $Dbh
7346 0 0 if @Dbh
7354 0 0 if $Acme::Tools::Dbh->{'Driver'}{'Name'} eq 'SQLite'
7356 0 0 @r == 1 ? :
7386 0 0 ref $arg[-1] eq 'HASH' ? :
7411 0 0 unless -x $Wget