| line |
true |
false |
branch |
|
410
|
2 |
5 |
if $self->has_cleanup_method |
|
414
|
3 |
0 |
$self ? : |
|
416
|
0 |
10 |
unless $attribute |
|
417
|
6 |
4 |
if $attribute->transistent |
|
418
|
1 |
9 |
if ($attribute->the_other_end) |
|
424
|
2 |
1 |
if $has_transistent |
|
438
|
2 |
1 |
if $self->has_destory_method |
|
469
|
1 |
1 |
$self->storage_type eq 'Array' ? : |
|
491
|
6 |
75 |
if ($@) |
|
492
|
0 |
6 |
unless $self->can($mutator) |
|
498
|
26 |
49 |
if $self eq $meta |
|
501
|
25 |
38 |
unless ($attribute->get_value($self)) |
|
502
|
0 |
25 |
unless my $can = $self->can($attribute->mutator) |
|
508
|
1 |
43 |
if $initialise |
|
526
|
0 |
139 |
unless (shift())->{'@.attributes'} |
|
640
|
1 |
82 |
if (my(@super_classes) = $self->super_classes) |
|
643
|
0 |
1 |
unless my $meta_class = meta_class($super) |
|
663
|
25 |
3 |
@result ? : |
|
710
|
26 |
42 |
unless $meta{$class} |
|
751
|
7 |
49 |
if $attribute->transistent or $attribute->index_by |
|
753
|
3 |
53 |
if $attribute->transistent |
|
768
|
58 |
1 |
if ref $param |
|
771
|
0 |
1 |
unless $type =~ /Array|Hash/ |
|
841
|
11 |
47 |
if ($perl_type eq 'Array') |
|
846
|
11 |
47 |
if (my $item_accessor = $attribute->item_accessor) |
|
850
|
6 |
52 |
if ($perl_type eq 'Array' || $perl_type eq 'Hash' and $attribute->associated_class) |
|
855
|
14 |
44 |
if ($attribute->associated_class) |
|
871
|
5 |
252 |
if $remove_existing_method |
|
901
|
72 |
35 |
unless $_->required |