/usr/share/perl5/FCM1/Interactive/InputGetter/CLI.pm is in fcm 2016.12.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | # ------------------------------------------------------------------------------
# (C) British Crown Copyright 2006-16 Met Office.
#
# This file is part of FCM, tools for managing and building source code.
#
# FCM is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# FCM is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with FCM. If not, see <http://www.gnu.org/licenses/>.
# ------------------------------------------------------------------------------
use strict;
use warnings;
package FCM1::Interactive::InputGetter::CLI;
use base qw{FCM1::Interactive::InputGetter};
my $DEF_MSG = q{ (or just press <return> for "%s")};
my %EXTRA_MSG_FOR = (
yn => qq{\nEnter "y" or "n"},
yna => qq{\nEnter "y", "n" or "a"},
);
my %CHECKER_FOR = (
yn => sub {$_[0] eq 'y' || $_[0] eq 'n'},
yna => sub {$_[0] eq 'y' || $_[0] eq 'n' || $_[0] eq 'a'},
);
sub invoke {
my ($self) = @_;
my $type = $self->get_type() ? lc($self->get_type()) : q{};
my $message
= $self->get_message()
. (exists($EXTRA_MSG_FOR{$type}) ? $EXTRA_MSG_FOR{$type} : q{})
. ($self->get_default() ? sprintf($DEF_MSG, $self->get_default()) : q{})
. q{: }
;
while (1) {
print($message);
my $answer = readline(STDIN);
chomp($answer);
if (!$answer && $self->get_default()) {
$answer = $self->get_default();
}
if (!exists($CHECKER_FOR{$type}) || $CHECKER_FOR{$type}->($answer)) {
return $answer;
}
}
return;
}
1;
__END__
=head1 NAME
FCM1::Interactive::InputGetter::CLI
=head1 SYNOPSIS
use FCM1::Interactive;
$answer = FCM1::Interactive::get_input(
title => 'My title',
message => 'Would you like to ...?',
type => 'yn',
default => 'n',
);
=head1 DESCRIPTION
This is a solid implementation of
L<FCM1::Interactive::InputGetter|FCM1::Interactive::InputGetter>. It gets a user
reply from STDIN using a prompt on STDOUT.
=head1 METHODS
See L<FCM1::Interactive::InputGetter|FCM1::Interactive::InputGetter> for a list of
methods.
=head1 TO DO
Use IO::Prompt.
=head1 SEE ALSO
L<FCM1::Interactive|FCM1::Interactive>,
L<FCM1::Interactive::InputGetter|FCM1::Interactive::InputGetter>,
L<FCM1::Interactive::InputGetter::GUI|FCM1::Interactive::InputGetter::GUI>
=head1 COPYRIGHT
E<169> Crown copyright Met Office. All rights reserved.
=cut
|