Branch Coverage

blib/lib/Data/Table/Text.pm
Criterion Covered Total %
branch 786 1638 47.9


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 702 unless @cmd
155 702 0 if $check
157 0 702 unless $check
160 0 702 if $response and not $check
161 0 0 if $response and $check and not $response =~ /$success/u
162 0 702 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 674 unless $cmd
194 0 1348 unless /\S/u
202 0 337 $message ? :
337 337 if $R and not $returnCode && $R =~ /$returnCode/u or $success and not $r =~ /$success/su
223 337 674 unless $valid
224 674 0 if ref($valid) =~ /array/isu
231 3370 1685 if ($arg =~ /\A-+(\S+?)\s*(=\s*(.+)\s*)?\Z/u) { }
232 337 3033 if ($valid and not defined $valid{lc $1})
235 0 1011 if (my $v = $valid{$k}) { }
242 337 0 if (@s) { }
264 0 1008 if (not defined $pid) { }
3 1005 elsif ($pid == 0) { }
281 0 3 if $@
302 0 1005 if $r
311 82067 0 if -e $file
324 0 0 unless -d $folder
325 0 0 unless &confirmHasCommandLineCommand('du')
332 468 0 if (not $file =~ m[\0|\n|\A\.|\A\/\Z]su and -e $file) { }
344 0 468 unless length $m == 32
351 0 234 unless length $G >= 41
353 234 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 337 337 if -e $_
414 0 33215 onWindows() ? :
429 0 97326 onWindows() ? :
437 337 80536 unless @components
444 337 11414 unless $file
450 210246 0 if defined $_
451 0 68661 unless @file > 1
455 1582 67079 unless @file
467 0 2278 unless $file
468 0 2278 if (onWindows()) { }
469 0 0 unless $file =~ /\\/u
473 0 2278 unless $file =~ m[/]u
480 0 674 unless $file
481 0 674 if (onWindows()) { }
482 0 0 unless $file =~ /\\/u
485 0 674 unless $file =~ m[/]u
492 0 2368 unless $file
493 0 2368 if (onWindows()) { }
503 0 3714 unless $file
504 0 3714 if (onWindows()) { }
514 0 2578 unless $file
515 0 2578 unless $file =~ /\./su
522 671 674 unless (-e $file)
531 0 334 unless $file
540 0 674 if @f == 1 and not wantarray
548 473 0 if ($L >= $l)
549 473 0 if (substr($file, 0, $l) eq $known)
559 0 1045 unless defined $extension
561 0 1045 unless $ext
572 468 468 unless $prefix
578 0 0 if &fullyQualifiedFile($file)
584 337 674 unless $file =~ m[/]su
585 0 674 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 4278 unless defined $file
616 1011 3267 if $file =~ m[\/\Z]su or $file =~ /\.\.\Z/su
617 2256 1011 if ($file =~ m[\.[^/]+?\Z]su) { }
618 1919 337 if ($file =~ m[\A.+[/]]su) { }
628 674 337 if ($file =~ m[\A.+[/]]su) { }
337 0 elsif ($file =~ m[\A[/].]su) { }
0 0 elsif ($file =~ m[\A[/]\Z]su) { }
646 0 0 if &fullyQualifiedFile($file)
653 5055 10007 length $a < length $b ? :
655 0 15062 unless $a =~ m[\A/]u
656 0 15062 unless $b =~ m[\A/]u
662 12029 112080 if (substr($a, $i, 1) ne substr($b, $i, 1)) { }
24760 87320 elsif (substr($a, $i, 1) eq '/') { }
681 0 15839 if $r =~ m[\A/]u
682 0 15839 unless $a =~ m[\A/]u
695 674 674 if $file =~ m[\A/]u
705 337 674 &absFile($b) ? :
731 0 9028 if (onWindows())
732 0 0 $dirs ? :
737 0 0 if $dirs
742 0 9028 unless &confirmHasCommandLineCommand('find')
743 3432 5596 $dirs ? :
745 0 9028 unless defined $res
754 8147 55501 if -d $_
755 0 1002 if $filter and $filter and not /$filter/su
763 0 3432 if onWindows()
767 52468 5111 unless -d $_
768 0 0 if $filter and $filter and not /$filter/su
781 0 836 ref $_ ? :
783 17 819 if $_ and not -d $_
785 0 17 unless /\A\./su
788 17 802 @extensions ? :
792 17 819 unless $dir and -d $dir
795 819 2040 if -d $d
796 1972 68 if not $ext or $d =~ /($ext)\Z/isu
806 668 1002 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 337 671 if -e $file
874 671 334 if -d $path
883 337 674 if -e $f
890 702 3435 unless -d $folder
892 337 3098 if (@files > $limitCount)
899 3098 0 unless ($noMsg or onWindows())
900 0 3098 if -e $folder
908 0 8445 unless defined $file
910 0 8445 if $file =~ /\n|\r/u
912 0 8445 unless -e $file
914 0 8445 unless open my $F, '<:encoding(UTF-8)', $file
916 1006 7439 if (wantarray) { }
918 0 1006 if $@
924 0 7439 if $@
930 0 1 if (wantarray) { }
932 0 0 if $@
938 0 1 if $@
946 0 0 if (wantarray) { }
960 0 1670 if $@
975 0 334 if $@
981 0 336 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 2777 unless -e $file
1007 0 2777 unless open my $F, "<$file"
1016 0 668 unless defined $file
1018 0 668 if $file =~ /\n|\r/u
1020 0 668 unless -e $file
1022 0 668 unless &confirmHasCommandLineCommand('gunzip')
1023 0 668 unless open my $F, "gunzip < $file|"
1034 2475 14974 unless @path > 1
1035 14272 702 unless $file =~ m[[\\/]\Z]u
1037 11822 3152 if -d $path
1039 3152 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 11700 if $file =~ /\n|\r/su
1061 0 11700 unless defined $string
1063 0 11700 unless open my $F, ">$file"
1067 0 11700 unless close $F
1068 0 11700 unless -e $file
1076 1379 3414 if (defined $file)
1077 334 1045 if -e $file
1097 0 1139 if $file =~ /\n|\r/su
1098 0 1139 unless $string
1100 0 1139 unless open my $F, ">$file"
1105 0 1139 unless -e $file
1111 571 334 if (defined $file)
1112 234 337 if -e $file
1139 334 1 if (not $file) { }
1145 0 335 unless ref $structure
1153 0 668 unless open my $F, "| gzip>$file"
1158 0 668 unless -e $file
1164 0 334 unless ref $structure
1171 0 936 $old && $new ? :
1187 0 334 unless $file
1188 0 334 unless $string
1190 0 334 unless open my $F, ">>$file"
1196 0 334 unless -e $file
1203 0 1910 if -e $file
1205 0 1910 unless open my $F, ">$file"
1209 0 1910 unless -e $file
1219 0 468 unless &confirmHasCommandLineCommand('chmod')
1240 0 0 if ($r =~ /syntax OK/isu) { }
1259 0 234 unless $s eq $t
1270 234 234 if (-e $source and not -e $target)
1279 234 0 if (-e $source)
1298 468 468 if ($string =~ /<(bookmap)/su) { }
0 468 elsif ($string =~ /<(bookmap|concept|glossentry|html|map|reference|task)/su) { }
1319 234 0 if ($string =~ /<(bookmap)/su) { }
0 0 elsif ($string =~ /<(bookmap|concept|glossentry|html|map|reference|task)/su) { }
1327 234 468 if ($string =~ m[<${t}[^>]*>([^<]*)]isu)
1344 0 234 if $sourceFile =~ /[0-9a-z]{32}\Z/isu
1353 0 234 onWindows() ? :
1354 234 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 468 unless -d $source
1539 0 234 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 4688 2679 unless ref $d
1789 1673 1006 if $r eq 'ARRAY'
1790 1006 0 if $r eq 'HASH'
1807 0 337 if $@
1814 0 337 if $@
1823 337 4381 $n > 127 ? :
1843 2808 2808 if ($i % 2 == 1)
1883 6012 2004 if ($c eq '%' and @s >= 2) { }
1901 1011 2022 if 1 << $_ == $n
1902 337 1685 if 1 << $_ > $n
1910 2022 3707 if $n <= 1 << $_
1924 1685 0 if defined $_
1925 0 674 unless @_ == @n
1926 0 674 unless @n
1929 674 1011 if $_ < $M
1936 936 0 if defined $_
1937 0 234 unless @_ == @n
1938 0 234 unless @n
1942 234 702 if $n < $n[$M]
1949 33419 0 if defined $_
1950 0 20384 unless @_ == @n
1951 5013 15371 unless @n
1954 8354 25065 if $_ > $M
1961 936 0 if defined $_
1962 0 234 unless @_ == @n
1963 0 234 unless @n
1967 234 702 if $n > $n[$M]
1974 2340 0 if defined $_
1975 0 234 unless @_ == @n
1982 1170 0 if defined $_
1983 0 234 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 4175 29265 if (not defined $t) { }
28254 1011 elsif ($t =~ /array/isu) { }
1011 0 elsif ($t =~ /hash/isu) { }
2121 0 9603 if $u == 0
2134 1348 3176 unless defined $base
2138 337 9266 unless defined $s
2139 0 9266 if scalar @$s < scalar(@$base) * $confidence
2141 1348 7918 if ($o > $confidence)
2199 0 354 unless &reftype($hashSet) =~ /hash/isu
2214 4547 0 if (my $u = $u{$set})
2216 4547 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 337 1011 if (ref($item) =~ /Regexp/u) { }
674 337 elsif (&looks_like_number($item)) { }
2272 1011 2359 if $array[$_] =~ /$item/su
2277 1011 1685 if $array[$_] + 0 == $item
2282 674 2696 if $array[$_] eq $item
2291 0 234 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 1670 unless ref($data) =~ /array/iu
2411 0 4676 unless ref($row) =~ /array/iu
2416 2338 12024 $a > $b ? :
2426 13026 5344 if (not $i =~ /\A\s*[-+]?\s*(\d|[,])+(\.\d+)?([Ee]\s*[-+]?\s*\d+)?\s*\Z/u) { }
2453 0 13526 unless ref($data) =~ /array/iu
2460 1670 192187 if $text =~ /\n/u
2463 62289 129898 $a > $b ? :
2473 102382 80119 if (not $i =~ /\A\s*[-+]?\s*(\d|[,])+(\.\d+)?([Ee]\s*[-+]?\s*\d+)?\s*\Z/u) { }
2492 124 372 if $row == @$data
2496 372 992 unless my $dc = $$d[-$c]
2497 0 992 unless my $pc = $$data[-$p][-$c]
2498 620 372 if ($dc eq $pc) { }
2510 0 7898 unless ref($data) =~ /array/iu and @$data
2514 0 30647 unless ref($row) =~ /array/iu
2519 0 7898 if (my $w = $options{'maximumColumnWidth'})
2522 0 0 if length $_ > $w
2527 124 7774 if $options{'clearUpLeft'}
2529 7224 674 if $title
2535 0 1008 unless ref($data) =~ /hash/iu and keys %$data
2537 334 674 if $title
2544 0 1008 unless ref($data) =~ /array/iu and @$data
2561 0 1008 unless ref($data) =~ /hash/iu and keys %$data
2578 0 671 unless ref($data) =~ /array/iu and @$data
2581 334 337 if $title
2583 2010 0 @$data > 1 ? :
2591 0 1008 unless ref($data) =~ /hash/iu and keys %$data
2594 671 337 if $title
2658 2 234 if ($columnTitles and not ref $columnTitles and $columnTitles eq 'columns' and scalar(@options) % 2 == 1)
2664 0 12599 if scalar(@options) % 2
2671 4038 8563 unless defined $columnTitles
2672 8327 236 if (my $r = &reftype($columnTitles))
2673 8327 0 if $r =~ /\Aarray\Z/isu
2675 0 236 unless $columnTitles
2685 41392 4697 if ($r) { }
2686 34676 6716 if ($r =~ /array/iu) { }
6716 0 elsif ($r =~ /hash/iu) { }
2695 9577 3024 if (&reftype($data) =~ /array/iu) { }
3024 0 elsif (&reftype($data) =~ /hash/iu) { }
2697 7898 0 if $a and not $h and not $o
2698 1008 671 if not $a and $h and not $o
2703 1008 0 if $a and not $h and not $o
2704 1008 1008 if not $a and $h and not $o
2709 9698 2903 unless keys %options
2718 1640 1263 if $Title
2719 1640 1263 if $Title
2720 670 2233 if $head
2721 339 2564 if $file
2722 2 2901 if $titleString
2723 0 2903 if $wide
2727 468 2435 if $summarize
2733 2 2901 if $foot
2737 0 0 if ($msg and $file and $head)
2742 468 2435 if ($summarize)
2744 468 0 if (&reftype($data) =~ /array/iu)
2745 468 0 if ($a and not $h and not $o)
2762 339 2564 if ($file)
2763 339 0 if (&reftype($data) =~ /array/iu)
2764 339 0 if ($a and not $h and not $o or $zero)
2767 339 0 if ($title)
2768 347 334 defined $_ ? :
2784 339 0 if $file and $a + $h + $o || $zero
2786 0 2903 if $indent
2807 12636 0 if defined $d
2809 2574 2808 if $Data::Table::Text::b->[0] == $Data::Table::Text::a->[0]
2819 3914 3033 if (ref($ref) =~ /array/iu) { }
1011 2022 elsif (ref($ref) =~ /hash/iu) { }
2820 3240 674 if ($maxDepth == $currentDepth) { }
2824 337 674 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 12624 unless ref($hash) =~ /hash/gisu
3124 0 12624 unless ref($permitted) =~ /hash/gisu
3129 12624 0 unless keys %parms
3147 1011 1011 if ($m =~ /::/su) { }
3162 0 2022 if $@
3170 1348 0 $m =~ /::/su ? :
3171 1348 0 if defined &$M
3182 0 1011 if $@
3192 0 1011 if $@
3202 0 1011 if $@
3213 0 462150 unless ($m =~ /\A[a-z_](\w|:)*\Z/isu)
3219 341270 120880 if ($h->can($m))
3220 0 341270 unless $genHash{$M}
3223 0 341270 unless $genHash{$M}
3228 0 120880 if ($h->can($m . 'X'))
3234 110789 1237 $R =~ /array/iu ? :
8854 112026 !defined($R) ? :
3238 120880 0 if ($s)
3240 0 120880 if $@
3251 334 668 unless $hash->can($m)
3261 10824 5780 unless my $r = &reftype($d)
3262 0 5780 if $progress->{$d}
3263 2372 3408 if ($d =~ /array/isu) { }
3408 0 elsif ($d =~ /hash/isu) { }
3270 2406 1002 if (my $b = &blessed($d)) { }
3289 2340 1170 unless my $r = &reftype($d)
3290 0 1170 if $progress->{$d}
3291 234 936 if ($d =~ /array/isu) { }
936 0 elsif ($d =~ /hash/isu) { }
3298 936 0 if (my $b = &blessed($d))
3346 0 468 if $@
3352 0 6418 if $@
3373 2340 1638 if $@
3378 1404 2340 unless @packages
3382 0 0 if $@
3387 0 0 if $i == $#packages
3401 0 0 unless $i
3416 0 0 if $@
3423 337 0 unless $r and $r eq $package
3433 337 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 1005 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 1685 unless defined $string
3552 337 1348 if $l % $length == 0
3559 0 1685 unless defined $string
3563 337 1348 if $l % $length == 0
3570 0 1685 unless defined $string
3574 337 1348 if $l % $length == 0
3581 13766 334 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 334 0 if ($g ne $e)
3676 334 0 if (length $s)
3705 1011 334 if not $java =~ /\n/su and -e $java
3716 337 0 if (my $package = &javaPackage($java))
3725 0 671 unless defined $p
3731 234 0 $fileOrString =~ /\n/u ? :
3735 1170 936 if ($state == 0) { }
936 0 elsif ($state == 1) { }
3736 468 702 if ($line =~ m[\Afunction.*\/\/E]u)
3742 468 468 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)
4064 0 0 if (my $pid = fork) { }
4083 0 0 unless $s
4093 0 0 unless $con
4109 0 0 if $p
4121 0 0 defined $v ? :
4130 0 0 if ($code =~ /\A#!.*?perl\s*(.*?)\n/isu)
4288 0 0 if (not $code) { }
4307 0 0 if (my $r = `$s`)
4308 0 0 if ($r =~ /\Aaccess_token=(.*?)&scope=(.*?)&token_type=(.*?)\Z/u)
4332 0 0 unless $i
4341 0 0 if (-e awsIpFile())
4342 0 0 if (my $d = eval { do { &retrieveFile(scalar awsIpFile()) } })
4343 0 0 if ($d->{'time'} + 180 > &Data::Table::Text::time())
4366 0 0 unless &onAws
4367 0 0 unless &confirmHasCommandLineCommand('curl')
4374 0 0 if defined $awsCurrentIp
4380 0 0 if defined $awsCurrentInstanceId
4386 0 0 if defined $awsCurrentAvailabilityZone
4392 0 0 if (my $a = awsCurrentAvailabilityZone())
4400 0 0 if defined $awsCurrentInstanceType
4406 0 0 unless my $i = $options{'instanceId'} // awsCurrentInstanceId()
4412 0 0 unless my $p = $options{'profile'}
4418 0 0 unless my $r = $options{'region'} // awsCurrentRegion()
4447 0 0 if (-e awsEc2DescribeInstancesCache())
4448 0 0 if (my $D = eval { do { &retrieveFile(scalar awsEc2DescribeInstancesCache()) } })
4449 0 0 if (my $d = $D->{$region})
4450 0 0 if $d->{'time'} + 20 > &Data::Table::Text::time()
4455 0 0 unless &confirmHasCommandLineCommand('aws')
4473 0 0 if ($i->{'State'}{'Name'} =~ /running/iu)
4492 0 0 if (my $id = $i->{'InstanceId'})
4493 0 0 if ($id eq $instanceId)
4495 0 0 if (my $ip = $I->{'Association'}{'PublicIp'})
4508 0 0 unless &confirmHasCommandLineCommand('aws')
4521 0 0 if (my $tags = $i->{'Tags'})
4523 0 0 unless $t->{'Value'} =~ /$value/u
4535 0 0 unless &confirmHasCommandLineCommand('aws')
4548 0 0 if $awsCurrentLinuxSpotPrices
4550 0 0 unless &confirmHasCommandLineCommand('aws')
4574 0 0 unless &confirmHasCommandLineCommand('aws')
4579 0 0 if $cached
4636 0 0 unless &confirmHasCommandLineCommand('aws')
4663 0 0 unless &confirmHasCommandLineCommand('aws')
4718 0 0 unless &confirmHasCommandLineCommand('aws')
4729 9259 1029 if $confirmHasCommandLineCommand{$cmd}
4732 1029 0 if ($c =~ m[/]su)
4741 0 124 unless $^O =~ /linux/iu
4742 124 0 &confirmHasCommandLineCommand('nproc') ? :
4743 0 124 unless $n
4752 239 30 if $scale and $scale == int $scale
4753 30 0 if $scale and $scale != int $scale
4759 0 0 unless &confirmHasCommandLineCommand('arp')
4762 0 0 unless $line
4772 42 42 if ($name =~ m[\A([^/]*)/\Z]su)
4775 21 21 if ($name =~ m[\A(.*?)/(.*)\Z]su)
4783 0 0 unless @_ == 5
4784 0 0 unless &confirmHasCommandLineCommand('zip')
4785 0 0 unless &confirmHasCommandLineCommand('aws')
4788 0 0 -e $saveTimeFile ? :
4789 0 0 if $lastSaveTime and $lastSaveTime->[0] > &Data::Table::Text::time() - $saveCodeEvery
4791 0 0 if fork
4798 0 0 if (my $c = qq[cd $folder; zip -qr $z * -x "*.zip"] . ' -x "*.gz" -x "*/blib/*" -x "*/[._]*"')
4801 0 0 if $r =~ /\S/u
4805 0 0 if (my $c = "aws s3 cp $z s3://$target $s3Parms")
4807 0 0 if $r =~ /\S/u
4820 0 0 unless &confirmHasCommandLineCommand('zip')
4821 0 0 unless &confirmHasCommandLineCommand('aws')
4823 0 0 unless (fork)
4827 0 0 if (my $lastSaveTime = &fileModTime($saveTime))
4828 0 0 if $lastSaveTime > &Data::Table::Text::time() - $saveIntervalInSeconds
4834 0 0 unless &confirmHasCommandLineCommand('zip')
4838 0 0 unless &confirmHasCommandLineCommand('aws')
4850 0 0 unless &confirmHasCommandLineCommand('ssh-add')
4856 0 0 unless &confirmHasCommandLineCommand('hostname')
4863 0 0 if $user and $userid and $user eq $userid
4864 0 0 unless &confirmHasCommandLineCommand('whoami')
4866 0 0 if $user and $user ne $userid
4875 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
4905 0 0 if -e $cached
4917 0 0 if (my $J = `$c`)
4919 0 0 if (my $t = $p->{'TranslatedText'})
4931 77 124 if defined $onAws
4932 0 124 -e '/home/ubuntu/' ? :
4936 0 0 unless onAws()
4939 0 0 $I eq $i ? :
4943 0 0 unless onAws()
4946 0 0 $I ne $i ? :
4956 0 0 if (my $s = $i->{'State'}{'Name'})
4957 0 0 if ($s =~ /running/iu)
4960 0 0 if (my $v = $t->{'Value'})
4961 0 0 if ($v =~ /SessionLeader|Primary/iu)
4976 0 0 if (my($id) = @id)
5054 0 0 if (my $instanceIds = &awsEc2DescribeInstancesGetIPAddresses(%options))
5066 0 0 if (my $instanceIds = &awsEc2DescribeInstancesGetIPAddresses(%options))
5068 0 0 if $id eq $s
5081 0 0 if (my $instanceIds = &awsEc2DescribeInstancesGetIPAddresses(%options))
5096 0 33 if $i and $l =~ /\A#!/u
5097 12 21 if $l =~ /\A(#!|use )/u
5099 0 3 if ($0 =~ /\.pm\Z/iu and not $0 =~ /DataTableText/iu)
5120 0 0 if (onAws() and my(@i) = &awsParallelSecondaryIpAddresses(%options)) { }
5176 0 0 if (my $pid = fork) { }
5239 0 0 $p ? :
5245 0 0 $p ? :
5262 0 0 unless keys %files == 1
5265 0 0 unless $d->[3]
5296 0 0 $file =~ /pcd\Z/iu ? :
5318 0 0 if (-f $local)
5341 0 0 unless (-d $source)
5344 0 0 unless &confirmHasCommandLineCommand('zip')
5373 0 0 if $d =~ /ERROR 404: Not Found/su or not -e $z or &fileSize($z) < 100
5384 0 0 if $d =~ /ERROR 404: Not Found/su
5386 0 0 unless -f $t
5403 0 0 if (my $pid = fork) { }
5444 56406 56589 if (my $l = $starter->processingLogFile)
5446 28056 28350 $finish ? :
5452 333 28017 if (not $finish and $started == 1 and $t)
5453 333 0 $N ? :
5459 55080 1326 if ($N and $finished)
5469 56406 0 $N ? :
5470 28056 28350 $finish ? :
0 56406 $N == 0 ? :
5491 0 56973 unless my $F = $starter->processingLogFileHandle
5501 1040 57830 if ($started == 0)
5502 334 706 if (my $file = $starter->processingLogFile)
5504 0 334 unless open my $F, ">>$file"
5515 58543 327 if (my $pid = fork) { }
5524 327 0 if (my $t = $starter->transferArea)
5528 0 327 if $@
5540 54452 0 if ($starter->pids->{$p})
5541 54452 0 if (my $t = $starter->transferArea)
5543 54452 0 if (-e $f) { }
5546 0 54452 if $big
5547 54452 0 if (my $d = eval { do { retrieve($f) } }) { }
5548 54452 0 if (ref($d) =~ /array/isu) { }
5549 54452 0 if (@$d == 1) { }
5563 0 54452 if $big
5587 234 479 if (my $l = $starter->processingLogFile)
5594 234 0 if ($t) { }
5608 0 234 if ($started != @r)
5612 0 234 if ($started != $finished)
5615 0 234 if ($started != $N)
5618 234 0 if (my $F = $starter->processingLogFileHandle)
5625 713 0 if ($starter->autoRemoveTransferArea)
5636 4697 1404 unless $n * $n == $N
5642 20345 123825 if $i >= $n
5651 0 25657 unless ref($r) =~ /array/isu
5661 0 3510 unless ref($r) =~ /array/isu
5670 0 702 if $N < 2
5697 2 1 if (my $pid = fork) { }
5701 2 0 if wantarray
5713 1 1 if (my $pid = fork) { }
5716 0 1 if wantarray
5735 127 0 if $results
5756 224 0 if $results
5762 0 234 if $N < 2
5773 37860 120690 if $bucketSizes[$b] < $ms
5786 0 231 if @sizes == 0 and $results
5787 0 231 unless @sizes
5790 0 231 if @sizes <= $N
5819 128 0 if $results
5826 201 0 unless onAws()
5828 0 0 if $i =~ /\Am/iu
5829 0 0 if $i =~ /\Ar/iu
5830 0 0 if $i =~ /\Ax/iu
5852 0 0 $Profile ? :
5859 0 0 unless @files
5867 0 0 unless keys %partition > 1
5891 0 0 $Profile ? :
5896 0 0 unless @files
5906 0 0 unless keys %partition > 1
5934 334 334 -e $file ? :
5946 668 0 if $t->start == $service->start and $t->service eq $service->service and $t->file eq $t->file
5949 0 334 unless $continue
5957 1 0 $in ? :
5960 1 4 if ($lines[$i] =~ /\Asub\s*(\w+)\s*\((.*?)\)(.*)\Z/iu)
5964 1 0 if ($lines[$j] =~ /\A(\s*\{)my\s*\((.*?)\)\s*=\s*\@_/iu)
5974 0 5 if ($lines[$i] =~ /\A(\s*)if\s*\(my\s*\$(\w+)/iu)
5985 0 5 if ($lines[$i] =~ /\A(\s*)if\s*\(defined\s*\$(\w+)\s*\)(.*)\Z/iu)
5992 0 5 if ($lines[$i] =~ /\A(\s*)for\s*my\s*(\w+)(.*)\Z/iu)
6038 0 3 if $comments[$i] =~ m[\A//]u
6039 3 0 if ($comments[$i] =~ m[\A(.*)(//.*)\Z]u)
6041 1 2 if (length $code > 80) { }
2 0 elsif (length $code < 80) { }
6058 1 0 $out ? :
6065 0 2106 unless $ref and $ref =~ /\S/su
6069 0 2106 $File && $file ? :
6071 0 2106 unless ($rest)
6075 702 1404 unless ($rest =~ m[/]su)
6079 468 936 if ($rest =~ m[\A\./]su)
6085 0 936 if $TopicId and $topicId =~ /\A(\s*|\.)\Z/u
6094 34 0 if ($string =~ /
0 0 elsif ($string =~ /
6117 0 0 if ($l =~ /\Asub\s*(\w+)\s*\{.*?#\s+(.*)\Z/u)
6130 0 0 $reportFile ? :
6145 0 0 if ($l =~ /\Asub\s*(\w+)\s*\{.*?#\w*\s+(.*)\Z/u)
6165 0 0 $reportFile ? :
6182 0 0 if ($l =~ /\Asub\s*(\w+).*?#\w*r\w*\s+(.*)\Z/u)
6194 0 0 if ($l =~ /\Asub\s*(\w+).*?#\w*e\w*\s+(.*)\Z/u)
6207 334 1002 unless m[\A\s*(.+?)\s*\Z]u
6208 0 1002 if $toc{$2}++
6216 668 334 if $level < 2
6635 0 124 if (my(@e) = $string =~ /L\[(\w+)\]/gsu)
6715 1 0 if ($s =~ /$comment-begin\s*\n(.*?)$comment-end/isu)
6765 334 0 $sourceIsString ? :
6767 0 334 if ($source =~ /our\s+\$VERSION\s*=\s*(\S+)\s*;/su)
6769 0 0 if (my $v = eval $V)
6777 0 334 if ($source =~ /\n=head1\s+Name\s+(?:\w|:)+\s+(.+?)\n/su)
6786 0 334 $version ? :
6801 1336 7348 if (my(@tags) = $line =~ /(?:\s#T((?:\w|:)+))/gu)
6810 334 1002 if ($line =~ /<<(END|'END'|"END")/u)
6814 334 334 if $nextLine =~ /\AEND/u
6818 334 1002 if ($line =~ /\A(\s*)if\s*\x28(\d+)\x29/u)
6824 334 668 if ($N >= $minimumNumberOfLines and $nextLine =~ /\A$S }/u) { }
6832 0 668 unless $N < $M
6835 334 0 if (@testLines > 1)
6836 0 334 if ($testLines[0] =~ /\A\s*if\s*\x{28}\d\x{29}\s*{/iu)
6846 0 4342 if $t =~ /\AupdateDocumentation\Z/su
6857 334 8350 if ($line =~ /\Asub\s+((\w|:)+).*#(\w*)[rR]/u)
6863 334 668 if $nextLine =~ /\A }/u
6865 0 668 unless $N < $M
6878 0 8684 if ($line =~ /genHash\s*\x28\s*(q\x28.+\x29|__PACKAGE__).+?# (.+)\Z/u)
6884 0 0 if ($nextLine =~ /\A\s+(\w+)\s*=>\s*.+?#(\w*)\s+(.*)\Z/u)
6887 0 0 if (my $invalidFlags = $flags =~ s/[I]//grsu)
6891 0 0 if $nextLine =~ /\A\s*\);/u
6892 0 0 unless $N < $M
6901 0 8684 if ($line =~ /\Amy \$documentationSynopsis = <
6904 0 0 if $nextLine =~ /\AEND\Z/u
6916 2338 3674 if ($L->[$i] =~ /\b$m\b/u)
6925 334 8350 if ($line =~ /\ABEGIN\{\*(\w+)=\*(\w+)\}/u)
6929 0 334 if $synonymTarget{$target} and $synonymTarget{$target} ne $source
6935 334 0 unless ($perlModule =~ /\A(Text.pm|Doc.pm)\Z/su)
6937 0 334 if $@
6944 334 8350 if ($line =~ /\A#D(\d)\s+(.*?)\s*(#\s*(.+)\s*)?\Z/u) { }
0 8350 elsif ($line =~ /\A#C(?:ollaborators)?\s+(\S+)\s+(.+?)\s*\Z/u) { }
0 8350 elsif ($line =~ /\A#I(?:nstall(?:ation)?)?\s+(.+)\Z/u) { }
0 8350 elsif ($line =~ /\A#D(off)?/u) { }
0 8350 elsif ($level and $line =~ /\Asub\s*(\w+)\s*{.*}\s*#(\w*)\s+(.*)\Z/u) { }
668 7682 elsif ($level and $line =~ /\Asub\b\s*(.*?)?(\s*:lvalue)?\s*#(\w*)\s+(.+?)\s*\Z/u) { }
0 8350 elsif ($level and $line =~ /\A\s*genLValue(?:\w+?)Methods\s*\x28q(?:w|q)?\x28(\w+)\x29\x29;\s*#\s*(.+?)\s*\Z/u) { }
6947 334 0 if $level
6948 334 0 if $level and $4
6971 0 668 if ($comment =~ /\A(.*)Example:(.+?)\Z/isu)
6976 0 668 unless ($comment =~ /\.\s*\Z/isu)
6995 0 334 if $private and $replace || $Replace
6997 0 334 if $static and $replace || $Replace
6999 0 0 if $exported and $replace || $Replace
7001 0 668 if $exported and $static
7004 0 668 if $methodX
7005 334 334 if $private
7006 0 668 if $replace
7007 334 334 if $Replace
7008 334 334 if $static
7009 0 668 if $isUseful
7010 0 668 if $exported
7011 0 668 if $unitary
7018 0 8684 if $@
7019 5010 3674 unless $v
7023 0 668 if $userFlags
7028 668 0 if ($signature)
7041 0 668 unless @parameters == $signatureLength
7050 0 668 unless $p == $l
7078 0 668 if $methodX
7079 0 668 if $methodX
7080 0 668 if (my $u = $userFlags{$name})
7087 334 334 $private ? :
7093 668 0 if $parmNames and $parmDescriptions and not $parmDescriptions =~ /\A#/u
7098 0 668 if $userFlags{$name}[0]
7100 0 668 if $example
7103 0 668 if $produces
7106 334 334 if (my $examples = $examples{$name})
7107 334 0 if (my(@examples) = @$examples)
7112 0 668 if $replace
7124 334 334 if $Replace
7132 0 668 if $methodX
7136 334 334 if $static
7140 0 668 if $exported
7144 334 334 if (my $s = $synonymTargetSource{$name})
7145 334 0 if (keys %$s)
7152 334 334 $private ? :
7159 0 0 if $description =~ /\A#/u
7167 0 334 if (&isSubInPackage($package, 'processModuleDescription'))
7172 0 0 if $@
7184 0 334 if (keys %genHashs)
7194 0 0 $flags =~ /I/su ? :
7196 0 0 if ($title{$attribute}) { }
7207 0 0 if (@i)
7211 0 0 if (@o)
7217 0 334 if (my(@a) = sort(keys %attributes))
7236 0 334 if (my(@r) = sort(keys %replace))
7259 0 334 if $n
7262 0 334 if (keys %isUseful)
7275 0 0 $s ? :
7284 334 0 if @private
7286 334 0 if (keys %synonymTarget)
7305 668 0 if ($c and $t)
7312 0 334 if (keys %exported)
7357 0 334 if (keys %collaborators)
7372 0 334 if (keys %methodX)
7381 668 0 if (my $doc = $userFlags{$name})
7382 0 668 if $doc->[1]
7404 0 334 if (@synopsis)
7422 0 334 unless ($sourceIsString)
7423 0 0 if (@synopsis)
7429 0 0 if ($source ne $Source)
7446 0 0 if $@
7452 0 0 unless -e $perlModule
20296 0 337 if eval "eof(${p}::DATA)"
20298 0 337 if $@
20300 0 1 if $@