| 1 | package Psh::Builtins::Readline; |
| 2 | |
| 3 | require Psh::Util; |
| 4 | |
| 5 | =item * C<readline> |
| 6 | |
| 7 | Prints out information about the current ReadLine module which is |
| 8 | being used for command line input. Very rudimentary at present, should |
| 9 | be extended to allow rebinding, etc. |
| 10 | |
| 11 | =cut |
| 12 | |
| 13 | sub bi_readline |
| 14 | { |
| 15 | Psh::Util::print_out_i18n('bi_readline_header',$Psh::term->ReadLine()); |
| 16 | |
| 17 | my $featureref = $Psh::term->Features(); |
| 18 | |
| 19 | for my $feechr (keys %{$featureref}) { |
| 20 | Psh::Util::print_out(" $feechr => ${$featureref}{$feechr}\n"); |
| 21 | } |
| 22 | |
| 23 | return (1,undef); |
| 24 | } |
| 25 | |
| 26 | 1; |