view release on metacpan or  search on metacpan

bin/perlbrewise-spec  view on Meta::CPAN

        delete $ENV{$var};
      }
    }
    if ($env{PERL5LIB}) {
      say STDERR join " = ", 'PERL5LIB', $env{'PERL5LIB'} if DEBUG;
      eval "no lib split ':', q[$env{PERL5LIB}];";
      warn $@ if $@; ## uncoverable branch true
      if ($self->unload) {
        my $path_re = qr{\Q$env{PERL5LIB}\E};
        for my $module_path(keys %INC) {
          ## autosplit modules
          next if $module_path =~ m{\.(al|ix)$} && delete $INC{$module_path};
          ## global destruction ?
          next if not defined $INC{$module_path};
          ## FatPacked ?
          next if ref($INC{$module_path});
          ## Not part of this PERL5LIB
          next if $INC{$module_path} !~ m{^$path_re};
          ## translate to class_path
          (my $class = $module_path) =~ s{/}{::}g;
          $class =~ s/\.pm//;

lib/Devel/IPerl/Plugin/Perlbrew.pm  view on Meta::CPAN

      delete $ENV{$var};
    }
  }
  if ($env{PERL5LIB}) {
    say STDERR join " = ", 'PERL5LIB', $env{'PERL5LIB'} if DEBUG;
    eval "no lib split ':', q[$env{PERL5LIB}];";
    warn $@ if $@; ## uncoverable branch true
    if ($self->unload) {
      my $path_re = qr{\Q$env{PERL5LIB}\E};
      for my $module_path(keys %INC) {
        ## autosplit modules
        next if $module_path =~ m{\.(al|ix)$} && delete $INC{$module_path};
        ## global destruction ?
        next if not defined $INC{$module_path};
        ## FatPacked ?
        next if ref($INC{$module_path});
        ## Not part of this PERL5LIB
        next if $INC{$module_path} !~ m{^$path_re};
        ## translate to class_path
        (my $class = $module_path) =~ s{/}{::}g;
        $class =~ s/\.pm//;