Branch Coverage

blib/lib/Perl/ToPerl6/UserProfile.pm
Criterion Covered Total %
branch 18 32 56.2


line true false branch
37 105 25 defined $args{-'profile'} ? :
157 1 129 unless ($loader)
183 25 90 unless defined $file
184 3 87 if $file eq $Perl::ToPerl6::UserProfile::EMPTY
185 84 3 if $file eq 'NONE'
190 1 2 unless (defined $profile)
209 0 1 unless (defined $profile)
224 2 3 unless (defined $profile)
248 1 0 if exists $ENV{'PERLMOGRIFY'}
251 0 0 if -f $rc_file
254 0 0 if (my $home_dir = _find_home_dir())
256 0 0 if -f $path
268 0 0 if (eval { do { require File::HomeDir } })
274 0 0 unless defined $ENV{$key}
275 0 0 if -d $ENV{$key}
290 3 3 if ($defaults)