| line |
true |
false |
branch |
|
41
|
1 |
96 |
if ($prefix eq '_') { } |
|
|
5 |
91 |
elsif ($attrib =~ /^_/ and not $prefix) { } |
|
62
|
8 |
89 |
if (my $get_attributes = $self->can('ATTRIBUTES')) |
|
67
|
1 |
7 |
unless first sub {
$_ eq $attrib;
}
, @attributes |
|
70
|
0 |
96 |
if (my $get_private = $pkg->can('PRIVATIZE')) |
|
73
|
0 |
0 |
if (first sub {
$_ eq $attrib;
}
, @privates and _my_caller() ne $pkg) |
|
84
|
28 |
68 |
if ($prefix eq 'set') { } |
|
|
25 |
43 |
elsif ($prefix eq 'get') { } |
|
|
1 |
42 |
elsif ($prefix eq 'clear') { } |
|
|
1 |
41 |
elsif ($prefix eq 'raise') { } |
|
|
13 |
28 |
elsif ($prefix eq 'readonly') { } |
|
|
5 |
23 |
elsif (not $prefix and $attrib =~ /^_/) { } |
|
92
|
2 |
52 |
if $READONLY{$ref}{$store_as} |
|
173
|
0 |
5 |
if (my $method = $pkg->can($attrib)) |
|
182
|
2 |
6 |
unless $pkg->isa(_my_caller()) |
|
185
|
3 |
3 |
if (scalar @_) { } |
|
188
|
0 |
3 |
if $READONLY{$ref}{$store_as} |
|
206
|
9 |
64 |
scalar @_ ? : |
|
225
|
20 |
0 |
if exists $STORAGE{$ref} |
|
226
|
18 |
2 |
if exists $READONLY{$ref} |
|
243
|
39 |
0 |
unless exists $STORAGE{$ref}{$storage} |
|
247
|
37 |
20 |
if $c eq 'Class::Simple' |
|
248
|
0 |
20 |
if $STORAGE{$ref}{$storage}{$c}++ |
|
251
|
7 |
13 |
if (my $in = $c->can($func)) |
|
256
|
11 |
28 |
if $self->can($func) |
|
330
|
1 |
19 |
if exists ${$classy;}{'NONEW'} |
|
364
|
6 |
1 |
unless $PRIVATE{$private_class}{$method} |
|
365
|
1 |
0 |
unless $private_class->isa($class) |
|
373
|
1 |
7 |
if $class ne $called_by |
|
394
|
0 |
1 |
unless $class->isa(_my_caller()) |
|
405
|
0 |
5 |
unless $class->isa(_my_caller()) |
|
409
|
1 |
4 |
if $READONLY{$ref}{$store_as} |
|
418
|
3 |
3 |
unless $class->isa(_my_caller()) |
|
421
|
2 |
1 |
scalar @_ ? : |
|
439
|
28 |
32 |
unless $c eq 'Class::Simple' |
|
508
|
0 |
3 |
unless eval 'require Storable; 1' |
|
527
|
0 |
3 |
unless eval 'require Storable; 1' |