From ae66bea003cb6b72ea6e00a21951d9bcfa8a5a0b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 3 Jun 2013 16:28:08 -0500
Subject: make this private too

---
 lib/Reply.pm | 42 +++++++++++++++++-------------------------
 1 file changed, 17 insertions(+), 25 deletions(-)

diff --git a/lib/Reply.pm b/lib/Reply.pm
index e3240d8..63de5e0 100644
--- a/lib/Reply.pm
+++ b/lib/Reply.pm
@@ -86,7 +86,7 @@ sub new {
         _default_plugin => Reply::Plugin::Defaults->new,
     }, $class;
 
-    $self->load_plugin($_) for @{ $opts{plugins} || [] };
+    $self->_load_plugin($_) for @{ $opts{plugins} || [] };
 
     if (defined $opts{config}) {
         print "Loading configuration from $opts{config}... ";
@@ -97,29 +97,6 @@ sub new {
     return $self;
 }
 
-=method load_plugin($plugin, $opts)
-
-Loads the specified plugin. C<$plugin> corresponds to the class
-C<Reply::Plugin::$plugin>, which will be loaded and instantiated. If C<$opts>
-is given, it should be a hashref of options to pass to the plugin constructor.
-
-=cut
-
-sub load_plugin {
-    my $self = shift;
-    my ($plugin, $opts) = @_;
-
-    if (!blessed($plugin)) {
-        $plugin = compose_module_name("Reply::Plugin", $plugin);
-        use_package_optimistically($plugin);
-        die "$plugin is not a valid plugin"
-            unless $plugin->isa("Reply::Plugin");
-        $plugin = $plugin->new(%$opts);
-    }
-
-    push @{ $self->{plugins} }, $plugin;
-}
-
 =method run
 
 Runs the repl. Will continue looping until the C<read_line> callback returns
@@ -156,7 +133,7 @@ sub _load_config {
             $root_config = $data;
         }
         else {
-            $self->load_plugin($name => $data);
+            $self->_load_plugin($name => $data);
         }
     }
 
@@ -174,6 +151,21 @@ sub _load_config {
     }
 }
 
+sub _load_plugin {
+    my $self = shift;
+    my ($plugin, $opts) = @_;
+
+    if (!blessed($plugin)) {
+        $plugin = compose_module_name("Reply::Plugin", $plugin);
+        use_package_optimistically($plugin);
+        die "$plugin is not a valid plugin"
+            unless $plugin->isa("Reply::Plugin");
+        $plugin = $plugin->new(%$opts);
+    }
+
+    push @{ $self->{plugins} }, $plugin;
+}
+
 sub _plugins {
     my $self = shift;
 
-- 
cgit v1.2.3-54-g00ecf