| line |
true |
false |
branch |
|
130
|
1 |
15 |
if @_ |
|
197
|
2 |
13 |
$is_hash ? : |
|
200
|
1 |
15 |
if (exists $$self{$acc}) |
|
211
|
2 |
13 |
if $is_hash |
|
241
|
0 |
3 |
unless my $key = shift() |
|
244
|
3 |
0 |
exists $$self{$key}[1] ? : |
|
272
|
0 |
1 |
if (exists $$self{$alias}) |
|
304
|
0 |
7 |
$allow ? : |
|
307
|
1 |
6 |
if (my $org = $$self{$acc}[2]) |
|
313
|
0 |
7 |
if %hash |
|
314
|
6 |
1 |
if @list |
|
354
|
1 |
1 |
unless (allow($self->$name, $self->ls_allow($name))) |
|
355
|
0 |
1 |
defined $self->$name ? : |
|
362
|
1 |
1 |
if $fail |
|
399
|
0 |
1 |
unless my $sub = shift() |
|
434
|
1 |
25 |
if ($code) |
|
435
|
0 |
1 |
if $Object::Accessor::DEBUG |
|
440
|
9 |
16 |
if (UNIVERSAL::isa($self, 'HASH') and exists $$self{$method}) |
|
441
|
0 |
9 |
if $Object::Accessor::DEBUG |
|
446
|
0 |
16 |
if $Object::Accessor::DEBUG |
|
459
|
3 |
43 |
unless my $val = $self->___autoload($method, @_) |
|
470
|
58 |
1 |
if (UNIVERSAL::isa($self, 'HASH')) { } |
|
471
|
3 |
55 |
unless (exists $$self{$method}) |
|
486
|
6 |
49 |
if (my $original = $$self{$method}[2]) |
|
491
|
15 |
34 |
$assign ? : |
|
493
|
15 |
34 |
if ($assign) |
|
496
|
1 |
14 |
if ($_[0]) |
|
497
|
1 |
0 |
if (ref $_[0] and UNIVERSAL::isa($_[0], 'SCALAR')) { } |
|
517
|
2 |
13 |
if (defined $$self{$method}[1]) |
|
523
|
1 |
1 |
unless allow($val, $$self{$method}[1]) |
|
532
|
3 |
45 |
if (my $sub = $self->___callback) |
|
533
|
1 |
2 |
$assign ? : |
|
536
|
0 |
3 |
if $@ |
|
540
|
14 |
34 |
if ($assign) |
|
541
|
0 |
14 |
unless $self->___set($method, $val) |
|
561
|
0 |
38 |
unless my $method = shift() |
|
577
|
0 |
15 |
unless my $method = shift() |
|
580
|
0 |
15 |
unless @_ |
|
602
|
0 |
2 |
unless my $alias = shift() |
|
603
|
0 |
2 |
unless my $method = shift() |
|
611
|
16 |
0 |
unless $Object::Accessor::DEBUG |
|
626
|
2 |
6 |
$Object::Accessor::FATAL ? : |
|
636
|
0 |
63 |
overload::Overloaded($self) ? : |
|
640
|
3 |
60 |
if $sub |
|
710
|
0 |
5 |
unless $self->___autoload($method, @_) |
|
724
|
1 |
3 |
if $is_hash |