SOOT-App

 view release on metacpan or  search on metacpan

lib/Devel/REPL/Plugin/CompletionDriver/SOOT.pm  view on Meta::CPAN

package Devel::REPL::Plugin::CompletionDriver::SOOT;
use Devel::REPL::Plugin;
use Scalar::Util qw(blessed);
use namespace::clean -except => [ 'meta' ];
use Term::ANSIColor qw(:constants :pushpop);

sub BEFORE_PLUGIN {
    my $self = shift;
    $self->load_plugin('Completion');
}

# returns array ref: [$ok, $show_prototype, $methname, $invocant]

lib/Devel/REPL/Plugin/CompletionDriver/SOOT.pm  view on Meta::CPAN

  return $orig->(@_);
};

1;

__END__

=head1 NAME

Devel::REPL::Plugin::CompletionDriver::SOOT - Complete SOOT method names

=head1 ACKNOWLEDGMENTS

Contains some code adapted from L<Devel::REPL::Plugin::CompletionDriver::LexEnv>
and L<Devel::REPL::Plugin::CompletionDriver::Globals>.

=head1 AUTHOR

Steffen Mueller, C<< <smueller@cpan.org> >>

=cut

lib/Devel/REPL/Plugin/SOOT.pm  view on Meta::CPAN

package Devel::REPL::Plugin::SOOT;
use strict;
use warnings;
use Devel::REPL::Plugin;
use namespace::clean -except => [ 'meta' ];
use Fcntl qw(:flock :seek);

has 'history_file_handle' => (
  isa => 'FileHandle', is => 'rw', required => 1, lazy => 1,
  default => sub { $_[0]->open_history_file() }
);

# HISTLEN should probably be in a config file to stop people accidentally
# truncating their history if they start the program and forget to set

lib/SOOT/App.pm  view on Meta::CPAN

  my $nologon = 0;
  Getopt::Long::GetOptionsFromArray(
    $argv,
    'h|help' => \&usage,
    'n' => \$nologon,
  );

  my @files_to_open = @$argv;
  require Devel::REPL;
  require SOOT;
  require Devel::REPL::Plugin::CompletionDriver::SOOT;

  my $repl = Devel::REPL->new;
  foreach (qw(FindVariable History LexEnv Packages SOOT)) {
    $repl->load_plugin($_)
  }
  foreach (qw(Colors CompletionDriver::SOOT Completion DDS Interrupt
              MultiLine::PPI OutputCache PPI)) {
    my @discard = capture {
      eval {
        $repl->load_plugin($_);