| … | |
… | |
| 56 | require Term::ReadLine::Gnu; |
56 | require Term::ReadLine::Gnu; |
| 57 | } |
57 | } |
| 58 | |
58 | |
| 59 | use base Term::ReadLine::; |
59 | use base Term::ReadLine::; |
| 60 | |
60 | |
| 61 | our $VERSION = '1.0'; |
61 | our $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 | |
| 65 | Creates a new AnyEvent::ReadLine object. |
65 | Creates a new AnyEvent::ReadLine object. |
| 66 | |
66 | |
| … | |
… | |
| 136 | sub new { |
136 | sub new { |
| 137 | my ($class, %arg) = @_; |
137 | my ($class, %arg) = @_; |
| 138 | |
138 | |
| 139 | $in = $arg{in} || *STDIN; |
139 | $in = $arg{in} || *STDIN; |
| 140 | $out = $arg{out} || *STDOUT; |
140 | $out = $arg{out} || *STDOUT; |
| 141 | $prompt = $arg{prompt} || "> "; |
141 | $prompt = $arg{prompt} // "> "; |
| 142 | $cb = $arg{on_line} || $arg{cb} |
142 | $cb = $arg{on_line} || $arg{cb} |
| 143 | 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") }; |
| 144 | |
144 | |
| 145 | $self = $class->SUPER::new ($arg{name} || $0, $in, $out); |
145 | $self = $class->SUPER::new ($arg{name} || $0, $in, $out); |
| 146 | |
146 | |
