[p5sagit/Devel-REPL.git] / lib / Devel / REPL / Plugin / NewlineHack.pm

# Adds a newline after print. Some readlines need it some don't. I guess
# we should clarify whether this is a bug and if so whose bug at some point
# but this'll do for now ;)

package Devel::REPL::Plugin::NewlineHack;

use Moose::Role;

use Data::Dumper;

after 'print' => sub {
  # not fussed about args
  my ($self) = @_;
  my $fh = $self->out_fh;
  print $fh "\n";
};

1;
Commit	Line	Data
f254750a	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