From d8a90a03e9c5e8e2732374a10e0e79289ffb793c Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 30 May 2013 04:41:11 -0500 Subject: App::REPL -> Reply --- bin/repl | 36 ------------------------------------ bin/reply | 36 ++++++++++++++++++++++++++++++++++++ 2 files changed, 36 insertions(+), 36 deletions(-) delete mode 100644 bin/repl create mode 100644 bin/reply (limited to 'bin') diff --git a/bin/repl b/bin/repl deleted file mode 100644 index f41f4fd..0000000 --- a/bin/repl +++ /dev/null @@ -1,36 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -# PODNAME: repl - -use App::REPL; - -my $cfg = "$ENV{HOME}/.replrc"; - -my %args = (config => $cfg); -if (!-e $cfg) { - print("$cfg not found. Generating a default...\n"); - if (open my $fh, '>', $cfg) { - print $fh ; - close $fh; - } - else { - warn "Couldn't write to $cfg"; - %args = (); - } -} - -App::REPL->new(%args)->run; - -__DATA__ -script_line1 = use strict -script_line2 = use warnings - -[Interrupt] -[FancyPrompt] -[DataDumper] -[Colors] -[ReadLine] -[Hints] -[Packages] -[LexicalPersistence] diff --git a/bin/reply b/bin/reply new file mode 100644 index 0000000..ddd03e2 --- /dev/null +++ b/bin/reply @@ -0,0 +1,36 @@ +#!/usr/bin/env perl +use strict; +use warnings; +# PODNAME: reply + +use Reply; + +my $cfg = "$ENV{HOME}/.replyrc"; + +my %args = (config => $cfg); +if (!-e $cfg) { + print("$cfg not found. Generating a default...\n"); + if (open my $fh, '>', $cfg) { + print $fh ; + close $fh; + } + else { + warn "Couldn't write to $cfg"; + %args = (); + } +} + +Reply->new(%args)->run; + +__DATA__ +script_line1 = use strict +script_line2 = use warnings + +[Interrupt] +[FancyPrompt] +[DataDumper] +[Colors] +[ReadLine] +[Hints] +[Packages] +[LexicalPersistence] -- cgit v1.2.3-54-g00ecf