use namespace::clean -except => [ 'meta' ];
use 5.008001; # backwards compat, doesn't warn like 5.8.1
-our $VERSION = '1.003001'; # 1.3.1
+our $VERSION = '1.003009_02'; # 1.3.9_02
with 'MooseX::Object::Pluggable';
default => sub { shift->term->OUT || \*STDOUT; }
);
+has 'exit_repl' => (
+ is => 'rw', required => 1,
+ default => sub { 0 }
+);
+
sub run {
my ($self) = @_;
while ($self->run_once_safely) {
- # keep looping
+ # keep looping unless we want to exit REPL
+ last if $self->exit_repl;
}
}
my ($self) = @_;
my $line = $self->read;
- return unless defined($line); # undefined value == EOF
+ return unless defined($line); # undefined value == EOF
my @ret = $self->formatted_eval($line);
- $self->print(@ret);
+ $self->print(@ret) unless $self->exit_repl;
return 1;
}
=item *
-L<Lexical::Persistence>
+L<Task::Weaken>
+
+=back
+
+Optionally, some plugins if installed will require the following modules:
+
+=over 4
+
+=item *
+
+L<PPI>
=item *
=item *
-L<PPI>
+L<File::Next>
=item *
=item *
-L<Task::Weaken>
+L<Lexical::Persistence>
=item *
L<App::Nopaste>
+=item *
+
+L<Module::Refresh>
+
=back
=head1 AUTHOR
=item Shawn M Moore - sartak (at) gmail.com
-=item Oliver Gorwits
+=item Oliver Gorwits - oliver on irc.perl.org
+
+=item Andrew Moore - C<< <amoore@cpan.org> >>
+
+=item Norbert Buchmuller C<< <norbi@nix.hu> >>
+
+=item Dave Houston C<< <dhouston@cpan.org> >>
=back