| blib/lib/Class/C3/Adopt/NEXT.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 20 | 95.0 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 6 | 20 | unless (exists $c3_mro_ok{$class}) |
| 38 | 1 | 5 | if (my $error = $@) { } |
| 48 | 22 | 4 | if (length $c3_mro_ok{$class} and $c3_mro_ok{$class}) |
| 49 | 12 | 10 | unless ($warned_for{$caller}) |
| 51 | 9 | 3 | if (not @no_warn_regexes or none sub { $caller =~ /$_/; } , @no_warn_regexes) |
| 58 | 4 | 22 | unless ($c3_mro_ok{$class}) |
| 63 | 3 | 19 | if $wanted_class =~ /^NEXT:.*:ACTUAL/ |
| 75 | 1 | 0 | if $arg eq '-no_warn' |
| 82 | 1 | 3 | unless not ref $_ |
| 83 | 1 | 3 | if ref $_ |