Add new more friendly Default profile

This is from patch 2 of 4 submitted by Caleb Cushing.

diff --git a/lib/Devel/REPL/Profile/Default.pm b/lib/Devel/REPL/Profile/Default.pm
new file mode 100644 (file)
index 0000000..8bfa69d
--- /dev/null
+++ b/lib/Devel/REPL/Profile/Default.pm
@@ -0,0 +1,29 @@
+package Devel::REPL::Profile::Default;
+
+use Moose;
+use namespace::clean -except => [ 'meta' ];
+
+with 'Devel::REPL::Profile';
+
+sub plugins { qw(
+  Colors
+  Completion
+  CompletionDriver::INC
+  CompletionDriver::LexEnv
+  CompletionDriver::Keywords
+  CompletionDriver::Methods
+  History
+  LexEnv
+  DDS
+  Packages
+  Commands
+  MultiLine::PPI
+  ReadLineHistory
+);}
+
+sub apply_profile {
+  my ($self, $repl) = @_;
+  $repl->load_plugin($_) for $self->plugins;
+}
+
+1;