foreach (keys %{"${pkg}::"}) {
  my $glob = $::{$_};
    
  $glob =~ s/^\*${pkg}:://;

  next unless defined &{"*${pkg}::$glob"};
  push @subs, $glob;
}