| blib/lib/Class/C3/Adopt/NEXT.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 20 | 95.0 |
| line | true | false | branch |
|---|---|---|---|
| 181 | 6 | 20 | unless (exists $c3_mro_ok{$class}) |
| 183 | 1 | 5 | if (my $error = $@) { } |
| 193 | 22 | 4 | if (length $c3_mro_ok{$class} and $c3_mro_ok{$class}) |
| 194 | 12 | 10 | unless ($warned_for{$caller}) |
| 196 | 9 | 3 | if (not @no_warn_regexes or &List::Util::none(sub { $caller =~ /$_/; } , @no_warn_regexes)) |
| 203 | 4 | 22 | unless ($c3_mro_ok{$class}) |
| 208 | 3 | 19 | if $wanted_class =~ /^NEXT:.*:ACTUAL/ |
| 220 | 1 | 0 | if $arg eq '-no_warn' |
| 227 | 1 | 3 | unless not ref $_ |
| 228 | 1 | 3 | if ref $_ |