| blib/lib/DBIx/Class/Relationship/CascadeActions.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 12 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 117 | unless ref $self |
| 25 | 80 | 37 | if (@cascade) |
| 31 | 265 | 9 | if (my $rel_rs = eval { do { $self->search_related($rel) } }) { } |
| 48 | 0 | 818 | unless ref $self |
| 55 | 90 | 728 | if (@cascade) |
| 66 | 198 | 1 | if $rels{$rel}{'attrs'}{'accessor'} and $rels{$rel}{'attrs'}{'accessor'} eq 'single' and not exists $self->{'_relationship_data'}{$rel} |