diff options
-rw-r--r-- | bin/reply (renamed from bin/repl) | 8 | ||||
-rw-r--r-- | lib/Reply.pm (renamed from lib/App/REPL.pm) | 12 | ||||
-rw-r--r-- | lib/Reply/Plugin.pm (renamed from lib/App/REPL/Plugin.pm) | 2 | ||||
-rw-r--r-- | lib/Reply/Plugin/Colors.pm (renamed from lib/App/REPL/Plugin/Colors.pm) | 4 | ||||
-rw-r--r-- | lib/Reply/Plugin/DataDump.pm (renamed from lib/App/REPL/Plugin/DataDump.pm) | 4 | ||||
-rw-r--r-- | lib/Reply/Plugin/DataDumper.pm (renamed from lib/App/REPL/Plugin/DataDumper.pm) | 4 | ||||
-rw-r--r-- | lib/Reply/Plugin/Defaults.pm (renamed from lib/App/REPL/Plugin/Defaults.pm) | 4 | ||||
-rw-r--r-- | lib/Reply/Plugin/FancyPrompt.pm (renamed from lib/App/REPL/Plugin/FancyPrompt.pm) | 4 | ||||
-rw-r--r-- | lib/Reply/Plugin/Hints.pm (renamed from lib/App/REPL/Plugin/Hints.pm) | 4 | ||||
-rw-r--r-- | lib/Reply/Plugin/Interrupt.pm (renamed from lib/App/REPL/Plugin/Interrupt.pm) | 4 | ||||
-rw-r--r-- | lib/Reply/Plugin/LexicalPersistence.pm (renamed from lib/App/REPL/Plugin/LexicalPersistence.pm) | 4 | ||||
-rw-r--r-- | lib/Reply/Plugin/LoadClass.pm (renamed from lib/App/REPL/Plugin/LoadClass.pm) | 4 | ||||
-rw-r--r-- | lib/Reply/Plugin/Packages.pm (renamed from lib/App/REPL/Plugin/Packages.pm) | 4 | ||||
-rw-r--r-- | lib/Reply/Plugin/ReadLine.pm (renamed from lib/App/REPL/Plugin/ReadLine.pm) | 6 |
14 files changed, 34 insertions, 34 deletions
@@ -1,11 +1,11 @@ #!/usr/bin/env perl use strict; use warnings; -# PODNAME: repl +# PODNAME: reply -use App::REPL; +use Reply; -my $cfg = "$ENV{HOME}/.replrc"; +my $cfg = "$ENV{HOME}/.replyrc"; my %args = (config => $cfg); if (!-e $cfg) { @@ -20,7 +20,7 @@ if (!-e $cfg) { } } -App::REPL->new(%args)->run; +Reply->new(%args)->run; __DATA__ script_line1 = use strict diff --git a/lib/App/REPL.pm b/lib/Reply.pm index 56c6e1d..be79ab8 100644 --- a/lib/App/REPL.pm +++ b/lib/Reply.pm @@ -1,7 +1,7 @@ -package App::REPL; +package Reply; use strict; use warnings; -# ABSTRACT: simple, pluggable repl +# ABSTRACT: read, eval, print, loop, yay! use Config::INI::Reader::Ordered; use Module::Runtime qw(compose_module_name use_package_optimistically); @@ -12,10 +12,10 @@ sub new { my $class = shift; my %opts = @_; - require App::REPL::Plugin::Defaults; + require Reply::Plugin::Defaults; my $self = bless { plugins => [], - _default_plugin => App::REPL::Plugin::Defaults->new, + _default_plugin => Reply::Plugin::Defaults->new, }, $class; $self->load_plugin($_) for @{ $opts{plugins} || [] }; @@ -34,10 +34,10 @@ sub load_plugin { my ($plugin, $opts) = @_; if (!blessed($plugin)) { - $plugin = compose_module_name("App::REPL::Plugin", $plugin); + $plugin = compose_module_name("Reply::Plugin", $plugin); use_package_optimistically($plugin); die "$plugin is not a valid plugin" - unless $plugin->isa("App::REPL::Plugin"); + unless $plugin->isa("Reply::Plugin"); $plugin = $plugin->new(%$opts); } diff --git a/lib/App/REPL/Plugin.pm b/lib/Reply/Plugin.pm index a255f62..0858758 100644 --- a/lib/App/REPL/Plugin.pm +++ b/lib/Reply/Plugin.pm @@ -1,4 +1,4 @@ -package App::REPL::Plugin; +package Reply::Plugin; use strict; use warnings; diff --git a/lib/App/REPL/Plugin/Colors.pm b/lib/Reply/Plugin/Colors.pm index dc00cfd..199d41e 100644 --- a/lib/App/REPL/Plugin/Colors.pm +++ b/lib/Reply/Plugin/Colors.pm @@ -1,8 +1,8 @@ -package App::REPL::Plugin::Colors; +package Reply::Plugin::Colors; use strict; use warnings; -use base 'App::REPL::Plugin'; +use base 'Reply::Plugin'; use Term::ANSIColor; diff --git a/lib/App/REPL/Plugin/DataDump.pm b/lib/Reply/Plugin/DataDump.pm index 7d2934d..e80deab 100644 --- a/lib/App/REPL/Plugin/DataDump.pm +++ b/lib/Reply/Plugin/DataDump.pm @@ -1,8 +1,8 @@ -package App::REPL::Plugin::DataDump; +package Reply::Plugin::DataDump; use strict; use warnings; -use base 'App::REPL::Plugin'; +use base 'Reply::Plugin'; use Data::Dump 'pp'; diff --git a/lib/App/REPL/Plugin/DataDumper.pm b/lib/Reply/Plugin/DataDumper.pm index 34e520d..676344a 100644 --- a/lib/App/REPL/Plugin/DataDumper.pm +++ b/lib/Reply/Plugin/DataDumper.pm @@ -1,8 +1,8 @@ -package App::REPL::Plugin::DataDumper; +package Reply::Plugin::DataDumper; use strict; use warnings; -use base 'App::REPL::Plugin'; +use base 'Reply::Plugin'; use Data::Dumper; diff --git a/lib/App/REPL/Plugin/Defaults.pm b/lib/Reply/Plugin/Defaults.pm index ab533b4..507c830 100644 --- a/lib/App/REPL/Plugin/Defaults.pm +++ b/lib/Reply/Plugin/Defaults.pm @@ -1,4 +1,4 @@ -package App::REPL::Plugin::Defaults; +package Reply::Plugin::Defaults; # XXX Eval::Closure imposes its own hints on things that are eval'ed at the # moment, but this may be fixed in the future @@ -11,7 +11,7 @@ BEGIN { use strict; use warnings; -use base 'App::REPL::Plugin'; +use base 'Reply::Plugin'; use Eval::Closure; diff --git a/lib/App/REPL/Plugin/FancyPrompt.pm b/lib/Reply/Plugin/FancyPrompt.pm index 90e8627..aec5b82 100644 --- a/lib/App/REPL/Plugin/FancyPrompt.pm +++ b/lib/Reply/Plugin/FancyPrompt.pm @@ -1,8 +1,8 @@ -package App::REPL::Plugin::FancyPrompt; +package Reply::Plugin::FancyPrompt; use strict; use warnings; -use base 'App::REPL::Plugin'; +use base 'Reply::Plugin'; sub new { my $class = shift; diff --git a/lib/App/REPL/Plugin/Hints.pm b/lib/Reply/Plugin/Hints.pm index a09f117..ea0e953 100644 --- a/lib/App/REPL/Plugin/Hints.pm +++ b/lib/Reply/Plugin/Hints.pm @@ -1,4 +1,4 @@ -package App::REPL::Plugin::Hints; +package Reply::Plugin::Hints; my $default_hints; my $default_hinthash; @@ -12,7 +12,7 @@ BEGIN { use strict; use warnings; -use base 'App::REPL::Plugin'; +use base 'Reply::Plugin'; sub new { my $class = shift; diff --git a/lib/App/REPL/Plugin/Interrupt.pm b/lib/Reply/Plugin/Interrupt.pm index d993a15..a5c2b37 100644 --- a/lib/App/REPL/Plugin/Interrupt.pm +++ b/lib/Reply/Plugin/Interrupt.pm @@ -1,8 +1,8 @@ -package App::REPL::Plugin::Interrupt; +package Reply::Plugin::Interrupt; use strict; use warnings; -use base 'App::REPL::Plugin'; +use base 'Reply::Plugin'; sub compile { my $self = shift; diff --git a/lib/App/REPL/Plugin/LexicalPersistence.pm b/lib/Reply/Plugin/LexicalPersistence.pm index 986fa03..0540f96 100644 --- a/lib/App/REPL/Plugin/LexicalPersistence.pm +++ b/lib/Reply/Plugin/LexicalPersistence.pm @@ -1,8 +1,8 @@ -package App::REPL::Plugin::LexicalPersistence; +package Reply::Plugin::LexicalPersistence; use strict; use warnings; -use base 'App::REPL::Plugin'; +use base 'Reply::Plugin'; use Lexical::Persistence; diff --git a/lib/App/REPL/Plugin/LoadClass.pm b/lib/Reply/Plugin/LoadClass.pm index 9a48b22..8bba634 100644 --- a/lib/App/REPL/Plugin/LoadClass.pm +++ b/lib/Reply/Plugin/LoadClass.pm @@ -1,8 +1,8 @@ -package App::REPL::Plugin::LoadClass; +package Reply::Plugin::LoadClass; use strict; use warnings; -use base 'App::REPL::Plugin'; +use base 'Reply::Plugin'; use Module::Runtime 'use_package_optimistically'; use Try::Tiny; diff --git a/lib/App/REPL/Plugin/Packages.pm b/lib/Reply/Plugin/Packages.pm index c1c02d0..6f3e32c 100644 --- a/lib/App/REPL/Plugin/Packages.pm +++ b/lib/Reply/Plugin/Packages.pm @@ -1,8 +1,8 @@ -package App::REPL::Plugin::Packages; +package Reply::Plugin::Packages; use strict; use warnings; -use base 'App::REPL::Plugin'; +use base 'Reply::Plugin'; sub new { my $class = shift; diff --git a/lib/App/REPL/Plugin/ReadLine.pm b/lib/Reply/Plugin/ReadLine.pm index f2fe847..dc9c617 100644 --- a/lib/App/REPL/Plugin/ReadLine.pm +++ b/lib/Reply/Plugin/ReadLine.pm @@ -1,8 +1,8 @@ -package App::REPL::Plugin::ReadLine; +package Reply::Plugin::ReadLine; use strict; use warnings; -use base 'App::REPL::Plugin'; +use base 'Reply::Plugin'; use Term::ReadLine; @@ -10,7 +10,7 @@ sub new { my $class = shift; my $self = $class->SUPER::new(@_); - $self->{term} = Term::ReadLine->new('App::REPL'); + $self->{term} = Term::ReadLine->new('Reply'); return $self; } |