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 804 unless @cmd
155 804 0 if $check
157 0 804 unless $check
160 0 804 if $response and not $check
161 0 0 if $response and $check and not $response =~ /$success/u
162 0 804 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 742 unless $cmd
194 0 1484 unless /\S/u
202 0 371 $message ? :
371 371 if $R and not $returnCode && $R =~ /$returnCode/u or $success and not $r =~ /$success/su
223 371 742 unless $valid
224 742 0 if ref($valid) =~ /array/isu
231 3710 1855 if ($arg =~ /\A-+(\S+?)\s*(=\s*(.+)\s*)?\Z/u) { }
232 371 3339 if ($valid and not defined $valid{lc $1})
235 0 1113 if (my $v = $valid{$k}) { }
242 371 0 if (@s) { }
264 0 1110 if (not defined $pid) { }
3 1107 elsif ($pid == 0) { }
281 0 3 if $@
302 0 1107 if $r
311 96326 0 if -e $file
324 0 0 unless -d $folder
325 0 0 unless &confirmHasCommandLineCommand('du')
332 536 0 if (not $file =~ m[\0|\n|\A\.|\A\/\Z]su and -e $file) { }
344 0 536 unless length $m == 32
351 0 268 unless length $G >= 41
353 268 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 371 371 if -e $_
414 0 37193 onWindows() ? :
429 0 110332 onWindows() ? :
437 371 91842 unless @components
444 371 12757 unless $file
450 240475 0 if defined $_
451 0 78590 unless @file > 1
455 1752 76838 unless @file
467 0 2516 unless $file
468 0 2516 if (onWindows()) { }
469 0 0 unless $file =~ /\\/u
473 0 2516 unless $file =~ m[/]u
480 0 742 unless $file
481 0 742 if (onWindows()) { }
482 0 0 unless $file =~ /\\/u
485 0 742 unless $file =~ m[/]u
492 0 2640 unless $file
493 0 2640 if (onWindows()) { }
503 0 4088 unless $file
504 0 4088 if (onWindows()) { }
514 0 2850 unless $file
515 0 2850 unless $file =~ /\./su
522 739 742 unless (-e $file)
531 0 368 unless $file
540 0 742 if @f == 1 and not wantarray
548 541 0 if ($L >= $l)
549 541 0 if (substr($file, 0, $l) eq $known)
559 0 1181 unless defined $extension
561 0 1181 unless $ext
572 536 536 unless $prefix
578 0 0 if &fullyQualifiedFile($file)
584 371 742 unless $file =~ m[/]su
585 0 742 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 4720 unless defined $file
616 1113 3607 if $file =~ m[\/\Z]su or $file =~ /\.\.\Z/su
617 2494 1113 if ($file =~ m[\.[^/]+?\Z]su) { }
618 2123 371 if ($file =~ m[\A.+[/]]su) { }
628 742 371 if ($file =~ m[\A.+[/]]su) { }
371 0 elsif ($file =~ m[\A[/].]su) { }
0 0 elsif ($file =~ m[\A[/]\Z]su) { }
646 0 0 if &fullyQualifiedFile($file)
653 5565 11027 length $a < length $b ? :
655 0 16592 unless $a =~ m[\A/]u
656 0 16592 unless $b =~ m[\A/]u
662 13253 123606 if (substr($a, $i, 1) ne substr($b, $i, 1)) { }
27310 96296 elsif (substr($a, $i, 1) eq '/') { }
681 0 17437 if $r =~ m[\A/]u
682 0 17437 unless $a =~ m[\A/]u
695 742 742 if $file =~ m[\A/]u
705 371 742 &absFile($b) ? :
731 0 10048 if (onWindows())
732 0 0 $dirs ? :
737 0 0 if $dirs
742 0 10048 unless &confirmHasCommandLineCommand('find')
743 3823 6225 $dirs ? :
745 0 10048 unless defined $res
754 9014 64749 if -d $_
755 0 1104 if $filter and $filter and not /$filter/su
763 0 3823 if onWindows()
767 61410 5672 unless -d $_
768 0 0 if $filter and $filter and not /$filter/su
781 0 938 ref $_ ? :
783 17 921 if $_ and not -d $_
785 0 17 unless /\A\./su
788 17 904 @extensions ? :
792 17 921 unless $dir and -d $dir
795 921 2278 if -d $d
796 2210 68 if not $ext or $d =~ /($ext)\Z/isu
806 736 1104 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 371 739 if -e $file
874 739 368 if -d $path
883 371 742 if -e $f
890 804 3826 unless -d $folder
892 371 3455 if (@files > $limitCount)
899 3455 0 unless ($noMsg or onWindows())
900 0 3455 if -e $folder
908 0 9397 unless defined $file
910 0 9397 if $file =~ /\n|\r/u
912 0 9397 unless -e $file
914 0 9397 unless open my $F, '<:encoding(UTF-8)', $file
916 1108 8289 if (wantarray) { }
918 0 1108 if $@
924 0 8289 if $@
930 0 1 if (wantarray) { }
932 0 0 if $@
938 0 1 if $@
946 0 0 if (wantarray) { }
960 0 1840 if $@
975 0 368 if $@
981 0 370 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 3151 unless -e $file
1007 0 3151 unless open my $F, "<$file"
1016 0 736 unless defined $file
1018 0 736 if $file =~ /\n|\r/u
1020 0 736 unless -e $file
1022 0 736 unless &confirmHasCommandLineCommand('gunzip')
1023 0 736 unless open my $F, "gunzip < $file|"
1034 2747 16844 unless @path > 1
1035 16040 804 unless $file =~ m[[\\/]\Z]u
1037 13352 3492 if -d $path
1039 3492 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 13196 if $file =~ /\n|\r/su
1061 0 13196 unless defined $string
1063 0 13196 unless open my $F, ">$file"
1067 0 13196 unless close $F
1068 0 13196 unless -e $file
1076 1515 3822 if (defined $file)
1077 368 1147 if -e $file
1097 0 1275 if $file =~ /\n|\r/su
1098 0 1275 unless $string
1100 0 1275 unless open my $F, ">$file"
1105 0 1275 unless -e $file
1111 639 368 if (defined $file)
1112 268 371 if -e $file
1139 368 1 if (not $file) { }
1145 0 369 unless ref $structure
1153 0 736 unless open my $F, "| gzip>$file"
1158 0 736 unless -e $file
1164 0 368 unless ref $structure
1171 0 1072 $old && $new ? :
1187 0 368 unless $file
1188 0 368 unless $string
1190 0 368 unless open my $F, ">>$file"
1196 0 368 unless -e $file
1203 0 2114 if -e $file
1205 0 2114 unless open my $F, ">$file"
1209 0 2114 unless -e $file
1219 0 536 unless &confirmHasCommandLineCommand('chmod')
1240 0 0 if ($r =~ /syntax OK/isu) { }
1259 0 268 unless $s eq $t
1270 268 268 if (-e $source and not -e $target)
1279 268 0 if (-e $source)
1298 536 536 if ($string =~ /<(bookmap)/su) { }
0 536 elsif ($string =~ /<(bookmap|concept|glossentry|html|map|reference|task)/su) { }
1319 268 0 if ($string =~ /<(bookmap)/su) { }
0 0 elsif ($string =~ /<(bookmap|concept|glossentry|html|map|reference|task)/su) { }
1327 268 536 if ($string =~ m[<${t}[^>]*>([^<]*)]isu)
1344 0 268 if $sourceFile =~ /[0-9a-z]{32}\Z/isu
1353 0 268 onWindows() ? :
1354 268 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 536 unless -d $source
1539 0 268 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 5164 2951 unless ref $d
1789 1843 1108 if $r eq 'ARRAY'
1790 1108 0 if $r eq 'HASH'
1807 0 371 if $@
1814 0 371 if $@
1823 371 4823 $n > 127 ? :
1843 3216 3216 if ($i % 2 == 1)
1883 6624 2208 if ($c eq '%' and @s >= 2) { }
1901 1113 2226 if 1 << $_ == $n
1902 371 1855 if 1 << $_ > $n
1910 2226 4081 if $n <= 1 << $_
1919 1855 0 if defined $_
1920 0 742 unless @_ == @n
1921 0 742 unless @n
1924 742 1113 if $_ < $M
1931 1072 0 if defined $_
1932 0 268 unless @_ == @n
1933 0 268 unless @n
1937 268 804 if $n < $n[$M]
1944 36819 0 if defined $_
1945 0 22458 unless @_ == @n
1946 5523 16935 unless @n
1949 9204 27615 if $_ > $M
1956 1072 0 if defined $_
1957 0 268 unless @_ == @n
1958 0 268 unless @n
1962 268 804 if $n > $n[$M]
1969 2680 0 if defined $_
1970 0 268 unless @_ == @n
1977 1340 0 if defined $_
1978 0 268 unless @_ == @n
2013 0 42 unless @h
2014 0 42 if @h == 1
2027 0 21 unless @h
2028 0 21 if @h == 1
2034 21 42 if ($u->{$k} == $N)
2048 105 0 if (defined(my $v = $h->{$k}))
2061 126 0 defined $h->{$_} ? :
2066 21 42 if ($n{$k} == $N)
2079 4617 30999 if (not defined $t) { }
29886 1113 elsif ($t =~ /array/isu) { }
1113 0 elsif ($t =~ /hash/isu) { }
2116 0 10011 if $u == 0
2129 1484 3448 unless defined $base
2133 371 9640 unless defined $s
2134 0 9640 if scalar @$s < scalar(@$base) * $confidence
2136 1484 8156 if ($o > $confidence)
2194 0 388 unless &reftype($hashSet) =~ /hash/isu
2209 4649 0 if (my $u = $u{$set})
2211 4649 24752 unless $p{$U}++
2223 0 17 unless &reftype($hashSet) =~ /hash/isu
2250 624 0 if (my $u = $u{$set})
2252 912 4080 unless $p{$U}++
2265 371 1113 if (ref($item) =~ /Regexp/u) { }
742 371 elsif (&looks_like_number($item)) { }
2267 1113 2597 if $array[$_] =~ /$item/su
2272 1113 1855 if $array[$_] + 0 == $item
2277 742 2968 if $array[$_] eq $item
2286 0 268 unless length $inString >= length $searchFor
2311 0 2079 if $@
2322 903 525 if ($s <= $maxSize or not keys %$paths) { }
2332 315 21 if keys %paths
2343 3 0 if (&reftype($value) =~ /hash/iu)
2351 3 1 if ($i and &reftype($i) =~ /hash/iu)
2353 4 8 if $i->{$b}
2362 10 22 if ($t{$a}{$b})
2367 1 1 unless $changes
2371 1 3 unless keys %{$t{$s}}
2378 1 2 if (defined(my $i = $s{$k})) { }
2401 0 1840 unless ref($data) =~ /array/iu
2406 0 5152 unless ref($row) =~ /array/iu
2411 2576 13248 $a > $b ? :
2421 14352 5888 if (not $i =~ /\A\s*[-+]?\s*(\d|[,])+(\.\d+)?([Ee]\s*[-+]?\s*\d+)?\s*\Z/u) { }
2448 0 15090 unless ref($data) =~ /array/iu
2455 1840 215171 if $text =~ /\n/u
2458 70177 144994 $a > $b ? :
2468 114078 90421 if (not $i =~ /\A\s*[-+]?\s*(\d|[,])+(\.\d+)?([Ee]\s*[-+]?\s*\d+)?\s*\Z/u) { }
2487 158 474 if $row == @$data
2491 474 1264 unless my $dc = $$d[-$c]
2492 0 1264 unless my $pc = $$data[-$p][-$c]
2493 790 474 if ($dc eq $pc) { }
2505 0 8884 unless ref($data) =~ /array/iu and @$data
2509 0 34659 unless ref($row) =~ /array/iu
2514 0 8884 if (my $w = $options{'maximumColumnWidth'})
2517 0 0 if length $_ > $w
2522 158 8726 if $options{'clearUpLeft'}
2524 8142 742 if $title
2530 0 1110 unless ref($data) =~ /hash/iu and keys %$data
2532 368 742 if $title
2539 0 1110 unless ref($data) =~ /array/iu and @$data
2556 0 1110 unless ref($data) =~ /hash/iu and keys %$data
2573 0 739 unless ref($data) =~ /array/iu and @$data
2576 368 371 if $title
2578 2214 0 @$data > 1 ? :
2586 0 1110 unless ref($data) =~ /hash/iu and keys %$data
2589 739 371 if $title
2653 2 268 if ($columnTitles and not ref $columnTitles and $columnTitles eq 'columns' and scalar(@options) % 2 == 1)
2659 0 14061 if scalar(@options) % 2
2666 4446 9617 unless defined $columnTitles
2667 9347 270 if (my $r = &reftype($columnTitles))
2668 9347 0 if $r =~ /\Aarray\Z/isu
2670 0 270 unless $columnTitles
2680 46492 5173 if ($r) { }
2681 39096 7396 if ($r =~ /array/iu) { }
7396 0 elsif ($r =~ /hash/iu) { }
2690 10733 3330 if (&reftype($data) =~ /array/iu) { }
3330 0 elsif (&reftype($data) =~ /hash/iu) { }
2692 8884 0 if $a and not $h and not $o
2693 1110 739 if not $a and $h and not $o
2698 1110 0 if $a and not $h and not $o
2699 1110 1110 if not $a and $h and not $o
2704 10752 3311 unless keys %options
2713 1878 1433 if $Title
2714 1878 1433 if $Title
2715 738 2573 if $head
2716 373 2938 if $file
2717 2 3309 if $titleString
2718 0 3311 if $wide
2722 536 2775 if $summarize
2728 2 3309 if $foot
2732 0 0 if ($msg and $file and $head)
2737 536 2775 if ($summarize)
2739 536 0 if (&reftype($data) =~ /array/iu)
2740 536 0 if ($a and not $h and not $o)
2757 373 2938 if ($file)
2758 373 0 if (&reftype($data) =~ /array/iu)
2759 373 0 if ($a and not $h and not $o or $zero)
2762 373 0 if ($title)
2763 381 368 defined $_ ? :
2779 373 0 if $file and $a + $h + $o || $zero
2781 0 3311 if $indent
2802 14472 0 if defined $d
2804 2948 3216 if $Data::Table::Text::b->[0] == $Data::Table::Text::a->[0]
2814 4424 3339 if (ref($ref) =~ /array/iu) { }
1113 2226 elsif (ref($ref) =~ /hash/iu) { }
2815 3682 742 if ($maxDepth == $currentDepth) { }
2819 371 742 if ($maxDepth == $currentDepth) { }
2830 23 0 $data ? :
2834 0 23 if (not $options{'zero'} and $data and ref($data) =~ /array/iu and not @$data)
2842 23 0 if (my $columns = $options{'columns'})
2843 0 23 if ref $columns
2853 23 0 if (my $title = $options{'title'})
2869 23 0 if (my $head = $options{'head'})
2877 23 0 if $cl
2879 23 0 if ($data)
2889 23 0 if $ct
2891 23 0 if (my $foot = $options{'foot'})
2901 2 21 if (my $file = $options{'file'})
2918 34 0 if ($t =~ m[]su)
2920 0 34 if $@
2921 34 0 if (my $t = $d->{'title'}) { }
2936 0 34 unless my $file = $options->{'file'}
2941 34 0 unless $file =~ m[/bad/]u and $rows
2956 17 0 $title ? :
3022 17 0 if (my $out = &fpe($reports, ('index_of_reports', 'html')))
3038 0 40 ref $filePrefix ? :
3042 40 0 if ($reports)
3044 2 38 unless ($pid)
3051 38 0 if ($html)
3053 2 36 unless ($pid)
3063 5 5 if ($col and $col =~ /\A$filePrefix/su)
3117 0 14086 unless ref($hash) =~ /hash/gisu
3119 0 14086 unless ref($permitted) =~ /hash/gisu
3124 14086 0 unless keys %parms
3142 1113 1113 if ($m =~ /::/su) { }
3157 0 2226 if $@
3165 1484 0 $m =~ /::/su ? :
3166 1484 0 if defined &$M
3177 0 1113 if $@
3187 0 1113 if $@
3197 0 1113 if $@
3208 0 566258 unless ($m =~ /\A[a-z_](\w|:)*\Z/isu)
3214 432968 133290 if ($h->can($m))
3215 0 432968 unless $genHash{$M}
3218 0 432968 unless $genHash{$M}
3223 0 133290 if ($h->can($m . 'X'))
3229 122077 1373 $R =~ /array/iu ? :
9840 123450 !defined($R) ? :
3233 133290 0 if ($s)
3235 0 133290 if $@
3246 368 736 unless $hash->can($m)
3256 12048 6460 unless my $r = &reftype($d)
3257 0 6460 if $progress->{$d}
3258 2644 3816 if ($d =~ /array/isu) { }
3816 0 elsif ($d =~ /hash/isu) { }
3265 2712 1104 if (my $b = &blessed($d)) { }
3284 2680 1340 unless my $r = &reftype($d)
3285 0 1340 if $progress->{$d}
3286 268 1072 if ($d =~ /array/isu) { }
1072 0 elsif ($d =~ /hash/isu) { }
3293 1072 0 if (my $b = &blessed($d))
3341 0 536 if $@
3347 0 7336 if $@
3368 2680 1876 if $@
3373 1608 2680 unless @packages
3377 0 0 if $@
3382 0 0 if $i == $#packages
3396 0 0 unless $i
3411 0 0 if $@
3418 371 0 unless $r and $r eq $package
3428 371 0 unless $r and $r eq $package
3442 105 126 if (ref($a) =~ /\Aarray\Z/iu) { }
21 105 elsif (ref($a) =~ /\Ahash\Z/iu) { }
3457 3 0 if (my $b = B::svref_2object($sub))
3459 3 0 if ($r =~ /B::CV/iu)
3460 3 0 if (my $g = $b->GV)
3481 0 1107 ref $string ? :
3488 84 21 if ($i >= 0)
3503 21 168 if ($string =~ /(B<([^>]*)>)/su)
3505 0 21 if $s eq $string
3512 21 336 if (not $f[-1]) { }
3515 84 252 if (length $l > $width) { }
3543 0 1855 unless defined $string
3547 371 1484 if $l % $length == 0
3554 0 1855 unless defined $string
3558 371 1484 if $l % $length == 0
3565 0 1855 unless defined $string
3569 371 1484 if $l % $length == 0
3576 14956 368 if not $length or length $string < $length
3602 0 17 unless $string
3613 340 680 if $s == 0 and $c =~ /\s/u
3615 170 510 if ($s == 0) { }
153 357 elsif ($s == 1) { }
102 255 elsif ($s == 2) { }
255 0 elsif ($s == 3) { }
3616 51 119 if ($c =~ /'/u) { }
51 68 elsif ($c =~ /"/u) { }
3627 51 102 if ($c =~ /\s/u) { }
3635 51 51 if ($c =~ /'/u) { }
3643 51 204 if ($c =~ /"/u) { }
3669 368 0 if ($g ne $e)
3671 368 0 if (length $s)
3700 1113 368 if not $java =~ /\n/su and -e $java
3711 371 0 if (my $package = &javaPackage($java))
3720 0 739 unless defined $p
3726 268 0 $fileOrString =~ /\n/u ? :
3730 1340 1072 if ($state == 0) { }
1072 0 elsif ($state == 1) { }
3731 536 804 if ($line =~ m[\Afunction.*\/\/E]u)
3737 536 536 if $line =~ /\A \}/u
3776 2 3 if @a and @b
3777 1 2 if @b
3778 1 1 if @a
3962 0 0 unless &confirmHasCommandLineCommand('isutf8')
3965 0 0 unless $?
4005 1 5 if $c <= 128
4007 1 4 if ($c <= 2048)
4013 3 1 if ($c <= 65536)
4021 1 0 if ($c <= 2097152)
4059 0 0 if (my $pid = fork) { }
4078 0 0 unless $s
4088 0 0 unless $con
4104 0 0 if $p
4116 0 0 defined $v ? :
4125 0 0 if ($code =~ /\A#!.*?perl\s*(.*?)\n/isu)
4283 0 0 if (not $code) { }
4302 0 0 if (my $r = `$s`)
4303 0 0 if ($r =~ /\Aaccess_token=(.*?)&scope=(.*?)&token_type=(.*?)\Z/u)
4327 0 0 unless $i
4336 0 0 if (-e awsIpFile())
4337 0 0 if (my $d = eval { do { &retrieveFile(scalar awsIpFile()) } })
4338 0 0 if ($d->{'time'} + 180 > &Data::Table::Text::time())
4361 0 0 unless &onAws
4362 0 0 unless &confirmHasCommandLineCommand('curl')
4369 0 0 if defined $awsCurrentIp
4375 0 0 if defined $awsCurrentInstanceId
4381 0 0 if defined $awsCurrentAvailabilityZone
4387 0 0 if (my $a = awsCurrentAvailabilityZone())
4395 0 0 if defined $awsCurrentInstanceType
4401 0 0 unless my $i = $options{'instanceId'} // awsCurrentInstanceId()
4407 0 0 unless my $p = $options{'profile'}
4413 0 0 unless my $r = $options{'region'} // awsCurrentRegion()
4442 0 0 if (-e awsEc2DescribeInstancesCache())
4443 0 0 if (my $D = eval { do { &retrieveFile(scalar awsEc2DescribeInstancesCache()) } })
4444 0 0 if (my $d = $D->{$region})
4445 0 0 if $d->{'time'} + 20 > &Data::Table::Text::time()
4450 0 0 unless &confirmHasCommandLineCommand('aws')
4468 0 0 if ($i->{'State'}{'Name'} =~ /running/iu)
4487 0 0 if (my $id = $i->{'InstanceId'})
4488 0 0 if ($id eq $instanceId)
4490 0 0 if (my $ip = $I->{'Association'}{'PublicIp'})
4503 0 0 unless &confirmHasCommandLineCommand('aws')
4516 0 0 if (my $tags = $i->{'Tags'})
4518 0 0 unless $t->{'Value'} =~ /$value/u
4530 0 0 unless &confirmHasCommandLineCommand('aws')
4543 0 0 if $awsCurrentLinuxSpotPrices
4545 0 0 unless &confirmHasCommandLineCommand('aws')
4569 0 0 unless &confirmHasCommandLineCommand('aws')
4574 0 0 if $cached
4631 0 0 unless &confirmHasCommandLineCommand('aws')
4658 0 0 unless &confirmHasCommandLineCommand('aws')
4713 0 0 unless &confirmHasCommandLineCommand('aws')
4724 10313 1165 if $confirmHasCommandLineCommand{$cmd}
4727 1165 0 if ($c =~ m[/]su)
4736 0 158 unless $^O =~ /linux/iu
4737 158 0 &confirmHasCommandLineCommand('nproc') ? :
4738 0 158 unless $n
4747 290 30 if $scale and $scale == int $scale
4748 30 0 if $scale and $scale != int $scale
4754 0 0 unless &confirmHasCommandLineCommand('arp')
4757 0 0 unless $line
4767 42 42 if ($name =~ m[\A([^/]*)/\Z]su)
4770 21 21 if ($name =~ m[\A(.*?)/(.*)\Z]su)
4778 0 0 unless @_ == 5
4779 0 0 unless &confirmHasCommandLineCommand('zip')
4780 0 0 unless &confirmHasCommandLineCommand('aws')
4783 0 0 -e $saveTimeFile ? :
4784 0 0 if $lastSaveTime and $lastSaveTime->[0] > &Data::Table::Text::time() - $saveCodeEvery
4786 0 0 if fork
4793 0 0 if (my $c = qq[cd $folder; zip -qr $z * -x "*.zip" -x "*.gz" -x "*/blib/*" -x "*/[._]*"])
4795 0 0 if $r =~ /\S/u
4799 0 0 if (my $c = "aws s3 cp $z s3://$target $s3Parms")
4801 0 0 if $r =~ /\S/u
4814 0 0 unless &confirmHasCommandLineCommand('zip')
4815 0 0 unless &confirmHasCommandLineCommand('aws')
4817 0 0 unless (fork)
4821 0 0 if (my $lastSaveTime = &fileModTime($saveTime))
4822 0 0 if $lastSaveTime > &Data::Table::Text::time() - $saveIntervalInSeconds
4828 0 0 unless &confirmHasCommandLineCommand('zip')
4832 0 0 unless &confirmHasCommandLineCommand('aws')
4844 0 0 unless &confirmHasCommandLineCommand('ssh-add')
4850 0 0 unless &confirmHasCommandLineCommand('hostname')
4857 0 0 if $user and $userid and $user eq $userid
4858 0 0 unless &confirmHasCommandLineCommand('whoami')
4860 0 0 if $user and $user ne $userid
4869 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
4899 0 0 if -e $cached
4911 0 0 if (my $J = `$c`)
4913 0 0 if (my $t = $p->{'TranslatedText'})
4925 94 158 if defined $onAws
4926 0 158 -e '/home/ubuntu/' ? :
4930 0 0 unless onAws()
4933 0 0 $I eq $i ? :
4937 0 0 unless onAws()
4940 0 0 $I ne $i ? :
4950 0 0 if (my $s = $i->{'State'}{'Name'})
4951 0 0 if ($s =~ /running/iu)
4954 0 0 if (my $v = $t->{'Value'})
4955 0 0 if ($v =~ /SessionLeader|Primary/iu)
4970 0 0 if (my($id) = @id)
5048 0 0 if (my $instanceIds = &awsEc2DescribeInstancesGetIPAddresses(%options))
5060 0 0 if (my $instanceIds = &awsEc2DescribeInstancesGetIPAddresses(%options))
5062 0 0 if $id eq $s
5075 0 0 if (my $instanceIds = &awsEc2DescribeInstancesGetIPAddresses(%options))
5090 0 33 if $i and $l =~ /\A#!/u
5091 12 21 if $l =~ /\A(#!|use )/u
5093 0 3 if ($0 =~ /\.pm\Z/iu and not $0 =~ /DataTableText/iu)
5114 0 0 if (onAws() and my(@i) = &awsParallelSecondaryIpAddresses(%options)) { }
5170 0 0 if (my $pid = fork) { }
5233 0 0 $p ? :
5239 0 0 $p ? :
5256 0 0 unless keys %files == 1
5259 0 0 unless $d->[3]
5290 0 0 $file =~ /pcd\Z/iu ? :
5312 0 0 if (-f $local)
5335 0 0 unless (-d $source)
5338 0 0 unless &confirmHasCommandLineCommand('zip')
5367 0 0 if $d =~ /ERROR 404: Not Found/su or not -e $z or &fileSize($z) < 100
5378 0 0 if $d =~ /ERROR 404: Not Found/su
5380 0 0 unless -f $t
5397 0 0 if (my $pid = fork) { }
5438 63206 66926 if (my $l = $starter->processingLogFile)
5440 31456 31750 $finish ? :
5446 367 31383 if (not $finish and $started == 1 and $t)
5447 367 0 $N ? :
5453 61744 1462 if ($N and $finished)
5463 63206 0 $N ? :
5464 31456 31750 $finish ? :
0 63206 $N == 0 ? :
5485 0 63841 unless my $F = $starter->processingLogFileHandle
5495 1193 66619 if ($started == 0)
5496 368 825 if (my $file = $starter->processingLogFile)
5498 0 368 unless open my $F, ">>$file"
5509 67451 361 if (my $pid = fork) { }
5518 361 0 if (my $t = $starter->transferArea)
5522 0 361 if $@
5534 62681 0 if ($starter->pids->{$p})
5535 62681 0 if (my $t = $starter->transferArea)
5537 62681 0 if (-e $f) { }
5540 0 62681 if $big
5541 62681 0 if (my $d = eval { do { retrieve($f) } }) { }
5542 62681 0 if (ref($d) =~ /array/isu) { }
5543 62681 0 if (@$d == 1) { }
5557 0 62681 if $big
5581 268 564 if (my $l = $starter->processingLogFile)
5588 268 0 if ($t) { }
5602 0 268 if ($started != @r)
5606 0 268 if ($started != $finished)
5609 0 268 if ($started != $N)
5612 268 0 if (my $F = $starter->processingLogFileHandle)
5619 832 0 if ($starter->autoRemoveTransferArea)
5630 5377 1608 unless $n * $n == $N
5636 23269 141335 if $i >= $n
5645 0 29465 unless ref($r) =~ /array/isu
5655 0 4020 unless ref($r) =~ /array/isu
5664 0 804 if $N < 2
5691 2 1 if (my $pid = fork) { }
5695 2 0 if wantarray
5707 1 1 if (my $pid = fork) { }
5710 0 1 if wantarray
5729 161 0 if $results
5750 258 0 if $results
5756 0 285 if $N < 2
5767 46836 150270 if $bucketSizes[$b] < $ms
5780 0 282 if @sizes == 0 and $results
5781 0 282 unless @sizes
5784 0 282 if @sizes <= $N
5813 145 0 if $results
5820 252 0 unless onAws()
5822 0 0 if $i =~ /\Am/iu
5823 0 0 if $i =~ /\Ar/iu
5824 0 0 if $i =~ /\Ax/iu
5846 0 0 $Profile ? :
5853 0 0 unless @files
5861 0 0 unless keys %partition > 1
5885 0 0 $Profile ? :
5890 0 0 unless @files
5900 0 0 unless keys %partition > 1
5928 368 368 -e $file ? :
5940 736 0 if $t->start == $service->start and $t->service eq $service->service and $t->file eq $t->file
5943 0 368 unless $continue
5951 1 0 $in ? :
5954 1 4 if ($lines[$i] =~ /\Asub\s*(\w+)\s*\((.*?)\)(.*)\Z/iu)
5958 1 0 if ($lines[$j] =~ /\A(\s*\{)my\s*\((.*?)\)\s*=\s*\@_/iu)
5968 0 5 if ($lines[$i] =~ /\A(\s*)if\s*\(my\s*\$(\w+)/iu)
5979 0 5 if ($lines[$i] =~ /\A(\s*)if\s*\(defined\s*\$(\w+)\s*\)(.*)\Z/iu)
5986 0 5 if ($lines[$i] =~ /\A(\s*)for\s*my\s*(\w+)(.*)\Z/iu)
6032 0 3 if $comments[$i] =~ m[\A//]u
6033 3 0 if ($comments[$i] =~ m[\A(.*)(//.*)\Z]u)
6035 1 2 if (length $code > 80) { }
2 0 elsif (length $code < 80) { }
6052 1 0 $out ? :
6059 0 2412 unless $ref and $ref =~ /\S/su
6063 0 2412 $File && $file ? :
6065 0 2412 unless ($rest)
6069 804 1608 unless ($rest =~ m[/]su)
6073 536 1072 if ($rest =~ m[\A\./]su)
6079 0 1072 if $TopicId and $topicId =~ /\A(\s*|\.)\Z/u
6088 34 0 if ($string =~ /
0 0 elsif ($string =~ /
6111 0 0 if ($l =~ /\Asub\s*(\w+)\s*\{.*?#\s+(.*)\Z/u)
6124 0 0 $reportFile ? :
6139 0 0 if ($l =~ /\Asub\s*(\w+)\s*\{.*?#\w*\s+(.*)\Z/u)
6159 0 0 $reportFile ? :
6176 0 0 if ($l =~ /\Asub\s*(\w+).*?#\w*r\w*\s+(.*)\Z/u)
6188 0 0 if ($l =~ /\Asub\s*(\w+).*?#\w*e\w*\s+(.*)\Z/u)
6201 368 1104 unless m[\A\s*(.+?)\s*\Z]u
6202 0 1104 if $toc{$2}++
6210 736 368 if $level < 2
6629 0 158 if (my(@e) = $string =~ /L\[(\w+)\]/gsu)
6709 1 0 if ($s =~ /$comment-begin\s*\n(.*?)$comment-end/isu)
6759 368 0 $sourceIsString ? :
6761 0 368 if ($source =~ /our\s+\$VERSION\s*=\s*(\S+)\s*;/su)
6763 0 0 if (my $v = eval $V)
6771 0 368 if ($source =~ /\n=head1\s+Name\s+(?:\w|:)+\s+(.+?)\n/su)
6780 0 368 $version ? :
6795 1472 8096 if (my(@tags) = $line =~ /(?:\s#T((?:\w|:)+))/gu)
6804 368 1104 if ($line =~ /<<(END|'END'|"END")/u)
6808 368 368 if $nextLine =~ /\AEND/u
6812 368 1104 if ($line =~ /\A(\s*)if\s*\x28(\d+)\x29/u)
6818 368 736 if ($N >= $minimumNumberOfLines and $nextLine =~ /\A$S }/u) { }
6826 0 736 unless $N < $M
6829 368 0 if (@testLines > 1)
6830 0 368 if ($testLines[0] =~ /\A\s*if\s*\x{28}\d\x{29}\s*{/iu)
6840 0 4784 if $t =~ /\AupdateDocumentation\Z/su
6851 368 9200 if ($line =~ /\Asub\s+((\w|:)+).*#(\w*)[rR]/u)
6857 368 736 if $nextLine =~ /\A }/u
6859 0 736 unless $N < $M
6872 0 9568 if ($line =~ /genHash\s*\x28\s*(q\x28.+\x29|__PACKAGE__).+?# (.+)\Z/u)
6878 0 0 if ($nextLine =~ /\A\s+(\w+)\s*=>\s*.+?#(\w*)\s+(.*)\Z/u)
6881 0 0 if (my $invalidFlags = $flags =~ s/[I]//grsu)
6885 0 0 if $nextLine =~ /\A\s*\);/u
6886 0 0 unless $N < $M
6895 0 9568 if ($line =~ /\Amy \$documentationSynopsis = <
6898 0 0 if $nextLine =~ /\AEND\Z/u
6910 2576 4048 if ($L->[$i] =~ /\b$m\b/u)
6919 368 9200 if ($line =~ /\ABEGIN\{\*(\w+)=\*(\w+)\}/u)
6923 0 368 if $synonymTarget{$target} and $synonymTarget{$target} ne $source
6929 368 0 unless ($perlModule =~ /\A(Text.pm|Doc.pm)\Z/su)
6931 0 368 if $@
6938 368 9200 if ($line =~ /\A#D(\d)\s+(.*?)\s*(#\s*(.+)\s*)?\Z/u) { }
0 9200 elsif ($line =~ /\A#C(?:ollaborators)?\s+(\S+)\s+(.+?)\s*\Z/u) { }
0 9200 elsif ($line =~ /\A#I(?:nstall(?:ation)?)?\s+(.+)\Z/u) { }
0 9200 elsif ($line =~ /\A#D(off)?/u) { }
0 9200 elsif ($level and $line =~ /\Asub\s*(\w+)\s*{.*}\s*#(\w*)\s+(.*)\Z/u) { }
736 8464 elsif ($level and $line =~ /\Asub\b\s*(.*?)?(\s*:lvalue)?\s*#(\w*)\s+(.+?)\s*\Z/u) { }
0 9200 elsif ($level and $line =~ /\A\s*genLValue(?:\w+?)Methods\s*\x28q(?:w|q)?\x28(\w+)\x29\x29;\s*#\s*(.+?)\s*\Z/u) { }
6941 368 0 if $level
6942 368 0 if $level and $4
6965 0 736 if ($comment =~ /\A(.*)Example:(.+?)\Z/isu)
6970 0 736 unless ($comment =~ /\.\s*\Z/isu)
6989 0 368 if $private and $replace || $Replace
6991 0 368 if $static and $replace || $Replace
6993 0 0 if $exported and $replace || $Replace
6995 0 736 if $exported and $static
6998 0 736 if $methodX
6999 368 368 if $private
7000 0 736 if $replace
7001 368 368 if $Replace
7002 368 368 if $static
7003 0 736 if $isUseful
7004 0 736 if $exported
7005 0 736 if $unitary
7012 0 9568 if $@
7013 5520 4048 unless $v
7017 0 736 if $userFlags
7022 736 0 if ($signature)
7035 0 736 unless @parameters == $signatureLength
7044 0 736 unless $p == $l
7072 0 736 if $methodX
7073 0 736 if $methodX
7074 0 736 if (my $u = $userFlags{$name})
7081 368 368 $private ? :
7087 736 0 if $parmNames and $parmDescriptions and not $parmDescriptions =~ /\A#/u
7092 0 736 if $userFlags{$name}[0]
7094 0 736 if $example
7097 0 736 if $produces
7100 368 368 if (my $examples = $examples{$name})
7101 368 0 if (my(@examples) = @$examples)
7106 0 736 if $replace
7118 368 368 if $Replace
7126 0 736 if $methodX
7130 368 368 if $static
7134 0 736 if $exported
7138 368 368 if (my $s = $synonymTargetSource{$name})
7139 368 0 if (keys %$s)
7146 368 368 $private ? :
7153 0 0 if $description =~ /\A#/u
7161 0 368 if (&isSubInPackage($package, 'processModuleDescription'))
7166 0 0 if $@
7178 0 368 if (keys %genHashs)
7188 0 0 $flags =~ /I/su ? :
7190 0 0 if ($title{$attribute}) { }
7201 0 0 if (@i)
7205 0 0 if (@o)
7211 0 368 if (my(@a) = sort(keys %attributes))
7230 0 368 if (my(@r) = sort(keys %replace))
7253 0 368 if $n
7256 0 368 if (keys %isUseful)
7269 0 0 $s ? :
7278 368 0 if @private
7280 368 0 if (keys %synonymTarget)
7299 736 0 if ($c and $t)
7306 0 368 if (keys %exported)
7351 0 368 if (keys %collaborators)
7366 0 368 if (keys %methodX)
7375 736 0 if (my $doc = $userFlags{$name})
7376 0 736 if $doc->[1]
7398 0 368 if (@synopsis)
7416 0 368 unless ($sourceIsString)
7417 0 0 if (@synopsis)
7423 0 0 if ($source ne $Source)
7440 0 0 if $@
7446 0 0 unless -e $perlModule
20270 0 371 if eval "eof(${p}::DATA)"
20272 0 371 if $@
20274 0 1 if $@