Branch Coverage

lib/User/Information/Base.pm
Criterion Covered Total %
branch 0 122 0.0


line true false branch
47 0 0 unless defined $v
48 0 0 unless eval { do { $v->isa($_types{$key}) } }
50 0 0 unless $self->{$key} == $v
51 0 0 if $weak
54 0 0 if scalar keys %opts
70 0 0 unless (eval { do { $key->isa("User::Information::Path") } })
75 0 0 if scalar keys %opts
79 0 0 unless (defined $values)
81 0 0 if (defined $info)
84 0 0 unless ($self->{'loaded'}{$loadpath})
87 0 0 if (defined $info->{'loader'})
89 0 0 if (defined $values)
94 0 0 if ref $info->{'values'} eq "ARRAY"
95 0 0 if ref $info->{'values'} eq "HASH"
102 0 0 unless (defined $values)
103 0 0 if ($o_has_default) { }
104 0 0 if ($o_list) { }
114 0 0 unless (defined $o_as)
117 0 0 if defined $info
123 0 0 if (defined $v->{$o_as}) { }
130 0 0 if (defined $v->{'raw'} and defined $info->{'rawtype'} and $info->{'rawtype'} eq $o_as)
134 0 0 if (not defined $converted and $o_as eq "raw" and defined $info->{'rawtype'} and defined $$v{$info->{'rawtype'}})
138 0 0 if (not defined $converted and defined $info->{'converter'})
142 0 0 if (defined $converted) { }
151 0 0 if $o_list
152 0 0 if (scalar @res != 1)
165 0 0 if scalar keys %opts
167 0 0 if defined $self->{'node'}
168 0 0 if $self->_is_local
169 0 0 if $o_has_default
176 0 0 unless $opts{'no_defaults'}
189 0 0 if scalar keys %opts
192 0 0 if (defined $o_extra)
193 0 0 ref $o_extra ? :
194 0 0 $o_directory ? :
197 0 0 if (defined $o_open)
200 0 0 unless $o_open =~ /^[abrw]+$/u
202 0 0 if ($o_open =~ /w/u) { }
0 0 elsif ($o_open =~ /a/u) { }
210 0 0 if $o_open =~ /b/u
212 0 0 if ($o_directory) { }
213 0 0 if (opendir my $fh, $filename)
217 0 0 if (open my $fh, $mode, $filename)
218 0 0 if $o_binmode
224 0 0 if -e $filename
238 0 0 if scalar keys %opts
241 0 0 if ($type eq 'from') { }
0 0 elsif ($type eq 'sysuid') { }
0 0 elsif ($type eq 'sysgid') { }
242 0 0 if ($request eq 'User::Information'->SPECIAL_ME) { }
0 0 elsif ($request eq 'User::Information'->SPECIAL_CGI) { }
0 0 elsif ('User::Information'->SPECIAL_LOCAL_NODE->eq($request)) { }
245 0 0 if $self->_is_sysapi("posix")
258 0 0 if $self->_is_sysapi("posix")
261 0 0 if $self->_is_sysapi("posix")
263 0 0 if (not $self->{'sources'}{'User::Information::Source::XDG'} and $self->_is_local and defined(my $username = $self->get(["aggregate", "username"], "default", undef)))
266 0 0 if ($self->_is_local)
272 0 0 unless scalar grep({not $_aux_sources{$_};} keys %{$$self{"sources"};})
314 0 0 unless scalar @values
324 0 0 if scalar keys %opts
326 0 0 if $class eq "paths"