Branch Coverage

blib/lib/Acme/Tools.pm
Criterion Covered Total %
branch 708 1280 55.3


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
1256 0 0 $^O =~ /^(?:linux|cygwin)$/ ? :
1258 0 0 if (not -e $fn or time - (stat $fn)[9] >= $Currency_rates_expire)
1260 0 0 unless -s "$fn.$$.tmp"
1269 0 0 if keys %r > 20
1271 0 0 if $@
1279 0 43 if @_ != 3
1280 1 42 unless $conv_prepare_time
1285 0 43 if @type > 1
1287 0 43 if @type < 1
1288 0 43 if @err
1290 0 43 if $type eq 'money' and time >= $conv_prepare_money_time + $Currency_rates_expire
1291 7 36 if $type eq 'temperature'
1292 5 31 if $type eq 'numbers'
1295 9 21 $cf < 0 && $ct > 0 ? :
1 30 $cf > 0 && $ct < 0 ? :
1304 1 6 if $from =~ s/K/C/
1306 1 6 if $from eq $to
1316 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' ? :
1328 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' ? :
1383 0 32 unless defined $bytes
1384 8 24 if abs $bytes <= 1000
1385 16 8 if abs $bytes < 1024000
1386 2 6 if abs $bytes < 1048576000
1387 2 4 if abs $bytes < 1073741824000
1388 4 0 if abs $bytes < 1099511627776000
1424 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) ? :
1474 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) ? :
1479 101 916 $r =~ s/^-// ? :
1561 0 4 if $sqrt_a > 1
1562 0 4 if $sqrt_1ma > 1
1629 1 8 unless $INC{'Math/BigInt.pm'}
1630 2 7 if (wantarray) { }
1634 1 6 unless $INC{'Math/BigFloat.pm'}
1635 2 5 if (wantarray) { }
1639 1 16 unless $INC{'Math/BigRat.pm'}
1640 7 10 if (wantarray) { }
1645 0 2 m[/] ? :
2 2 /\./ ? :
1 7 $_[0] =~ m[/] ? :
3 8 $_[0] =~ /\./ ? :
1 11 wantarray ? :
1649 2 2 unless @_ == 1
1651 0 2 unless $INC{'Math/BigInt.pm'}
1652 0 2 unless $INC{'Math/BigFloat.pm'}
1653 0 2 unless $INC{'Math/BigRat.pm'}
1688 0 0 if ($nn =~ /^(\d*?)((.{$_})(\3)+)$/)
1690 0 0 if (length $2 > $max)
1697 0 0 if not $l || recursed() and $dec > 6 and substr $n, -1 and substr($n, -1)--
1707 0 0 if $d == 1
1711 0 0 wantarray ? :
1728 10 10 @_ ? :
1741 25 2 $fom < $tom ? :
1765 0 126 if @_ != 3 or not defined $min or not defined $max or not defined $val or $min > $max
1766 1 125 if ref $val eq 'SCALAR'
1767 1 122 $val > $max ? :
2 123 $val < $min ? :
1837 1 0 @_ ? :
1838 1 0 @_ ? :
1841 4 20 unless @_
1842 1 19 if @_ > 1
1844 5 14 if (ref $s eq 'SCALAR')
1845 1 13 if (ref $s eq 'ARRAY')
1852 15 2 if @_ < 3 or not length $p
1859 2 3 if @_ < 3 or not length $p
1860 1 4 $l < length $s ? :
1867 4 7 if @_ < 3 or not length $p
1869 0 11 if $l < $ls
1877 0 0 unless length $p
1878 0 0 if $l < length $s
1881 0 0 $i == int $i ? :
1882 0 0 $i == int $i ? :
1963 2 1 unless ref $s
1964 1 0 if ref $s eq 'ARRAY'
1969 1 1 unless ref $s
1970 1 0 if ref $s eq 'ARRAY'
2019 1 82 if ref $str eq 'SCALAR'
2024 81 28 defined $til ? :
2069 90 6996 if defined $_ and !defined($min) || $_ < $min
2070 2 1 if defined $_ and !defined($min) || $_ lt $min
2071 60 7032 if defined $_ and !defined($max) || $_ > $max
2072 2 1 if defined $_ and !defined($max) || $_ gt $max
2132 2348 8567 if (not defined $Pushsort_cmpsub and @$ar + @_ < 100)
2140 901 6666 unless (defined $Pushsort_cmpsub)
2141 3 898 if $v >= $ar->[-1]
2142 2 896 if $v < $ar->[0]
2211 0 14609 if ref $aref ne 'ARRAY'
2212 0 6678 if defined $cmpsub and ref $cmpsub and ref $cmpsub ne 'CODE'
2213 1 14608 if (defined $cmpsub and not ref $cmpsub)
2217 12 0 $insertpos ? :
12 14597 unless @$aref
2227 38944 89791 if (not $cmpsub and $search < $middle_value or $cmpsub and &$cmpsub($search, $middle_value) < 0) { }
82752 7039 elsif (not $cmpsub and $search > $middle_value or $cmpsub and &$cmpsub($search, $middle_value) > 0) { }
2229 0 38944 if $middle == $max and $min != $max
2230 1450 0 $insertpos ? :
1450 37494 if $middle == $max
2235 7505 75247 if $middle == $min and $max != $min
2236 6108 0 $insertpos ? :
6108 69139 if $middle == $min
2252 0 0 if ($x->[$k] > $v) { }
2288 10 25 if ($rank < 0)
2296 8652 262 if @sort > $rank
2298 20 5 wantarray ? :
2300 10 0 wantarray ? :
2321 1 26 if @arefs < 2
2328 0 272 if ++$ant and $ant > 100
2329 2 270 if $arefs[0][$_] ne $ar->[$_] or $arefs[0][$_] != $ar->[$_]
2359 0 1197 if not $cmpsub and $a->[$_] > $$a[$_ + 1] or $cmpsub and &$cmpsub($a->[$_], $$a[$_ + 1]) > 0
2414 4 4 &$c ? :
2459 0 0 ref $_[0] ? :
3 0 ref $_[0] eq 'ARRAY' ? :
2460 0 0 ref $_[0] ? :
3 0 ref $_[0] eq 'HASH' ? :
2461 0 0 ref $_[0] ? :
1 0 ref $_[0] eq 'SCALAR' ? :
2462 0 0 ref $_[0] ? :
1 0 ref $_[0] eq 'ARRAY' ? :
2463 0 0 ref $_[0] ? :
1 0 ref $_[0] eq 'ARRAY' ? :
2464 0 0 ref $_[0] ? :
1 0 ref $_[0] eq 'HASH' ? :
2465 0 0 ref $_[0] ? :
1 0 ref $_[0] eq 'HASH' ? :
2502 1 0 @_ >= 4 ? :
2 1 @_ == 3 ? :
1 3 @_ == 2 ? :
0 4 @_ == 1 ? :
2505 4 0 ref $_[0] eq 'HASH' ? :
2542 0 880 if (@_ == 0)
2543 1 879 if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
2545 1 879 if (@a == 0)
2600 1 13 if @_ == 0
2601 5 8 if @_ > 0 and not ref $_[0]
2603 0 8 if @$ar == 0
2604 2 6 if @$ar == 1
2641 3 3 $n % 2 ? :
2785 1 2 if (ref $_[0] eq 'ARRAY') { }
2 0 elsif (not ref $_[0]) { }
2789 0 3 unless @p
2790 0 3 unless @t
2792 0 3 if @t == 1
2794 0 9 if $_ < 0 or $_ > 100
2796 0 5 $i == int $i ? :
2 5 $i > $#t ? :
2 7 $i < 0 ? :
2802 2 1 @p == 1 ? :
2843 15001 6001 if ($ref eq 'ARRAY') { }
4001 2000 elsif ($ref eq 'HASH') { }
2845 1 15000 @_ > 1 ? :
2851 1 4000 @_ > 1 ? :
2853 1000 1000 if @_ == 1
2854 0 2000 if $from > $to
2962 0 1 unless defined $avg
2963 0 1 unless defined $stddev
2964 0 1 unless defined $num
2965 0 1 if @_ > 3
2978 0 1 if @r > $num
2979 0 1 if @_ < 3
3036 0 1020 if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
3103 1363 722 if /^[a-z].*[a-z\d]$/i and /[a-z]/ and /[A-Z]/ and /\d/
3109 6 54 unless $_[2]
3115 2 12284 if ++$Pwgen_trials >= $Pwgen_max_trials or ($d = time_fp() - $t) > $Pwgen_max_sec * $num and not $d =~ /^\d+$/
3121 6444 734 unless &$r()
7178 11038 if (ref $r eq 'CODE') { }
11038 0 elsif (ref $r eq 'Regexp') { }
3122 5189 5849 unless $pw =~ /$r/
3128 51 7 if $num == 1
3199 89 205 if $_ eq $val
3206 1 4999 if $_ == $val
3260 46 4 if $first{$_}
3282 2 6 if $code{$_} != 3
3413 0 0 unless $c{$a} <=> $c{$b}
3505 0 17 unless my $x = Compress::Zlib::deflateInit(-'Dictionary', $dict || '', -'Level', Compress::Zlib::Z_BEST_COMPRESSION())
3506 0 17 if $status != Compress::Zlib::Z_OK()
3507 0 17 if $status2 != Compress::Zlib::Z_OK()
3546 0 5 unless my $x = Compress::Zlib::inflateInit(-'Dictionary', $dict || '')
3548 0 5 if $status != Compress::Zlib::Z_STREAM_END()
3592 2 6 unless $INC{'Compress/Zlib.pm'}
0 8 if $@
0 8 ref $s ? :
3593 0 3 unless $INC{'Compress/Zlib.pm'}
0 3 if $@
0 3 ref $s ? :
3594 0 0 unless $INC{'Compress/Bzip2.pm'}
0 0 if $@
0 0 ref $s ? :
3595 0 0 unless $INC{'Compress/Bzip2.pm'}
0 0 if $@
0 0 ref $s ? :
3650 0 1 if exists $IPNUM_memo{$ipaddr}
3653 0 1 unless defined $h
3655 1 0 $ipnum =~ /^(\d+\.){3}\d+$/ ? :
3707 0 2 unless defined $query
3708 0 2 if (not defined $query and $ENV{'REQUEST_METHOD'} eq 'POST')
3714 0 7 unless length $_
3716 3 4 exists $R{$nkl} ? :
3816 2 7 if 1 > @_ or @_ > 3
2 5 if @_ == 1
3823 7 13 if /^[\d \.\,]+$/
3887 0 9 if (ref $filename eq 'ARRAY')
3891 0 9 unless open WRITEFILE, '>', $filename and binmode WRITEFILE
3892 9 0 if (not defined $text && ref $text) { }
0 0 elsif (ref $text eq 'SCALAR') { }
0 0 elsif (ref $text eq 'ARRAY') { }
3954 6 6 if (@_ == 1) { }
3955 1 5 if (wantarray) { }
3959 0 6 unless open my $fh, openstr($filename)
3960 5 1 if (ref $ref eq 'SCALAR') { }
1 0 elsif (ref $ref eq 'ARRAY') { }
4067 7 1 unless ref $s
4068 1 1 defined $1 && length $1 ? :
4089 0 2 unless -f $file and -e $file
4091 0 2 unless open my $WIFH, '+<', $file
4101 1 1 unless $keep
4129 1 11 ref $_[0] ? :
4131 12 0 if chmod $mode, $_ and utime $atime, $mtime, $_ and chown $uid, $gid, $_
4164 0 0 unless defined $p
4168 0 0 if $MAKEDIR{$d} or -d $d or mkdir $d, $p or ($dd) = $d =~ m[^(.+)/+([^/]+)$] and makedir($dd, $p) and mkdir $d, $p
4190 1 1 if -d $fn
4191 0 1 unless open my $FH, '<', $fn
4194 0 1 if $@
4254 1 2 ref $fn ? :
4259 12 51 if ($l =~ /^\s*\[\s*(.*?)\s*\]/) { }
33 18 elsif ($l =~ /^\s*([^\:\=]+)[:=]\s*(.*?)\s*$/) { }
4266 29 4 if length $section or $Read_conf_empty_section
4267 6 27 unless length $section
4299 10 12 unless $ext
4300 0 12 unless @Openstrpath
6 6 unless (grep((-x $_), map("$_/$_[0]", @Openstrpath)))[0]
4303 6 6 $fn =~ /^\s*>/ ? :
4454 0 1 if $_tms_inited++
4470 0 0 if @_ == 1 and $_[0] =~ /^(\d{4})(\d\d)(\d\d)$/
4471 0 0 unless $y =~ /^\d\d\d\d$/
4472 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]
4477 0 0 if @_ < 1
4478 0 0 if @_ == 1 and $_[0] =~ /^(\d{4})(\d\d)(\d\d)$/
4481 0 0 if (@_ < 2) { }
0 0 elsif (@_ != 3) { }
4482 0 0 if ($year =~ /^\d{8}$/) { }
0 0 elsif ($year > 99999999) { }
4487 0 0 unless date_ok(sprintf('%04d%02d%02d', $year, $month, $day))
4489 0 0 if $@
4500 0 42 if @_ > 1 and not defined $_[1]
4501 2 40 if (@_ == 1)
4503 0 2 if $_[0] eq 'YYYY'
4504 0 2 if $_[0] eq 'YYYYMMDD'
4505 1 1 if $_[0] =~ /$Re_isnum/ and @lt = localtime $_[0]
4508 2 39 unless defined $time
4509 36 5 if @_ >= 2 and $format =~ /^[\d+\:\-\.]+$/
4520 0 41 if ($is_date) { }
4521 0 0 10 + $_[0] > $lt[5] % 100 ? :
4522 0 0 if $time =~ /^(\d\d)(\d\d)(\d\d)$/
4523 0 0 if $time =~ /^((?:18|19|20)\d\d)(\d\d)(\d\d)$/
4526 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
4534 1 40 unless $_tms_inited
4535 1 40 unless $format
4579 0 0 $lt[5] == (localtime)[5] ? :
4588 1 1 $lt[6] ? :
4593 4 4 $lt[2] < 13 ? :
4598 2 2 $lt[2] < 13 ? :
4599 2 2 $lt[2] < 13 ? :
4637 3161 10342 (($L -= $L > 28 || ($L > 27 ? 1 - (21 - $Y % 19) / 11 : 0)) -= ($Y + $Y / 4 + $L + 2 - $C + $C / 4) % 7) < 4 ? :
4665 0 12446 unless eval { do { require Time::HiRes } }
4671 0 0 unless eval { do { require Time::HiRes } }
4705 0 5 unless eval { do { require Time::HiRes } }
4706 0 1 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 } }
4733 1 2011 @_ == 2 ? :
4737 98 1914 if @$a > 40
4738 1 2011 if @$a > 1 and $$a[-2][0] == $$a[-1][0]
4739 11 2001 if @$a < 2
4790 0 0 @_ == 1 ? :
4794 0 0 if $sleep > 0
4804 0 0 if @$thr < $times
4806 0 0 $since < $mintime ? :
4828 0 0 $_[0] % 4 ? :
0 0 $_[0] % 100 ? :
0 0 $_[0] % 400 ? :
4834 0 0 unless $s
4835 0 0 unless $t
4836 0 0 if not $l and 1000 < 0 + %ldist_cache
4840 0 0 substr($s, 0, 1) eq substr($t, 0, 1) ? :
4865 16 22 if defined $_[0] and length $_[0] or @_ == 1
4866 13 9 if @_ == 2
4867 8 1 if @_ > 2
4915 0 4 if @_ < 2
4917 4 0 if (defined $uttrykk) { }
4923 0 1 if @_ < 2
4925 1 0 if (defined $uttrykk) { }
4998 0 0 unless eval { do { require Term::ANSIColor } }
5077 0 0 if (KID_ok($ccn))
5078 0 0 if $ccn =~ /^5[1-5]\d{14}$/
5079 0 0 if $ccn =~ /^4\d{12}(?:\d{3})?$/
5080 0 0 if $ccn =~ /^3[47]\d{13}$/
5081 0 0 if $ccn =~ /^6011\d{12}$/
5082 0 0 if $ccn =~ /^3(?:0[0-5]\d{11}|[68]\d{12})$/
5083 0 0 if $ccn =~ /^(?:3\d{15}|(?:2131|1800)\d{11})$/
5123 0 0 if $_[0] =~ /\D/
5124 0 0 unless my @k = split(//, shift(), 0)
5126 0 0 $s % 10 == 0 ? :
5172 2 6 if @_ > 3
5174 1 5 if @_ == 1
5175 1 4 if @_ == 2
5176 0 4 if @_ != 3 or $jump == 0
5178 2 2 if ($jump > 0) { }
5187 2 0 $jump[0] >= 0 ? :
5216 120 13 $4 ? :
5323 0 2 ref $_[0] eq 'CODE' ? :
5324 0 2 if $code and @_ < 6
5326 0 2 if @_ < 2
5328 1 1 if @_ == 2
5330 1 0 if @_ == 3
5333 0 0 if @_ == 4
5340 0 0 if @_ == 5
5368 0 0 if (defined wantarray) { }
0 0 if ($code) { }
5369 0 0 if --$c[$i]
5473 1 4 unless (ref $_[0])
5479 1 8 if ref $ar eq 'CODE'
5487 0 0 @_ ? :
5514 0 0 if @rest == 0
5669 0 4 ref $vertikalefelt[-1] eq 'HASH' ? :
5670 0 4 if $opt{'sum'}
5671 0 4 exists $opt{'prosent'} ? :
5685 0 112 unless length $rad
5686 0 112 unless length $felt
5689 0 112 if ($opt_sum or defined $opt_pro)
5695 0 112 if $opt_pro
5698 0 4 if $opt_sum
5706 0 120 if (/^\%/ and defined $opt_pro) { }
5709 0 0 if ($sum != 0) { }
5710 0 0 defined $verdi ? :
5715 0 0 $verdi != 0 ? :
5725 0 4 if $opt_sum
5740 18 99 if $c and not "$a[$_]$b[$_]" =~ /[iI][nN][fF]|\376/i
5742 60 39 if $c
5796 0 5 $_[0] ? :
5801 0 5 exists $o{'pagesize'} ? :
5811 33 0 if (ref $_ eq 'ARRAY') { }
5815 0 210 if ($nodup_rad and $i > 0 and $$tab[$i][$j] eq $$tab[$i - 1][$j] || ($nodup_rad = 0)) { }
5816 0 0 $nodup == 1 ? :
5823 169 41 if not $hode and length $celle > 0
5825 0 236 /
5830 42 194 if length($_) + 1 + $bredere > $bredde[$j]
5831 37 198 if $_ and not /^\s*[\-\+]?(\d+|\d*\.\d+)\s*\%?$/ and not $hode
5833 25 185 if ($hoeyde > 1 and not $ikke_space)
5834 2 23 unless $hode
5835 1 24 if $i > 1 and $hoeyde[$i - 1] == 1
5837 38 172 if $hoeyde > $hoeyde[$i]
5851 0 5 if ($i == 0 or $venstretvang) { }
5852 0 33 unless $ikketom[$_]
5858 0 33 if ($$tab[$x] eq '-') { }
5859 0 0 $$tab[$x - 1][$_] =~ /\S/ ? :
5864 0 210 if $fjern_tom and not $ikketom[$y]
5867 0 0 $nodup > 0 ? :
0 210 !$overskrift_forrige && $nodup && $nodup[$x][$y] ? :
5874 129 57 if length $txt > 0 and not $venstre[$y] and $x > 0 || $ikke_hodestrek
5876 42 219 if ($y == $j) { }
5881 0 219 $txt =~ /
5893 33 0 unless ($ikke_hodestrek)
5894 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) { }
5896 0 33 if $fjern_tom and not $ikketom[$y]
6010 0 1421 if ($filename)
6011 0 0 unless open my $fh, '>', $filename
6017 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') { }
6018 0 1151 if $name
6019 8 1143 unless defined $$r
6026 2 74 if $name
6030 364 28 if $level >= 0
6034 0 74 if $name
6038 10 21 if $name
6042 73 0 if $level >= 0
6046 0 21 if $name
6050 0 70 if $name
6054 0 188 if not defined $level or $level >= 0
6058 0 70 if $name
6062 0 93 if $name
6066 0 294 if $level >= 0
6070 0 93 if $name
6165 1 5 ref((values %$hr)[0]) ? :
6168 0 15 unless $hr->{$a} <=> $hr->{$b}
6193 0 11 unless $r == 0
6208 0 0 (caller 1)[3] eq (caller 2)[3] ? :
6239 1 17 if ref $s
6243 121 0 $cs =~ s/^(M\d+|M.|""|".+?"|S.+?R|\\.|.)//s ? :
6245 1 120 if (defined $t)
6247 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 '""') { }
6250 2 0 if $i >= 0
6255 8 0 if substr($s, $p) =~ /(.*)/
6257 3 0 if substr($s, $p) =~ s/^(\W*\w+)//
6258 3 0 if substr($s, $p) =~ /(\W*\w+)/
6259 3 0 if substr($s, 0, $p) =~ /(\w+\W*)$/
6260 0 0 if $p
6261 5 0 if substr($s, 0, $p) =~ s/(\w+\W*)$//
6262 3 0 if substr($s, $p) =~ s/(\S.+|\s*?\n)//
6273 0 2 if $m or not @m
6276 3 116 if $m and $c ne '{'
6350 4 2 if $inp and $bf =~ /,/
6351 3 12 /\,/ ? :
36 15 /\./ ? :
21 51 /
34 72 />/ ? :
6 106 /\]/ ? :
6 112 /\[/ ? :
53 118 /\-/ ? :
206 171 /\+/ ? :
6360 0 0 $s =~ s/\$c/$o\$c/ ? :
6703 1 23 if @_ == 1
6704 2 0 if @_ == 2 and 0 < $_[0] and $_[0] < 1 and $_[1] > 1
6705 0 0 if @_ == 2 and 0 < $_[1] and $_[1] < 1 and $_[0] > 1
6707 0 21 if @_ % 2
6711 1 20 if @not_ok
6712 0 20 if exists $arg{'keys'} and ref $arg{'keys'} ne 'ARRAY'
6713 0 20 unless in(nvl($arg{'counting_bits'}, 1), 1, 2, 4, 8, 16, 32)
6714 0 20 if $arg{'adaptive'} and $arg{'counting_bits'} > 1
6726 2 18 if $bf->{'error_rate'} <= 0 or $bf->{'error_rate'} >= 1
6727 0 18 if $arg{'hashfuncs'}
6731 1 0 $bf->{'filterlength'} <= 1073741824 ? :
17 1 $bf->{'filterlength'} <= 16384 ? :
6733 8 10 if $arg{'keys'}
6742 0 2 if $differror
6743 0 2 if $bf->{'adaptive'}
6746 0 2 if $count > $bf->{'capacity'}
6748 1 1 if ($bf->{'counting_bits'} == 1) { }
6758 0 4793 if ($sum > 2 ** $cb - 1)
6767 0 4793 if exists $bf2->{'overflow'}{$_}
6774 5 3 if $bf->{'counting_bits'} == 1
6782 0 11 unless @keys
6783 1 10 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6787 15083 0 unless $bf->{'key_count'} >= $n and croak("Exceeded filter capacity $n")
6789 11110 3973 if ($cb == 1 and not $adaptive) { }
3973 0 elsif ($cb > 1) { }
0 0 elsif ($adaptive) { }
6798 26 11893 if ($c == 0)
6801 1 25 if $bf->{'overflow'}{$pos}++ and keys %{$$bf{'overflow'};} > 10
6809 0 0 unless @h
6813 0 0 if $_ >= $k - 1 and $bit == 0
6823 0 5 unless @keys
6824 0 5 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6827 5 0 if (not $adaptive) { }
6832 0 24001 unless $wa
6840 0 0 unless @h
6843 0 0 if $_ > $k - 1 and $bit == 1
6844 0 0 if $_ <= $k - 1 and $bit == 0
6845 0 0 if $bit == 0
6847 0 0 unless $wa
6855 0 8 unless @keys
6856 8 0 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6868 0 1 unless @keys
6869 1 0 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6881 0 3 unless @keys
6882 1 2 @keys == 1 && ref $keys[0] eq 'ARRAY' ? :
6884 0 3 if $cb == 1
6887 501 0 unless $bf->{'key_count'} == 0 and croak('Deleted all and then some')
6894 3 1500 if $c == 0
6896 0 918 if $c == 1 and ++$ones and $bf->{'overflow'}{$pos}
6898 1 500 if ($croak)
6913 0 2 if $bf->{'version'} > $VERSION
6922 0 0 @_ == 2 ? :
0 0 @_ == 1 ? :
6925 0 0 unless 0 < $p and $p < 1
6932 0 0 @_ == 2 ? :
18 0 @_ == 1 ? :
6946 0 0 unless open my $F, '>', $fn
6955 0 0 $$_[2] ? :
0 0 $$_[4] > 0.01 ? :
6962 0 0 if -w "$fn,v"
6967 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' : '')))))))
7086 0 0 if $o{'l'}
7087 0 0 if $o{'h'} + $o{'k'} + $o{'m'} > 1
7088 0 0 if $o{'a'} + $o{'c'} > 1
7089 0 0 if $o{'k'} + $o{'m'} > 1
7090 0 0 unless @q
7092 0 0 $o{'z'} ? :
7094 0 0 exists $o{'e'} ? :
7098 0 0 if (-p STDIN) { }
7101 0 0 -f $_ ? :
0 0 /$qrstdin/ ? :
7102 0 0 $f =~ /$r/ ? :
7103 0 0 if $o{'i'}
7107 0 0 if $o{'M'} or $o{'P'}
7113 0 0 unless -f $_
7114 0 0 if $qrexcl and defined $File::Find::name and $File::Find::name =~ /$qrexcl/
7116 0 0 /$r/ ? :
7117 0 0 if $o{'i'}
7120 0 0 if $o{'M'} or $o{'P'}
7128 0 0 $o{'h'} ? :
0 0 $o{'m'} ? :
0 0 $o{'K'} ? :
0 0 $o{'k'} ? :
7130 0 0 unless $c{$a} <=> $c{$b}
7131 0 0 unless $b{$a} <=> $b{$b}
0 0 $o{'c'} ? :
0 0 $o{'a'} ? :
7134 0 0 $o{'P'} ? :
7136 0 0 @_ > 0 ? :
7138 0 0 if $o{'M'}
7140 0 0 $o{'t'} ? :
7143 0 0 !($o{'M'} || $o{'P'}) ? :
7150 0 0 unless open my $FH, $os
7161 0 0 ++$i % 3 ? :
7184 0 0 if not -e $fno or &$too_old($fno)
7206 0 8 unless $t =~ /^(gz|bz2|xz)$/
7208 1 7 if $o{'v'} and @ARGV > 1
7210 0 0 if (`which pv`) { }
0 8 if ($o{'p'})
7218 0 11 unless $new =~ s/(\.(gz|bz2|xz))?$/.$t/i
7219 6 5 defined $2 ? :
7220 0 11 if $same
0 11 if $o{'k'} and $same
7221 0 11 if not -e $_ and warn "$_ do not exists\n"
7222 0 11 if not -r $_ and warn "$_ is not readable\n"
7223 0 0 if -e $new and not $o{'o'} and warn "$new already exists, skipping (use -o to overwrite)\n"
7234 11 0 unless $o{'n'}
7237 11 0 unless $o{'k'}
7238 0 11 if $same
7239 11 0 if ($o{'v'})
7246 7 4 $o{'h'} ? :
7248 4 7 if (@ARGV > 1)
7250 0 0 $i < @ARGV ? :
0 4 if $sum > 1000000
7259 1 7 if ($o{'v'} and @ARGV > 1)
7260 1 0 $o{'h'} ? :
7265 3 0 $o{'h'} ? :
7306 0 0 if $connstr =~ /(\.sqlite|sqlite:.*\.db)$/i
7307 0 0 if $connstr =~ /\@/
7319 0 0 if ($type eq 'SQLite') { }
0 0 elsif ($type eq 'Oracle') { }
0 0 elsif ($type eq 'Pg') { }
7332 0 0 if $Dbh
7338 0 0 if @Dbh
7346 0 0 if $Acme::Tools::Dbh->{'Driver'}{'Name'} eq 'SQLite'
7348 0 0 @r == 1 ? :
7378 0 0 ref $arg[-1] eq 'HASH' ? :
7403 0 0 unless -x $Wget