blib/lib/DBIx/Class/AuditAny/Role/Storage.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 11 | 20 | 55.0 |
line | l | !l | condition |
---|---|---|---|
543 | 26 | 0 | ref $_ and die q[Complex conditions aren't supported yet] |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
255 | 7 | 0 | 11 | not defined $rows and defined $cond |
375 | 0 | 13 | 0 | exists $d->{'foreign'} and exists $d->{'self'} |
line | l | !l | condition |
---|---|---|---|
244 | 11 | 7 | $cnf->{'args'} || [] |
247 | 7 | 11 | $cnf->{'nested'} || 0 |
516 | 11 | 0 | ref $rels->{$rel}{'cond'} || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
245 | 0 | 0 | 18 | $cnf->{'want'} || wantarray |
507 | 0 | 0 | 18 | $self->_source_cascade_rekey_cols->{$Source->source_name} ||= do { my $rels = {map({$_, $Source->relationship_info($_);} $Source->relationships)}; my $cascade_cols = {}; foreach my $rel (keys %$rels) { next unless $rels->{$rel}{'attrs'}{'accessor'} eq 'multi'; next if (ref $rels->{$rel}{'cond'} || '') eq 'CODE'; my(@cols) = $self->_parse_cond_cols_by_alias($rels->{$rel}{'cond'}, 'self'); push @{$$cascade_cols{$_};}, $rel foreach (@cols); }; return $cascade_cols } |