| line |
true |
false |
branch |
|
12
|
0 |
7 |
unless my(@oses) = @ARGV |
|
17
|
6 |
1 |
if ($oses[0] eq "-q") |
|
22
|
1 |
6 |
if ($oses[0] eq "-l") |
|
28
|
4 |
2 |
unless (-e "MANIFEST") |
|
29
|
0 |
4 |
unless open MANIFEST, ">>MANIFEST" |
|
33
|
3 |
3 |
unless (@files) |
|
34
|
0 |
3 |
unless open MANIFEST, ">>MANIFEST" |
|
39
|
3 |
3 |
unless @files |
|
46
|
0 |
12 |
if (join(":", map({$_, $oldinc{$_};} sort(keys %oldinc))) eq join(":", map({$_, $INC{$_};} sort(keys %INC)))) |
|
57
|
75 |
426 |
if /\bDevel\b/i and /\b(Check|Assert)OS\b/i |
|
67
|
0 |
6 |
if $verbose |
|
69
|
0 |
6 |
unless open MANIFEST, ">>MANIFEST" |
|
74
|
69 |
69 |
if (-e "File::Spec"->catfile($_, $modulefile)) |
|
79
|
0 |
69 |
unless -e $fullfilename |
|
87
|
0 |
69 |
unless open PM, $fullfilename |
|
91
|
0 |
69 |
unless open PM, '>' . "File::Spec"->catfile(@dircomponents, $file) |
|
94
|
0 |
69 |
if $verbose |
|
100
|
0 |
6 |
if $verbose |
|
101
|
0 |
6 |
if $verbose |
|
105
|
4 |
3 |
if (open FILE, $file) |
|
106
|
0 |
7 |
unless open FILE, ">$file" |
|
111
|
1 |
13 |
if (exists $Devel::CheckOS::OS_ALIASES{$_}) { } |
|
118
|
0 |
7 |
if $verbose |