Devel-IPerl-Plugin-EnvironmentModules

 view release on metacpan or  search on metacpan

README.pod  view on Meta::CPAN

}

sub list  {
  my @args = (MODULECMD, qw{perl list});
  my ($stderr, @result) = Capture::Tiny::capture_stderr { system { $args[0] } @args };
  return $stderr;
}

sub list_array {
  my $self  = shift;
  my @lines = split m{\n}, $self->list || '';
  return [
    grep { length }
    map  { split m{(?:\s*\d+\)\s)} } @lines[1.. $#lines]
    ];
}

sub new   { bless {}, ref($_[0]) || $_[0]; }

sub register {
    my ($class, $iperl) = @_;
    my $self = $class->new;
    for my $name(qw{avail load unload list list_array search show}) {
      $iperl->helper("module_$name" => sub {

README.pod  view on Meta::CPAN

      });
    }
    return 1;
}

sub search {
  my ($self, $query) = @_;
  my $regex = ref($query) eq 'Regexp' ? $query : qr{\Q$query\E};
  my $hits  =
    join $/ => sort { lc($a) cmp lc($b) }
      grep { m/$regex/ } split m{(?:$/|\s+)}, $self->avail || '';
  return $hits || 'no match';
}

sub show {
  shift;
  my @args = (MODULECMD, qw{perl show}, @_);
  my ($stderr, @result) = Capture::Tiny::capture_stderr { system { $args[0] } @args };
  return $stderr;
}

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

}

sub list  {
  my @args = (MODULECMD, qw{perl list});
  my ($stderr, @result) = Capture::Tiny::capture_stderr { system { $args[0] } @args };
  return $stderr;
}

sub list_array {
  my $self  = shift;
  my @lines = split m{\n}, $self->list || '';
  return [
    grep { length }
    map  { split m{(?:\s*\d+\)\s)} } @lines[1.. $#lines]
    ];
}

sub new   { bless {}, ref($_[0]) || $_[0]; }

sub register {
    my ($class, $iperl) = @_;
    my $self = $class->new;
    for my $name(qw{avail load unload list list_array search show}) {
      $iperl->helper("module_$name" => sub {

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

      });
    }
    return 1;
}

sub search {
  my ($self, $query) = @_;
  my $regex = ref($query) eq 'Regexp' ? $query : qr{\Q$query\E};
  my $hits  =
    join $/ => sort { lc($a) cmp lc($b) }
      grep { m/$regex/ } split m{(?:$/|\s+)}, $self->avail || '';
  return $hits || 'no match';
}

sub show {
  shift;
  my @args = (MODULECMD, qw{perl show}, @_);
  my ($stderr, @result) = Capture::Tiny::capture_stderr { system { $args[0] } @args };
  return $stderr;
}