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.5 by root, Fri May 11 00:20:19 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 $self->redisplay;
148 149
149 $hidden = 1; 150 $hidden = 1;
150 $self->show; 151 $self->show;
151 152
152 $self 153 $self
… …
280Oh, and the above list is probably not complete. 281Oh, and the above list is probably not complete.
281 282
282=head1 AUTHOR, CONTACT, SUPPORT 283=head1 AUTHOR, CONTACT, SUPPORT
283 284
284 Marc Lehmann <schmorp@schmorp.de> 285 Marc Lehmann <schmorp@schmorp.de>
285 http://software.schmorp.de/pkg/AnyEvent-Readline-Gnu.html 286 http://software.schmorp.de/pkg/AnyEvent-ReadLine-Gnu.html
286 287
287=head1 SEE ALSO 288=head1 SEE ALSO
288 289
289L<rltelnet> - a simple tcp_connect-with-readline program using this module. 290L<rltelnet> - a simple tcp_connect-with-readline program using this module.
290 291

Diff Legend

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