App-PerlbrewUtils

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.04    2016-06-02 (PERLANCAR)

        - Add option: --exclude-dev.

        - Add utility: clean-site-lib.


0.03    2016-03-17 (PERLANCAR)

        - list-more: Add columns threads, multiplicity, longdouble, is_current.

        - module-version: Add column has_module.

        - [doc] Add description to each command.


0.02    2016-03-17 (PERLANCAR)

	- Add common filtering options: --include, --exclude,
	  --include-version, --exclude-version, --min-version,

bin/__perlbrewutils-probe  view on Meta::CPAN

    if (@ARGV) {
        $lmres = list_modules(
            '', {list_modules=>1, recurse=>1, return_path=>1, find_pm=>$ARGV[0]});
    } else {
        $lmres = list_modules(
            '', {list_modules=>1, recurse=>1});
    }
    my $res = {
        modules => $lmres,
        usethreads => $Config{usethreads},
        uselongdouble => $Config{uselongdouble},
        usemultiplicity => $Config{usemultiplicity}
    };
    print Dumper($res);
}

1;
# ABSTRACT: Prober script
# PODNAME: __perlbrewutils-probe

bin/perlbrew-list-more  view on Meta::CPAN

    my $pb = App::perlbrew->new;
    my @perls = $pb->installed_perls;

    my @res;
    my %resmeta = ('table.fields' => [
        qw/
              name
              is_current
              version
              threads multiplicity longdouble
              num_modules num_core_modules num_noncore_modules
          /]);
    for my $perl (@perls) {
        next unless App::PerlbrewUtils::_filter_perl($perl, \%args);

        my $info_str = `$perl->{executable} $probe_path`;
        my $info = eval $info_str;
        next if $@;

        my %core_modules = Module::CoreList::More->list_core_modules(

bin/perlbrew-list-more  view on Meta::CPAN

                $num_noncore_modules++;
            }
        }

        push @res, {
            name        => $perl->{name},

            is_current  => $perl->{is_current} ? 1:'',
            version     => $perl->{version},

            threads => $info->{usethreads},
            multiplicity => $info->{usemultiplicity},
            longdouble => $info->{uselongdouble},

            num_modules => scalar(keys %{$info->{modules}}),
            num_core_modules    => $num_core_modules,
            num_noncore_modules => $num_noncore_modules,
        };
    }
    [200, "OK", \@res, \%resmeta];
}