Help for this page

Select Code to Download


  1. or download this
    my $sub =
   @{ get_array_by_name($pkg, 'ISA') }
      ? get_sub_by_name($pkg, $name)
      : $pkg->can($name);
  2. or download this
    my $sub = get_sub_by_name($pkg, $name);