7 with 'MooseX::Object::Pluggable';
10 is => 'rw', required => 1,
11 default => sub { Term::ReadLine->new('Perl REPL') }
15 is => 'rw', required => 1,
16 default => sub { '$ ' }
20 is => 'rw', required => 1, lazy => 1,
21 default => sub { shift->term->OUT || \*STDOUT; }
26 while ($self->run_once) {
33 my $line = $self->read;
34 return unless defined($line); # undefined value == EOF
35 my @ret = $self->execute($line);
42 return $self->term->readline($self->prompt);
46 my ($self, $to_exec) = @_;
47 my @ret = eval $to_exec;
48 @ret = ("ERROR: $@") if $@;
53 my ($self, @ret) = @_;
54 my $fh = $self->out_fh;