Help for this page

Select Code to Download

Select or download this

sub PkgContains
{
  my ($package, $sub) = @_;    # Return TRUE if $package contains $sub
...
  return 0 unless defined(%pkg_symtab);
  return defined($pkg_symtab{$sub});
}

Select or download this

sub PkgContains
{
  my ($package, $sub) = @_;    # Return TRUE if $package contains $sub
...
    return 0;
  }
}