ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-ReadLine-Gnu/Gnu.pm
(Generate patch)

Comparing AnyEvent-ReadLine-Gnu/Gnu.pm (file contents):
Revision 1.4 by root, Thu May 10 23:28:38 2012 UTC vs.
Revision 1.8 by root, Tue Dec 12 15:50:45 2017 UTC

… …
56 require Term::ReadLine::Gnu; 56 require Term::ReadLine::Gnu;
57} 57}
58 58
59use base Term::ReadLine::; 59use base Term::ReadLine::;
60 60
61our $VERSION = '0.2'; 61our $VERSION = '1.1';
62 62
63=item $rl = new AnyEvent::ReadLine::Gnu key => value... 63=item $rl = new AnyEvent::ReadLine::Gnu key => value...
64 64
65Creates a new AnyEvent::ReadLine object. 65Creates a new AnyEvent::ReadLine object.
66 66
… …
72methods that are documented (or working) for that module should work on 72methods that are documented (or working) for that module should work on
73this object. 73this object.
74 74
75Once initialised, this module will also restore the terminal settings on a 75Once initialised, this module will also restore the terminal settings on a
76normal program exit. 76normal program exit.
77
78The callback will be installed with the C<CallbackHandlerInstall>, which
79means it handles history expansion and history, among other things.
77 80
78The following key-value pairs are supported: 81The following key-value pairs are supported:
79 82
80=over 4 83=over 4
81 84
… …
133sub new { 136sub new {
134 my ($class, %arg) = @_; 137 my ($class, %arg) = @_;
135 138
136 $in = $arg{in} || *STDIN; 139 $in = $arg{in} || *STDIN;
137 $out = $arg{out} || *STDOUT; 140 $out = $arg{out} || *STDOUT;
138 $prompt = $arg{prompt} || "> "; 141 $prompt = $arg{prompt} // "> ";
139 $cb = $arg{on_line} || $arg{cb} 142 $cb = $arg{on_line} || $arg{cb}
140 or do { require Carp; Carp::croak ("AnyEvent::ReadLine::Gnu->new on_line callback argument mandatry, but missing") }; 143 or do { require Carp; Carp::croak ("AnyEvent::ReadLine::Gnu->new on_line callback argument mandatry, but missing") };
141 144
142 $self = $class->SUPER::new ($arg{name} || $0, $in, $out); 145 $self = $class->SUPER::new ($arg{name} || $0, $in, $out);
143 146
147 $Term::ReadLine::Gnu::Attribs{term_set} = ["", "", "", ""];
144 $self->CallbackHandlerInstall ($prompt, \&on_line); 148 $self->CallbackHandlerInstall ($prompt, \&on_line);
145 # set the unadorned prompt
146 $self->rl_set_prompt ($prompt);
147 149
148 $hidden = 1; 150 $hidden = 1;
149 $self->show; 151 $self->show;
150 152
151 $self 153 $self
… …
258=item unexpected disk I/O 260=item unexpected disk I/O
259 261
260By default, readline does filename completion on TAB, and reads its 262By default, readline does filename completion on TAB, and reads its
261config files. 263config files.
262 264
265Tab completion can be disabled by calling C<< $rl->unbind_key (9) >>.
266
263=item tty settings 267=item tty settings
264 268
265After readline has been initialised, it will mangle the termios tty 269After readline has been initialised, it will mangle the termios tty
266settings. This does not normally affect output very much, but should be 270settings. This does not normally affect output very much, but should be
267taken into consideration. 271taken into consideration.
… …
277Oh, and the above list is probably not complete. 281Oh, and the above list is probably not complete.
278 282
279=head1 AUTHOR, CONTACT, SUPPORT 283=head1 AUTHOR, CONTACT, SUPPORT
280 284
281 Marc Lehmann <schmorp@schmorp.de> 285 Marc Lehmann <schmorp@schmorp.de>
282 http://software.schmorp.de/pkg/AnyEvent-Readline-Gnu.html 286 http://software.schmorp.de/pkg/AnyEvent-ReadLine-Gnu.html
283 287
284=cut 288=head1 SEE ALSO
285 289
290L<rltelnet> - a simple tcp_connect-with-readline program using this module.
291
292=cut
293

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines