describe_class_methods emit_loud_diag
);
use DBIx::Class ();
-use DBIx::Class::Exception ();
use Scalar::Util qw( blessed refaddr );
use namespace::clean;
. "chain of calls within the convenience shortcut as seen when running:\n "
. '~$ perl -M%2$s -MDevel::Dwarn -e "Ddie { %3$s => %2$s->can(q(%3$s)) }"',
join (', ', map { "$_()" } sort @{ $_->{by} } ),
- $_->{overriden}{via_class},
- $_->{overriden}{name},
+ $_->{overridden}{via_class},
+ $_->{overridden}{name},
)} @{ $_[1] } ]
}
unless $_->{attributes}{DBIC_method_is_indirect_sugar};
push @err, {
- overriden => {
+ overridden => {
name => $_->{name},
via_class => (
# this way we report a much better Dwarn oneliner in the error
push @err, {
class => $class,
- isa => $desc->{isa},
+ initial_linear_isa => $desc->{linear_isa},
+ current_linear_isa => do { (undef, my @isa) = @{ mro::get_linear_isa($class) }; \@isa },
initial_mro => $desc->{mro}{type},
current_mro => mro::get_mro($class),
affected_methods => $affected_methods,