| line |
true |
false |
branch |
|
25
|
0 |
0 |
unless $DEBUG |
|
45
|
1 |
2 |
if $args{'__password'} |
|
56
|
104 |
555 |
if ($key =~ /(__password|__hide|__scaffolding|__cipher)$/) { } |
|
|
491 |
64 |
elsif ($key =~ /^(_{1}[^_][^:]*)$/ or $key =~ /.*?::(_{1}[^_][^:]*)/) { } |
|
|
64 |
0 |
elsif ($key =~ /([^:]*)$/ or $key =~ /.*?::([^:]*)/) { } |
|
58
|
26 |
0 |
unless $caller eq $class |
|
|
26 |
78 |
unless ($value or $delete) |
|
59
|
4 |
74 |
if ($delete and $key =~ /__password/) |
|
61
|
1 |
0 |
if (ref $$self{$_}) |
|
67
|
5 |
73 |
if $delete |
|
68
|
73 |
5 |
if $value |
|
73
|
144 |
347 |
if (ref $ctext and not $value) |
|
75
|
0 |
144 |
unless $pass |
|
81
|
0 |
347 |
if not $auth and ref $$self{$1} |
|
82
|
6 |
341 |
if not $auth and $$self{'__hide'} |
|
83
|
161 |
180 |
if ($auth and $auth ne '1') |
|
84
|
62 |
279 |
if ($value and $auth) { } |
|
|
4 |
275 |
elsif ($auth and $delete) { } |
|
|
43 |
232 |
elsif ($isnot and not $value) { } |
|
|
83 |
149 |
elsif (not $auth and $ctext) { } |
|
|
149 |
0 |
elsif ($auth and not $isnot) { } |
|
85
|
39 |
23 |
if (ref $value) { } |
|
89
|
1 |
22 |
unless ($$self{'__password'}) |
|
90
|
1 |
0 |
if ($value =~ /^\S+\s\S{22}\s/) { } |
|
105
|
132 |
17 |
if (ref $ptext) |
|
111
|
0 |
21 |
unless $auth |
|
115
|
20 |
44 |
if $value |
|
116
|
4 |
60 |
if $delete |
|
117
|
48 |
16 |
if $$self{$1} |
|
124
|
145 |
22 |
if ref $_[0] |
|
130
|
7 |
251 |
unless $_[1] |
|
134
|
165 |
86 |
if ($d eq $check) |
|
135
|
132 |
33 |
if ($ptext =~ /^REF (.*)/is) |
|
146
|
16 |
355 |
unless $key =~ /^_/ |
|
147
|
97 |
258 |
unless exists $$self{$key} |
|
148
|
0 |
258 |
if ref $$self{$key} and $$self{'__scaffolding'}{$key} ne $$self{'__password'} |
|
151
|
165 |
93 |
if $ptext |
|
163
|
6 |
6 |
if $_[1] |
|
172
|
324 |
37 |
if $entry |
|
179
|
155 |
0 |
if $entry |
|
192
|
4 |
4 |
if grep {not $self->verify($_);} grep({not /__/;} CORE::keys %{$self;}) |
|
200
|
16 |
24 |
_access($self, $key, @context) ? : |
|
215
|
64 |
26 |
if eval {
do {
_access($self, $key, @context)
}
} |