lib/Devel/REPL/Plugin/NewlineHack.pm

   1 # Adds a newline after print. Some readlines need it some don't. I guess
   2 # we should clarify whether this is a bug and if so whose bug at some point
   3 # but this'll do for now ;)
   4
   5 package Devel::REPL::Plugin::NewlineHack;
   6
   7 use Moose::Role;
   8
   9 use Data::Dumper;
  10
  11 after 'print' => sub {
  12   # not fussed about args
  13   my ($self) = @_;
  14   my $fh = $self->out_fh;
  15   print $fh "\n";
  16 };
  17
  18 1;
  19