Branch Coverage

blib/lib/App/PerlShell/Config.pm
Criterion Covered Total %
branch 31 50 62.0


line true false branch
23 0 1 if (@_ % 2 == 1) { }
36 10 1 if (defined $key) { }
37 7 3 if (exists $self->{$key}) { }
40 2 5 if (defined $value) { }
42 0 2 if ($value eq '') { }
47 2 0 defined $prev ? :
51 0 5 unless (defined $retType)
53 0 0 defined $self->{$key} ? :
58 0 3 unless (defined $retType)
66 0 1 if (not defined $retType) { }
0 1 elsif ($retType) { }
69 0 0 defined $self->{$_} ? :
85 4 1 if (defined $key) { }
86 2 2 if (not exists $self->{$key}) { }
87 1 1 if (defined $value) { }
94 1 1 unless (defined $retType)
109 3 1 if (defined $key) { }
110 1 2 if (exists $self->{$key}) { }
114 1 1 unless (defined $retType)
128 2 1 if (defined $key) { }
129 1 1 if (exists $self->{$key})
142 0 0 if ($^O eq 'MSWin32' and not defined $home_dir)
147 0 0 if (-e $config_file) { }
0 0 elsif (-e $home_dir . '/' . $config_file) { }
0 0 elsif (defined $dir and -e $dir . '/' . $config_file) { }