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] } ]
}
for (@$method_stack) {
push @$nonsugar_methods, $_ and next
- unless $_->{attributes}{DBIC_method_is_indirect_sugar};
+ unless(
+ $_->{attributes}{DBIC_method_is_indirect_sugar}
+ or
+ $_->{attributes}{DBIC_method_is_generated_from_resultsource_metadata}
+ );
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,