Branch Coverage

blib/lib/Data/Table/Text.pm
Criterion Covered Total %
branch 793 1646 48.1


line true false branch
75 0 0 unless (&onAws)
78 0 0 if ($m =~ /\A(.*?)\n(.*\Z)/su) { }
94 0 0 unless $m =~ /\S/su
104 0 0 defined $_ ? :
105 0 0 unless join('', @m) =~ /\S/su
107 0 0 /\s\Z/u ? :
110 0 0 unless (&onAws)
113 0 0 if ($m =~ /\A(.*?)\n(.*\Z)/su) { }
127 0 0 defined $_ ? :
129 0 0 $mmm ? :
132 0 0 /\s\Z/u ? :
134 0 0 unless (&onAws)
137 0 0 if ($m =~ /\A(.*?)\n(.*\Z)/su) { }
151 0 675 unless @cmd
155 675 0 if $check
157 0 675 unless $check
160 0 675 if $response and not $check
161 0 0 if $response and $check and not $response =~ /$success/u
162 0 675 if $response and $response =~ /Syntax error:.*unexpected/u
169 0 0 unless &confirmHasCommandLineCommand('ssh')
173 0 0 if $r
181 0 0 if not $_ or /\A\s*\Z/u
190 0 656 unless $cmd
194 0 1312 unless /\S/u
202 0 328 $message ? :
328 328 if $R and not $returnCode && $R =~ /$returnCode/u or $success and not $r =~ /$success/su
223 328 656 unless $valid
224 656 0 if ref($valid) =~ /array/isu
231 3280 1640 if ($arg =~ /\A-+(\S+?)\s*(=\s*(.+)\s*)?\Z/u) { }
232 328 2952 if ($valid and not defined $valid{lc $1})
235 0 984 if (my $v = $valid{$k}) { }
242 328 0 if (@s) { }
264 0 981 if (not defined $pid) { }
3 978 elsif ($pid == 0) { }
281 0 3 if $@
302 0 978 if $r
311 77859 0 if -e $file
324 0 0 unless -d $folder
325 0 0 unless &confirmHasCommandLineCommand('du')
332 450 0 if (not $file =~ m[\0|\n|\A\.|\A\/\Z]su and -e $file) { }
344 0 450 unless length $m == 32
351 0 225 unless length $G >= 41
353 225 0 if $g =~ /\AGUID-[0-9a-f]{8}(-[0-9a-f]{4}){3}-[0-9a-f]{12}\Z/isu
371 0 0 unless $exists and not @missing
372 0 0 unless (@missing)
374 0 0 if -e $_->[0] and $_->[0] ne $target
0 0 if (grep {$_->[1] > $t if -e $_->[0] and $_->[0] ne $target;} map({[$_, &fileModTime($_)];} @source))
383 0 0 unless $remade{$_}++
391 328 328 if -e $_
414 0 32157 onWindows() ? :
429 0 93721 onWindows() ? :
437 328 77381 unless @components
444 328 11056 unless $file
450 201765 0 if defined $_
451 0 65873 unless @file > 1
455 1537 64336 unless @file
467 0 2215 unless $file
468 0 2215 if (onWindows()) { }
469 0 0 unless $file =~ /\\/u
473 0 2215 unless $file =~ m[/]u
480 0 656 unless $file
481 0 656 if (onWindows()) { }
482 0 0 unless $file =~ /\\/u
485 0 656 unless $file =~ m[/]u
492 0 2296 unless $file
493 0 2296 if (onWindows()) { }
503 0 3615 unless $file
504 0 3615 if (onWindows()) { }
514 0 2506 unless $file
515 0 2506 unless $file =~ /\./su
522 653 656 unless (-e $file)
531 0 325 unless $file
540 0 656 if @f == 1 and not wantarray
548 455 0 if ($L >= $l)
549 455 0 if (substr($file, 0, $l) eq $known)
559 0 1009 unless defined $extension
561 0 1009 unless $ext
572 450 450 unless $prefix
578 0 0 if &fullyQualifiedFile($file)
584 328 656 unless $file =~ m[/]su
585 0 656 if $file =~ m[\A[/.]]u
594 35 0 if @p > 1
606 0 0 if @path and $path[0] =~ /\A\s*\Z/u
607 0 0 unless @path
615 0 4161 unless defined $file
616 984 3177 if $file =~ m[\/\Z]su or $file =~ /\.\.\Z/su
617 2193 984 if ($file =~ m[\.[^/]+?\Z]su) { }
618 1865 328 if ($file =~ m[\A.+[/]]su) { }
628 656 328 if ($file =~ m[\A.+[/]]su) { }
328 0 elsif ($file =~ m[\A[/].]su) { }
0 0 elsif ($file =~ m[\A[/]\Z]su) { }
646 0 0 if &fullyQualifiedFile($file)
653 4920 9737 length $a < length $b ? :
655 0 14657 unless $a =~ m[\A/]u
656 0 14657 unless $b =~ m[\A/]u
662 11705 109029 if (substr($a, $i, 1) ne substr($b, $i, 1)) { }
24085 84944 elsif (substr($a, $i, 1) eq '/') { }
681 0 15416 if $r =~ m[\A/]u
682 0 15416 unless $a =~ m[\A/]u
695 656 656 if $file =~ m[\A/]u
705 328 656 &absFile($b) ? :
731 0 8753 if (onWindows())
732 0 0 $dirs ? :
737 0 0 if $dirs
742 0 8753 unless &confirmHasCommandLineCommand('find')
743 3326 5427 $dirs ? :
745 0 8753 unless defined $res
754 7915 52893 if -d $_
755 0 975 if $filter and $filter and not /$filter/su
763 0 3326 if onWindows()
767 49941 4960 unless -d $_
768 0 0 if $filter and $filter and not /$filter/su
781 0 809 ref $_ ? :
783 17 792 if $_ and not -d $_
785 0 17 unless /\A\./su
788 17 775 @extensions ? :
792 17 792 unless $dir and -d $dir
795 792 1977 if -d $d
796 1909 68 if not $ext or $d =~ /($ext)\Z/isu
806 650 975 if -d $d
819 0 68 if $@
828 0 0 unless -d $dir
830 0 0 if -d $file
840 0 0 unless &confirmHasCommandLineCommand('file')
869 328 653 if -e $file
874 653 325 if -d $path
883 328 656 if -e $f
890 675 3329 unless -d $folder
892 328 3001 if (@files > $limitCount)
899 3001 0 unless ($noMsg or onWindows())
900 0 3001 if -e $folder
908 0 8193 unless defined $file
910 0 8193 if $file =~ /\n|\r/u
912 0 8193 unless -e $file
914 0 8193 unless open my $F, '<:encoding(UTF-8)', $file
916 979 7214 if (wantarray) { }
918 0 979 if $@
924 0 7214 if $@
930 0 1 if (wantarray) { }
932 0 0 if $@
938 0 1 if $@
946 0 0 if (wantarray) { }
960 0 1625 if $@
975 0 325 if $@
981 0 327 unless -e $file
989 0 0 unless defined $file
991 0 0 if $file =~ /\n|\r/u
993 0 0 unless -e $file
995 0 0 unless open my $F, '<:encoding(UTF-16)', $file
999 0 0 if $@
1005 0 2678 unless -e $file
1007 0 2678 unless open my $F, "<$file"
1016 0 650 unless defined $file
1018 0 650 if $file =~ /\n|\r/u
1020 0 650 unless -e $file
1022 0 650 unless &confirmHasCommandLineCommand('gunzip')
1023 0 650 unless open my $F, "gunzip < $file|"
1034 2403 14479 unless @path > 1
1035 13804 675 unless $file =~ m[[\\/]\Z]u
1037 11417 3062 if -d $path
1039 3062 0 if -d $path
1046 0 0 unless @path > 1
1047 0 0 unless $file =~ m[[\\/]\Z]u
1053 0 0 if $r =~ /\Ad/u
1060 0 11304 if $file =~ /\n|\r/su
1061 0 11304 unless defined $string
1063 0 11304 unless open my $F, ">$file"
1067 0 11304 unless close $F
1068 0 11304 unless -e $file
1076 1343 3306 if (defined $file)
1077 325 1018 if -e $file
1097 0 1103 if $file =~ /\n|\r/su
1098 0 1103 unless $string
1100 0 1103 unless open my $F, ">$file"
1105 0 1103 unless -e $file
1111 553 325 if (defined $file)
1112 225 328 if -e $file
1139 325 1 if (not $file) { }
1145 0 326 unless ref $structure
1153 0 650 unless open my $F, "| gzip>$file"
1158 0 650 unless -e $file
1164 0 325 unless ref $structure
1171 0 900 $old && $new ? :
1187 0 325 unless $file
1188 0 325 unless $string
1190 0 325 unless open my $F, ">>$file"
1196 0 325 unless -e $file
1203 0 1856 if -e $file
1205 0 1856 unless open my $F, ">$file"
1209 0 1856 unless -e $file
1219 0 450 unless &confirmHasCommandLineCommand('chmod')
1240 0 0 if ($r =~ /syntax OK/isu) { }
1259 0 225 unless $s eq $t
1270 225 225 if (-e $source and not -e $target)
1279 225 0 if (-e $source)
1298 450 450 if ($string =~ /<(bookmap)/su) { }
0 450 elsif ($string =~ /<(bookmap|concept|glossentry|html|map|reference|task)/su) { }
1319 225 0 if ($string =~ /<(bookmap)/su) { }
0 0 elsif ($string =~ /<(bookmap|concept|glossentry|html|map|reference|task)/su) { }
1327 225 450 if ($string =~ m[<${t}[^>]*>([^<]*)]isu)
1344 0 225 if $sourceFile =~ /[0-9a-z]{32}\Z/isu
1353 0 225 onWindows() ? :
1354 225 0 if @p
1361 0 0 unless -e $source and not -d $source
1366 0 0 if ($sourceFile =~ /[0-9a-z]{32}\Z/isu)
1367 0 0 if (@_ == 2)
1372 0 0 unless (-e $od)
1373 0 0 if (-e $id) { }
1389 0 0 unless (-e $out)
1391 0 0 if (-e $id) { }
0 0 elsif (not -e $od) { }
1404 0 0 unless defined $content
1406 0 0 unless defined $extension and $extension =~ /\A\S{2,}\Z/su
1409 0 0 if $options{'titleOnly'}
1419 0 0 if $options{'titleOnly'}
1432 0 0 -e $source && -e $id ? :
1459 0 0 unless -e $source
1461 0 0 if &fn($source) =~ /[0-9a-z]{32}\Z/isu and @_ == 1
1469 0 0 unless (-e $out)
1471 0 0 if (-e $id) { }
0 0 elsif (not -e $od) { }
1490 0 0 unless -e $out
1491 0 0 unless -e $od
1499 0 0 -e $source && -e $id ? :
1505 0 0 unless -f $file
1506 0 0 unless -f $f
1528 0 450 unless -d $source
1539 0 225 unless -d $source
1551 0 0 unless -d $Source
1552 0 0 unless -d $source
1580 0 42 if $@
1599 0 0 unless -e $image
1601 0 0 unless &confirmHasCommandLineCommand('identify')
1603 0 0 if ($s =~ /Geometry: (\d+)x(\d+)/su) { }
1616 0 0 unless -e $source
1620 0 0 if ($Tiles)
1630 0 0 if $w % $size
1631 0 0 if $h % $size
1649 0 0 if $w % $size
1650 0 0 if $h % $size
1656 0 0 unless rename $s, $t
1657 0 0 unless -e $t
1667 0 0 unless &confirmHasCommandLineCommand('convert')
1671 0 0 if ($r =~ /\AVersion: ImageMagick ((\d|\.)+)/u) { }
1673 0 0 if $version >= 600090000
1678 0 0 unless -e $source
1683 0 0 if ($Tiles)
1710 0 0 if $w % $size
1711 0 0 if $h % $size
1717 0 0 unless rename $s, $t
1718 0 0 unless -e $t
1727 0 0 unless &confirmHasCommandLineCommand('unoconv')
1729 0 0 unless not $r
1742 0 0 if $q < 0
1743 0 0 if $Q < 0
1757 0 0 $i =~ /\AR0lGODlh/u ? :
0 0 $i =~ m[\A/9j]u ? :
0 0 $i =~ /\A183G/u ? :
0 0 $i =~ /\AVkNMT/u ? :
0 0 $i =~ /\AAQAAAG/u ? :
0 0 $i =~ /\AiVBOR/u ? :
1772 0 0 unless ($type)
1787 4562 2607 unless ref $d
1789 1628 979 if $r eq 'ARRAY'
1790 979 0 if $r eq 'HASH'
1807 0 328 if $@
1814 0 328 if $@
1823 328 4264 $n > 127 ? :
1843 2700 2700 if ($i % 2 == 1)
1883 5850 1950 if ($c eq '%' and @s >= 2) { }
1901 984 1968 if 1 << $_ == $n
1902 328 1640 if 1 << $_ > $n
1910 1968 3608 if $n <= 1 << $_
1924 1640 0 if defined $_
1925 0 656 unless @_ == @n
1926 0 656 unless @n
1929 656 984 if $_ < $M
1936 900 0 if defined $_
1937 0 225 unless @_ == @n
1938 0 225 unless @n
1942 225 675 if $n < $n[$M]
1949 32519 0 if defined $_
1950 0 19835 unless @_ == @n
1951 4878 14957 unless @n
1954 8129 24390 if $_ > $M
1961 900 0 if defined $_
1962 0 225 unless @_ == @n
1963 0 225 unless @n
1967 225 675 if $n > $n[$M]
1974 2250 0 if defined $_
1975 0 225 unless @_ == @n
1982 1125 0 if defined $_
1983 0 225 unless @_ == @n
2018 0 42 unless @h
2019 0 42 if @h == 1
2032 0 21 unless @h
2033 0 21 if @h == 1
2039 21 42 if ($u->{$k} == $N)
2053 105 0 if (defined(my $v = $h->{$k}))
2066 126 0 defined $h->{$_} ? :
2071 21 42 if ($n{$k} == $N)
2084 4058 28806 if (not defined $t) { }
27822 984 elsif ($t =~ /array/isu) { }
984 0 elsif ($t =~ /hash/isu) { }
2121 0 9495 if $u == 0
2134 1312 3104 unless defined $base
2138 328 9167 unless defined $s
2139 0 9167 if scalar @$s < scalar(@$base) * $confidence
2141 1312 7855 if ($o > $confidence)
2199 0 345 unless &reftype($hashSet) =~ /hash/isu
2214 4520 0 if (my $u = $u{$set})
2216 4520 24752 unless $p{$U}++
2228 0 17 unless &reftype($hashSet) =~ /hash/isu
2255 624 0 if (my $u = $u{$set})
2257 912 4080 unless $p{$U}++
2270 328 984 if (ref($item) =~ /Regexp/u) { }
656 328 elsif (&looks_like_number($item)) { }
2272 984 2296 if $array[$_] =~ /$item/su
2277 984 1640 if $array[$_] + 0 == $item
2282 656 2624 if $array[$_] eq $item
2291 0 225 unless length $inString >= length $searchFor
2316 0 2079 if $@
2327 903 525 if ($s <= $maxSize or not keys %$paths) { }
2337 315 21 if keys %paths
2348 3 0 if (&reftype($value) =~ /hash/iu)
2356 3 1 if ($i and &reftype($i) =~ /hash/iu)
2358 4 8 if $i->{$b}
2367 10 22 if ($t{$a}{$b})
2372 1 1 unless $changes
2376 1 3 unless keys %{$t{$s}}
2383 1 2 if (defined(my $i = $s{$k})) { }
2406 0 1625 unless ref($data) =~ /array/iu
2411 0 4550 unless ref($row) =~ /array/iu
2416 2275 11700 $a > $b ? :
2426 12675 5200 if (not $i =~ /\A\s*[-+]?\s*(\d|[,])+(\.\d+)?([Ee]\s*[-+]?\s*\d+)?\s*\Z/u) { }
2453 0 13112 unless ref($data) =~ /array/iu
2460 1625 186103 if $text =~ /\n/u
2463 60201 125902 $a > $b ? :
2473 99286 77392 if (not $i =~ /\A\s*[-+]?\s*(\d|[,])+(\.\d+)?([Ee]\s*[-+]?\s*\d+)?\s*\Z/u) { }
2492 115 345 if $row == @$data
2496 345 920 unless my $dc = $$d[-$c]
2497 0 920 unless my $pc = $$data[-$p][-$c]
2498 575 345 if ($dc eq $pc) { }
2510 0 7637 unless ref($data) =~ /array/iu and @$data
2514 0 29585 unless ref($row) =~ /array/iu
2519 0 7637 if (my $w = $options{'maximumColumnWidth'})
2522 0 0 if length $_ > $w
2527 115 7522 if $options{'clearUpLeft'}
2529 6981 656 if $title
2535 0 981 unless ref($data) =~ /hash/iu and keys %$data
2537 325 656 if $title
2544 0 981 unless ref($data) =~ /array/iu and @$data
2561 0 981 unless ref($data) =~ /hash/iu and keys %$data
2578 0 653 unless ref($data) =~ /array/iu and @$data
2581 325 328 if $title
2583 1956 0 @$data > 1 ? :
2591 0 981 unless ref($data) =~ /hash/iu and keys %$data
2594 653 328 if $title
2658 2 225 if ($columnTitles and not ref $columnTitles and $columnTitles eq 'columns' and scalar(@options) % 2 == 1)
2664 0 12212 if scalar(@options) % 2
2671 3930 8284 unless defined $columnTitles
2672 8057 227 if (my $r = &reftype($columnTitles))
2673 8057 0 if $r =~ /\Aarray\Z/isu
2675 0 227 unless $columnTitles
2685 40042 4571 if ($r) { }
2686 33506 6536 if ($r =~ /array/iu) { }
6536 0 elsif ($r =~ /hash/iu) { }
2695 9271 2943 if (&reftype($data) =~ /array/iu) { }
2943 0 elsif (&reftype($data) =~ /hash/iu) { }
2697 7637 0 if $a and not $h and not $o
2698 981 653 if not $a and $h and not $o
2703 981 0 if $a and not $h and not $o
2704 981 981 if not $a and $h and not $o
2709 9419 2795 unless keys %options
2718 1577 1218 if $Title
2719 1577 1218 if $Title
2720 652 2143 if $head
2721 330 2465 if $file
2722 2 2793 if $titleString
2723 0 2795 if $wide
2727 450 2345 if $summarize
2733 2 2793 if $foot
2737 0 0 if ($msg and $file and $head)
2742 450 2345 if ($summarize)
2744 450 0 if (&reftype($data) =~ /array/iu)
2745 450 0 if ($a and not $h and not $o)
2762 330 2465 if ($file)
2763 330 0 if (&reftype($data) =~ /array/iu)
2764 330 0 if ($a and not $h and not $o or $zero)
2767 330 0 if ($title)
2768 338 325 defined $_ ? :
2784 330 0 if $file and $a + $h + $o || $zero
2786 0 2795 if $indent
2807 12150 0 if defined $d
2809 2475 2700 if $Data::Table::Text::b->[0] == $Data::Table::Text::a->[0]
2819 3779 2952 if (ref($ref) =~ /array/iu) { }
984 1968 elsif (ref($ref) =~ /hash/iu) { }
2820 3123 656 if ($maxDepth == $currentDepth) { }
2824 328 656 if ($maxDepth == $currentDepth) { }
2835 23 0 $data ? :
2839 0 23 if (not $options{'zero'} and $data and ref($data) =~ /array/iu and not @$data)
2847 23 0 if (my $columns = $options{'columns'})
2848 0 23 if ref $columns
2858 23 0 if (my $title = $options{'title'})
2874 23 0 if (my $head = $options{'head'})
2882 23 0 if $cl
2884 23 0 if ($data)
2894 23 0 if $ct
2896 23 0 if (my $foot = $options{'foot'})
2906 2 21 if (my $file = $options{'file'})
2923 34 0 if ($t =~ m[]su)
2925 0 34 if $@
2926 34 0 if (my $t = $d->{'title'}) { }
2941 0 34 unless my $file = $options->{'file'}
2946 34 0 unless $file =~ m[/bad/]u and $rows
2961 17 0 $title ? :
3027 17 0 if (my $out = &fpe($reports, ('index_of_reports', 'html')))
3043 0 40 ref $filePrefix ? :
3047 40 0 if ($reports)
3049 2 38 unless ($pid)
3056 38 0 if ($html)
3058 2 36 unless ($pid)
3068 5 5 if ($col and $col =~ /\A$filePrefix/su)
3122 0 12237 unless ref($hash) =~ /hash/gisu
3124 0 12237 unless ref($permitted) =~ /hash/gisu
3129 12237 0 unless keys %parms
3147 984 984 if ($m =~ /::/su) { }
3162 0 1968 if $@
3170 1312 0 $m =~ /::/su ? :
3171 1312 0 if defined &$M
3182 0 984 if $@
3192 0 984 if $@
3202 0 984 if $@
3213 0 434562 unless ($m =~ /\A[a-z_](\w|:)*\Z/isu)
3219 316967 117595 if ($h->can($m))
3220 0 316967 unless $genHash{$M}
3223 0 316967 unless $genHash{$M}
3228 0 117595 if ($h->can($m . 'X'))
3234 107801 1201 $R =~ /array/iu ? :
8593 109002 !defined($R) ? :
3238 117595 0 if ($s)
3240 0 117595 if $@
3251 325 650 unless $hash->can($m)
3261 10500 5600 unless my $r = &reftype($d)
3262 0 5600 if $progress->{$d}
3263 2300 3300 if ($d =~ /array/isu) { }
3300 0 elsif ($d =~ /hash/isu) { }
3270 2325 975 if (my $b = &blessed($d)) { }
3289 2250 1125 unless my $r = &reftype($d)
3290 0 1125 if $progress->{$d}
3291 225 900 if ($d =~ /array/isu) { }
900 0 elsif ($d =~ /hash/isu) { }
3298 900 0 if (my $b = &blessed($d))
3346 0 450 if $@
3352 0 6175 if $@
3373 2250 1575 if $@
3378 1350 2250 unless @packages
3382 0 0 if $@
3387 0 0 if $i == $#packages
3401 0 0 unless $i
3416 0 0 if $@
3423 328 0 unless $r and $r eq $package
3433 328 0 unless $r and $r eq $package
3447 105 126 if (ref($a) =~ /\Aarray\Z/iu) { }
21 105 elsif (ref($a) =~ /\Ahash\Z/iu) { }
3462 3 0 if (my $b = B::svref_2object($sub))
3464 3 0 if ($r =~ /B::CV/iu)
3465 3 0 if (my $g = $b->GV)
3486 0 978 ref $string ? :
3493 84 21 if ($i >= 0)
3508 21 168 if ($string =~ /(B<([^>]*)>)/su)
3510 0 21 if $s eq $string
3517 21 336 if (not $f[-1]) { }
3520 84 252 if (length $l > $width) { }
3548 0 1640 unless defined $string
3552 328 1312 if $l % $length == 0
3559 0 1640 unless defined $string
3563 328 1312 if $l % $length == 0
3570 0 1640 unless defined $string
3574 328 1312 if $l % $length == 0
3581 13451 325 if not $length or length $string < $length
3607 0 17 unless $string
3618 340 680 if $s == 0 and $c =~ /\s/u
3620 170 510 if ($s == 0) { }
153 357 elsif ($s == 1) { }
102 255 elsif ($s == 2) { }
255 0 elsif ($s == 3) { }
3621 51 119 if ($c =~ /'/u) { }
51 68 elsif ($c =~ /"/u) { }
3632 51 102 if ($c =~ /\s/u) { }
3640 51 51 if ($c =~ /'/u) { }
3648 51 204 if ($c =~ /"/u) { }
3674 325 0 if ($g ne $e)
3676 325 0 if (length $s)
3705 984 325 if not $java =~ /\n/su and -e $java
3716 328 0 if (my $package = &javaPackage($java))
3725 0 653 unless defined $p
3731 225 0 $fileOrString =~ /\n/u ? :
3735 1125 900 if ($state == 0) { }
900 0 elsif ($state == 1) { }
3736 450 675 if ($line =~ m[\Afunction.*\/\/E]u)
3742 450 450 if $line =~ /\A \}/u
3781 2 3 if @a and @b
3782 1 2 if @b
3783 1 1 if @a
3967 0 0 unless &confirmHasCommandLineCommand('isutf8')
3970 0 0 unless $?
4010 1 5 if $c <= 128
4012 1 4 if ($c <= 2048)
4018 3 1 if ($c <= 65536)
4026 1 0 if ($c <= 2097152)
4040 1 5 if $c <= 128
4042 1 4 if ($c <= 2048)
4048 3 1 if ($c <= 65536)
4056 1 0 if ($c <= 2097152)
4094 0 0 if (my $pid = fork) { }
4113 0 0 unless $s
4123 0 0 unless $con
4139 0 0 if $p
4151 0 0 defined $v ? :
4160 0 0 if ($code =~ /\A#!.*?perl\s*(.*?)\n/isu)
4318 0 0 if (not $code) { }
4337 0 0 if (my $r = `$s`)
4338 0 0 if ($r =~ /\Aaccess_token=(.*?)&scope=(.*?)&token_type=(.*?)\Z/u)
4362 0 0 unless $i
4371 0 0 if (-e awsIpFile())
4372 0 0 if (my $d = eval { do { &retrieveFile(scalar awsIpFile()) } })
4373 0 0 if ($d->{'time'} + 180 > &Data::Table::Text::time())
4396 0 0 unless &onAws
4397 0 0 unless &confirmHasCommandLineCommand('curl')
4404 0 0 if defined $awsCurrentIp
4410 0 0 if defined $awsCurrentInstanceId
4416 0 0 if defined $awsCurrentAvailabilityZone
4422 0 0 if (my $a = awsCurrentAvailabilityZone())
4430 0 0 if defined $awsCurrentInstanceType
4436 0 0 unless my $i = $options{'instanceId'} // awsCurrentInstanceId()
4442 0 0 unless my $p = $options{'profile'}
4448 0 0 unless my $r = $options{'region'} // awsCurrentRegion()
4477 0 0 if (-e awsEc2DescribeInstancesCache())
4478 0 0 if (my $D = eval { do { &retrieveFile(scalar awsEc2DescribeInstancesCache()) } })
4479 0 0 if (my $d = $D->{$region})
4480 0 0 if $d->{'time'} + 20 > &Data::Table::Text::time()
4485 0 0 unless &confirmHasCommandLineCommand('aws')
4503 0 0 if ($i->{'State'}{'Name'} =~ /running/iu)
4522 0 0 if (my $id = $i->{'InstanceId'})
4523 0 0 if ($id eq $instanceId)
4525 0 0 if (my $ip = $I->{'Association'}{'PublicIp'})
4538 0 0 unless &confirmHasCommandLineCommand('aws')
4551 0 0 if (my $tags = $i->{'Tags'})
4553 0 0 unless $t->{'Value'} =~ /$value/u
4565 0 0 unless &confirmHasCommandLineCommand('aws')
4578 0 0 if $awsCurrentLinuxSpotPrices
4580 0 0 unless &confirmHasCommandLineCommand('aws')
4604 0 0 unless &confirmHasCommandLineCommand('aws')
4609 0 0 if $cached
4666 0 0 unless &confirmHasCommandLineCommand('aws')
4693 0 0 unless &confirmHasCommandLineCommand('aws')
4748 0 0 unless &confirmHasCommandLineCommand('aws')
4759 8975 993 if $confirmHasCommandLineCommand{$cmd}
4762 993 0 if ($c =~ m[/]su)
4771 0 115 unless $^O =~ /linux/iu
4772 115 0 &confirmHasCommandLineCommand('nproc') ? :
4773 0 115 unless $n
4782 223 30 if $scale and $scale == int $scale
4783 30 0 if $scale and $scale != int $scale
4789 0 0 unless &confirmHasCommandLineCommand('arp')
4792 0 0 unless $line
4802 42 42 if ($name =~ m[\A([^/]*)/\Z]su)
4805 21 21 if ($name =~ m[\A(.*?)/(.*)\Z]su)
4813 0 0 unless @_ == 5
4814 0 0 unless &confirmHasCommandLineCommand('zip')
4815 0 0 unless &confirmHasCommandLineCommand('aws')
4818 0 0 -e $saveTimeFile ? :
4819 0 0 if $lastSaveTime and $lastSaveTime->[0] > &Data::Table::Text::time() - $saveCodeEvery
4821 0 0 if fork
4828 0 0 if (my $c = qq[cd $folder; zip -qr $z * -x "*.zip"] . ' -x "*.gz" -x "*/blib/*" -x "*/[._]*"')
4831 0 0 if $r =~ /\S/u
4835 0 0 if (my $c = "aws s3 cp $z s3://$target $s3Parms")
4837 0 0 if $r =~ /\S/u
4850 0 0 unless &confirmHasCommandLineCommand('zip')
4851 0 0 unless &confirmHasCommandLineCommand('aws')
4853 0 0 unless (fork)
4857 0 0 if (my $lastSaveTime = &fileModTime($saveTime))
4858 0 0 if $lastSaveTime > &Data::Table::Text::time() - $saveIntervalInSeconds
4864 0 0 unless &confirmHasCommandLineCommand('zip')
4868 0 0 unless &confirmHasCommandLineCommand('aws')
4880 0 0 unless &confirmHasCommandLineCommand('ssh-add')
4886 0 0 unless &confirmHasCommandLineCommand('hostname')
4893 0 0 if $user and $userid and $user eq $userid
4894 0 0 unless &confirmHasCommandLineCommand('whoami')
4896 0 0 if $user and $user ne $userid
4905 0 0 unless $language =~ /\A(ar|zh|zh\-TW|cs|da|nl|en|fi|fr|de|he|id|it|ja|ko|pl|pt|ru|es|sv|tr)\Z/iu
4935 0 0 if -e $cached
4947 0 0 if (my $J = `$c`)
4949 0 0 if (my $t = $p->{'TranslatedText'})
4961 70 115 if defined $onAws
4962 0 115 -e '/home/ubuntu/' ? :
4966 0 0 unless onAws()
4969 0 0 $I eq $i ? :
4973 0 0 unless onAws()
4976 0 0 $I ne $i ? :
4986 0 0 if (my $s = $i->{'State'}{'Name'})
4987 0 0 if ($s =~ /running/iu)
4990 0 0 if (my $v = $t->{'Value'})
4991 0 0 if ($v =~ /SessionLeader|Primary/iu)
5006 0 0 if (my($id) = @id)
5084 0 0 if (my $instanceIds = &awsEc2DescribeInstancesGetIPAddresses(%options))
5096 0 0 if (my $instanceIds = &awsEc2DescribeInstancesGetIPAddresses(%options))
5098 0 0 if $id eq $s
5111 0 0 if (my $instanceIds = &awsEc2DescribeInstancesGetIPAddresses(%options))
5126 0 33 if $i and $l =~ /\A#!/u
5127 12 21 if $l =~ /\A(#!|use )/u
5129 0 3 if ($0 =~ /\.pm\Z/iu and not $0 =~ /DataTableText/iu)
5150 0 0 if (onAws() and my(@i) = &awsParallelSecondaryIpAddresses(%options)) { }
5206 0 0 if (my $pid = fork) { }
5269 0 0 $p ? :
5275 0 0 $p ? :
5292 0 0 unless keys %files == 1
5295 0 0 unless $d->[3]
5326 0 0 $file =~ /pcd\Z/iu ? :
5348 0 0 if (-f $local)
5371 0 0 unless (-d $source)
5374 0 0 unless &confirmHasCommandLineCommand('zip')
5403 0 0 if $d =~ /ERROR 404: Not Found/su or not -e $z or &fileSize($z) < 100
5414 0 0 if $d =~ /ERROR 404: Not Found/su
5416 0 0 unless -f $t
5433 0 0 if (my $pid = fork) { }
5474 54606 53462 if (my $l = $starter->processingLogFile)
5476 27156 27450 $finish ? :
5482 324 27126 if (not $finish and $started == 1 and $t)
5483 324 0 $N ? :
5489 53316 1290 if ($N and $finished)
5499 54606 0 $N ? :
5500 27156 27450 $finish ? :
0 54606 $N == 0 ? :
5521 0 55155 unless my $F = $starter->processingLogFileHandle
5531 997 55275 if ($started == 0)
5532 325 672 if (my $file = $starter->processingLogFile)
5534 0 325 unless open my $F, ">>$file"
5545 55954 318 if (my $pid = fork) { }
5554 318 0 if (my $t = $starter->transferArea)
5558 0 318 if $@
5570 52114 0 if ($starter->pids->{$p})
5571 52114 0 if (my $t = $starter->transferArea)
5573 52114 0 if (-e $f) { }
5576 0 52114 if $big
5577 52114 0 if (my $d = eval { do { retrieve($f) } }) { }
5578 52114 0 if (ref($d) =~ /array/isu) { }
5579 52114 0 if (@$d == 1) { }
5593 0 52114 if $big
5617 225 454 if (my $l = $starter->processingLogFile)
5624 225 0 if ($t) { }
5638 0 225 if ($started != @r)
5642 0 225 if ($started != $finished)
5645 0 225 if ($started != $N)
5648 225 0 if (my $F = $starter->processingLogFileHandle)
5655 679 0 if ($starter->autoRemoveTransferArea)
5666 4517 1350 unless $n * $n == $N
5672 19571 119190 if $i >= $n
5681 0 24489 unless ref($r) =~ /array/isu
5691 0 3375 unless ref($r) =~ /array/isu
5700 0 675 if $N < 2
5727 2 1 if (my $pid = fork) { }
5731 2 0 if wantarray
5743 1 1 if (my $pid = fork) { }
5746 0 1 if wantarray
5765 118 0 if $results
5786 215 0 if $results
5792 0 218 if $N < 2
5803 35044 111410 if $bucketSizes[$b] < $ms
5816 0 215 if @sizes == 0 and $results
5817 0 215 unless @sizes
5820 0 215 if @sizes <= $N
5849 121 0 if $results
5856 185 0 unless onAws()
5858 0 0 if $i =~ /\Am/iu
5859 0 0 if $i =~ /\Ar/iu
5860 0 0 if $i =~ /\Ax/iu
5882 0 0 $Profile ? :
5889 0 0 unless @files
5897 0 0 unless keys %partition > 1
5921 0 0 $Profile ? :
5926 0 0 unless @files
5936 0 0 unless keys %partition > 1
5964 325 325 -e $file ? :
5976 650 0 if $t->start == $service->start and $t->service eq $service->service and $t->file eq $t->file
5979 0 325 unless $continue
5987 1 0 $in ? :
5990 1 4 if ($lines[$i] =~ /\Asub\s*(\w+)\s*\((.*?)\)(.*)\Z/iu)
5994 1 0 if ($lines[$j] =~ /\A(\s*\{)my\s*\((.*?)\)\s*=\s*\@_/iu)
6004 0 5 if ($lines[$i] =~ /\A(\s*)if\s*\(my\s*\$(\w+)/iu)
6015 0 5 if ($lines[$i] =~ /\A(\s*)if\s*\(defined\s*\$(\w+)\s*\)(.*)\Z/iu)
6022 0 5 if ($lines[$i] =~ /\A(\s*)for\s*my\s*(\w+)(.*)\Z/iu)
6068 0 3 if $comments[$i] =~ m[\A//]u
6069 3 0 if ($comments[$i] =~ m[\A(.*)(//.*)\Z]u)
6071 1 2 if (length $code > 80) { }
2 0 elsif (length $code < 80) { }
6088 1 0 $out ? :
6095 0 2025 unless $ref and $ref =~ /\S/su
6099 0 2025 $File && $file ? :
6101 0 2025 unless ($rest)
6105 675 1350 unless ($rest =~ m[/]su)
6109 450 900 if ($rest =~ m[\A\./]su)
6115 0 900 if $TopicId and $topicId =~ /\A(\s*|\.)\Z/u
6124 34 0 if ($string =~ /
0 0 elsif ($string =~ /
6147 0 0 if ($l =~ /\Asub\s*(\w+)\s*\{.*?#\s+(.*)\Z/u)
6160 0 0 $reportFile ? :
6175 0 0 if ($l =~ /\Asub\s*(\w+)\s*\{.*?#\w*\s+(.*)\Z/u)
6195 0 0 $reportFile ? :
6212 0 0 if ($l =~ /\Asub\s*(\w+).*?#\w*r\w*\s+(.*)\Z/u)
6224 0 0 if ($l =~ /\Asub\s*(\w+).*?#\w*e\w*\s+(.*)\Z/u)
6237 325 975 unless m[\A\s*(.+?)\s*\Z]u
6238 0 975 if $toc{$2}++
6246 650 325 if $level < 2
6665 0 115 if (my(@e) = $string =~ /L\[(\w+)\]/gsu)
6745 1 0 if ($s =~ /$comment-begin\s*\n(.*?)$comment-end/isu)
6795 325 0 $sourceIsString ? :
6797 0 325 if ($source =~ /our\s+\$VERSION\s*=\s*(\S+)\s*;/su)
6799 0 0 if (my $v = eval $V)
6807 0 325 if ($source =~ /\n=head1\s+Name\s+(?:\w|:)+\s+(.+?)\n/su)
6816 0 325 $version ? :
6831 1300 7150 if (my(@tags) = $line =~ /(?:\s#T((?:\w|:)+))/gu)
6840 325 975 if ($line =~ /<<(END|'END'|"END")/u)
6844 325 325 if $nextLine =~ /\AEND/u
6848 325 975 if ($line =~ /\A(\s*)if\s*\x28(\d+)\x29/u)
6854 325 650 if ($N >= $minimumNumberOfLines and $nextLine =~ /\A$S }/u) { }
6862 0 650 unless $N < $M
6865 325 0 if (@testLines > 1)
6866 0 325 if ($testLines[0] =~ /\A\s*if\s*\x{28}\d\x{29}\s*{/iu)
6876 0 4225 if $t =~ /\AupdateDocumentation\Z/su
6887 325 8125 if ($line =~ /\Asub\s+((\w|:)+).*#(\w*)[rR]/u)
6893 325 650 if $nextLine =~ /\A }/u
6895 0 650 unless $N < $M
6908 0 8450 if ($line =~ /genHash\s*\x28\s*(q\x28.+\x29|__PACKAGE__).+?# (.+)\Z/u)
6914 0 0 if ($nextLine =~ /\A\s+(\w+)\s*=>\s*.+?#(\w*)\s+(.*)\Z/u)
6917 0 0 if (my $invalidFlags = $flags =~ s/[I]//grsu)
6921 0 0 if $nextLine =~ /\A\s*\);/u
6922 0 0 unless $N < $M
6931 0 8450 if ($line =~ /\Amy \$documentationSynopsis = <
6934 0 0 if $nextLine =~ /\AEND\Z/u
6946 2275 3575 if ($L->[$i] =~ /\b$m\b/u)
6955 325 8125 if ($line =~ /\ABEGIN\{\*(\w+)=\*(\w+)\}/u)
6959 0 325 if $synonymTarget{$target} and $synonymTarget{$target} ne $source
6965 325 0 unless ($perlModule =~ /\A(Text.pm|Doc.pm)\Z/su)
6967 0 325 if $@
6974 325 8125 if ($line =~ /\A#D(\d)\s+(.*?)\s*(#\s*(.+)\s*)?\Z/u) { }
0 8125 elsif ($line =~ /\A#C(?:ollaborators)?\s+(\S+)\s+(.+?)\s*\Z/u) { }
0 8125 elsif ($line =~ /\A#I(?:nstall(?:ation)?)?\s+(.+)\Z/u) { }
0 8125 elsif ($line =~ /\A#D(off)?/u) { }
0 8125 elsif ($level and $line =~ /\Asub\s*(\w+)\s*{.*}\s*#(\w*)\s+(.*)\Z/u) { }
650 7475 elsif ($level and $line =~ /\Asub\b\s*(.*?)?(\s*:lvalue)?\s*#(\w*)\s+(.+?)\s*\Z/u) { }
0 8125 elsif ($level and $line =~ /\A\s*genLValue(?:\w+?)Methods\s*\x28q(?:w|q)?\x28(\w+)\x29\x29;\s*#\s*(.+?)\s*\Z/u) { }
6977 325 0 if $level
6978 325 0 if $level and $4
7001 0 650 if ($comment =~ /\A(.*)Example:(.+?)\Z/isu)
7006 0 650 unless ($comment =~ /\.\s*\Z/isu)
7025 0 325 if $private and $replace || $Replace
7027 0 325 if $static and $replace || $Replace
7029 0 0 if $exported and $replace || $Replace
7031 0 650 if $exported and $static
7034 0 650 if $methodX
7035 325 325 if $private
7036 0 650 if $replace
7037 325 325 if $Replace
7038 325 325 if $static
7039 0 650 if $isUseful
7040 0 650 if $exported
7041 0 650 if $unitary
7048 0 8450 if $@
7049 4875 3575 unless $v
7053 0 650 if $userFlags
7058 650 0 if ($signature)
7071 0 650 unless @parameters == $signatureLength
7080 0 650 unless $p == $l
7108 0 650 if $methodX
7109 0 650 if $methodX
7110 0 650 if (my $u = $userFlags{$name})
7117 325 325 $private ? :
7123 650 0 if $parmNames and $parmDescriptions and not $parmDescriptions =~ /\A#/u
7128 0 650 if $userFlags{$name}[0]
7130 0 650 if $example
7133 0 650 if $produces
7136 325 325 if (my $examples = $examples{$name})
7137 325 0 if (my(@examples) = @$examples)
7142 0 650 if $replace
7154 325 325 if $Replace
7162 0 650 if $methodX
7166 325 325 if $static
7170 0 650 if $exported
7174 325 325 if (my $s = $synonymTargetSource{$name})
7175 325 0 if (keys %$s)
7182 325 325 $private ? :
7189 0 0 if $description =~ /\A#/u
7197 0 325 if (&isSubInPackage($package, 'processModuleDescription'))
7202 0 0 if $@
7214 0 325 if (keys %genHashs)
7224 0 0 $flags =~ /I/su ? :
7226 0 0 if ($title{$attribute}) { }
7237 0 0 if (@i)
7241 0 0 if (@o)
7247 0 325 if (my(@a) = sort(keys %attributes))
7266 0 325 if (my(@r) = sort(keys %replace))
7289 0 325 if $n
7292 0 325 if (keys %isUseful)
7305 0 0 $s ? :
7314 325 0 if @private
7316 325 0 if (keys %synonymTarget)
7335 650 0 if ($c and $t)
7342 0 325 if (keys %exported)
7387 0 325 if (keys %collaborators)
7402 0 325 if (keys %methodX)
7411 650 0 if (my $doc = $userFlags{$name})
7412 0 650 if $doc->[1]
7434 0 325 if (@synopsis)
7452 0 325 unless ($sourceIsString)
7453 0 0 if (@synopsis)
7459 0 0 if ($source ne $Source)
7476 0 0 if $@
7482 0 0 unless -e $perlModule
20357 0 328 if eval "eof(${p}::DATA)"
20359 0 328 if $@
20361 0 1 if $@