C:\tmp>perl foo.pl
What is your default prog. lang? [Perl]:
What is your OS? [MacOS]:
C:\tmp>perl -I Term-ReadLine-Perl-1.0303\blib\lib foo.pl
What is your default prog. lang? [Perl]:
Cannot create second readline interface, falling back to dumb.
What is your OS? [MacOS]:
C:\tmp>
####
[canker:]$ perl foo.pl
What is your default prog. lang? [Perl]:
What is your OS? [MacOS]:
[canker:]$ perl -ITerm-ReadLine-Perl-1.0303/blib/lib foo.pl
What is your default prog. lang? [Perl]:
Cannot create second readline interface, falling back to dumb.
What is your OS? [MacOS]:
##
##
use strict;
use warnings;
BEGIN {
$ENV{PERL_RL}='Stub';
};
use Term::UI;
use Term::ReadLine;
my $term = Term::ReadLine->new('lang');
my $reply = $term->get_reply( prompt => 'What is your default prog. lang?', default => 'Perl');
my $term2 = Term::ReadLine->new('OS');
$reply = $term2->get_reply( prompt => 'What is your OS?', default => 'MacOS');
##
##
C:\tmp>perl -I Term-ReadLine-Perl-1.0303\blib\lib foo.pl
What is your default prog. lang? [Perl]:
What is your OS? [MacOS]:
C:\tmp>
##
##
[canker:]$ perl -ITerm-ReadLine-Perl-1.0303/blib/lib foo.pl
What is your default prog. lang? [Perl]:
What is your OS? [MacOS]:
[canker:]$