Select Code to Download

use 5.010;
use mro;          # Make next::can available.
...

  ...;
}

my %known_method;

...
    $known_method{$name} ||= $class;
  }
}

use Devel::Symdump;

...
  grep $_ ne __PACKAGE__,
  @{mro::get_linear_isa($class)}
;