line |
true |
false |
branch |
181
|
0 |
9 |
if ($^O eq 'MSWin32') { } |
186
|
0 |
0 |
if -d $realhome |
188
|
0 |
0 |
if -d $realhome |
193
|
9 |
0 |
if -d $realhome |
257
|
2 |
4 |
if $_[0] |
258
|
2 |
4 |
if (defined $pseudohome) |
259
|
1 |
1 |
unless -d $pseudohome |
261
|
1 |
4 |
defined $pseudohome ? : |
267
|
1 |
4 |
if (-d $dirname) { } |
296
|
3 |
0 |
unless (-d $dirname) |
297
|
0 |
3 |
unless mkpath($dirname) |
316
|
0 |
3 |
unless -d $home |
320
|
3 |
0 |
if (not defined $desired_dir_ref->{'flag'}) { } |
325
|
5 |
1 |
if (not -l $_ and -d _) { } |
326
|
0 |
5 |
unless rmdir $_ |
328
|
0 |
1 |
unless unlink $_ |
332
|
3 |
0 |
!(-d $desired_dir) ? : |
370
|
2 |
1 |
if $_[0] |
371
|
2 |
1 |
if (defined $pseudohome) |
372
|
1 |
1 |
unless -d $pseudohome |
374
|
1 |
1 |
defined $pseudohome ? : |
378
|
2 |
0 |
$tdir ? : |
444
|
1 |
1 |
if (-f $targ{'full'}) { } |
448
|
0 |
1 |
unless rename $targ{'full'}, $targ{'hidden'} |
449
|
1 |
0 |
if ($test_flag) |
454
|
1 |
0 |
if ($test_flag) |
479
|
1 |
1 |
if (-f $target_ref->{'hidden'}) { } |
481
|
0 |
1 |
unless rename $target_ref->{'hidden'}, $target_ref->{'full'} |
482
|
1 |
0 |
if ($target_ref->{'test'}) |
493
|
1 |
0 |
if ($target_ref->{'test'}) |