7 use lib "$FindBin::Bin/../lib";
11 use Term::ANSIColor qw (color);
13 my $me = $FindBin::Script;
16 my $prompt = color ('BOLD CYAN') . "$me:" . color ('RESET');
18 $CmdLine::cmdline->set_prompt ($prompt);
22 while (($line, $result) = $CmdLine::cmdline->get) {
23 last unless defined $line;
24 last if $line =~ /exit|quit/i;
26 display "Would have executed $line"