diff options
Diffstat (limited to 'bin/reply')
-rw-r--r-- | bin/reply | 36 |
1 files changed, 36 insertions, 0 deletions
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 <DATA>; + 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] |