r61340@onn: sartak | 2008-05-31 12:17:19 -0400

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

diff --git a/lib/Devel/REPL/Plugin/NewlineHack.pm b/lib/Devel/REPL/Plugin/NewlineHack.pm
index 96a464f..74b852a 100644 (file)
--- a/lib/Devel/REPL/Plugin/NewlineHack.pm
+++ b/lib/Devel/REPL/Plugin/NewlineHack.pm
@@ -1,3 +1,5 @@
+# Original comment:
+#
 # 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 ;)
@@ -5,15 +7,22 @@
 package Devel::REPL::Plugin::NewlineHack;
 
 use Moose::Role;
+use namespace::clean -except => [ 'meta' ];
 
-use Data::Dumper;
+warn <<EOW;
+No longer required, extra newline automatically produced for Gnu readline
+implementation by Devel::REPL's print() method.
 
-after 'print' => sub {
-  # not fussed about args
-  my ($self) = @_;
-  my $fh = $self->out_fh;
-  print $fh "\n";
-};
+This plugin will be removed at some point; please remove it from your config.
+EOW
 
 1;
 
+__END__
+
+=head1 NAME
+
+Devel::REPL::Plugin::NewlineHack - (deprecated)
+
+=cut
+