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}[^>]*>([^<]*)$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 $@ |