my $readline = App::Siesh::Batch(\*STDIN) my $term = Term::ShellUI->new( term => $readline );
Implements a very simple fake readline module. It expects a file handle as single argument to new(), and returns a new line from that filehandle upon readline() till it is exhausted. All other methods you would expect in a readline module are just subs and won't do anything. To prevent Term::ShellUI to print a spurious newline after the last command we return quit on eof.
Mario Domgoergen <firstname.lastname@example.org>
Copyright 2008 Mario Domgoergen, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.