| line |
true |
false |
branch |
|
20
|
1 |
4 |
unless ($$self{'_file'} = shift()) |
|
21
|
1 |
0 |
if (exists $ENV{'MH'}) |
|
22
|
0 |
1 |
'File::Spec'->file_name_is_absolute($ENV{'MH'}) ? : |
|
27
|
1 |
4 |
unless ('File::Spec'->file_name_is_absolute($$self{'_file'}) or $$self{'_file'} =~ /^\Q$curdir\E/) |
|
31
|
0 |
1 |
'File::Spec'->file_name_is_absolute($path) ? : |
|
36
|
4 |
1 |
if (-e $$self{'_file'}) { } |
|
37
|
4 |
0 |
if (open my $profile, $$self{'_file'}) { } |
|
40
|
0 |
6 |
unless defined $_ |
|
73
|
2 |
0 |
if (open my $profile, '>', $$self{'_file'}) { } |
|
75
|
2 |
0 |
if CORE::close $profile |
|
89
|
5 |
0 |
unless $$self{'_modified'} |