From: Chris Marshall <devel.chm.01@gmail.com>
Date: Mon, 14 Feb 2011 02:31:38 +0000 (-0500)
Subject: Add new more friendly Default profile
X-Git-Tag: v1.003015~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b605fe37f095e8319dd99f864ab6fc097b665162;p=p5sagit%2FDevel-REPL.git

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
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;