view release on metacpan or  search on metacpan

lib/Venus/Space.pm  view on Meta::CPAN

  my ($self) = @_;

  return $self if $self->unloaded;

  my $package = $self->package;

  no strict 'refs';

  my $skip = qr/\A(
    AUTOLOAD|BEGIN|CHECK|DESTROY|END|EXPORT|EXPORT_OK|EXPORT_TAGS|
    IMPORT|INIT|ISA|UNITCHECK|VERSION|
    import|unimport|
    [^:]+::
  )\z/x;

  for my $name (grep !/$skip/, keys %{"${package}::"}) {
    undef *{"${package}::${name}"};
  }

  delete $INC{$self->format('path', '%s.pm')};