diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-05-30 04:41:11 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-05-30 04:41:11 -0500 |
| commit | d8a90a03e9c5e8e2732374a10e0e79289ffb793c (patch) | |
| tree | 98b6385d26dad2a14687c2c51d402c5b6ebdc837 /bin/repl | |
| parent | 69e4ff7c28debe5cae5bd505d5df12bd12bdd11a (diff) | |
| download | reply-d8a90a03e9c5e8e2732374a10e0e79289ffb793c.tar.gz reply-d8a90a03e9c5e8e2732374a10e0e79289ffb793c.zip | |
App::REPL -> Reply
Diffstat (limited to 'bin/repl')
| -rw-r--r-- | bin/repl | 36 |
1 files changed, 0 insertions, 36 deletions
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 <DATA>; - 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] |