my $sub =
   @{ get_array_by_name($pkg, 'ISA') }
      ? get_sub_by_name($pkg, $name)
      : $pkg->can($name);

##</code><code>##

my $sub = get_sub_by_name($pkg, $name);