view release on metacpan or  search on metacpan

bin/dochazka-cli  view on Meta::CPAN

250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
 
my $readline = $interactive
    ? sub { $term->readline( get_prompt() ) } 
    : sub {
        my $line = <STDIN>;
        return unless defined($line);
        print get_prompt() . $line;
        return $line;
    };
 
binmode STDOUT, ":utf8";
 
my $cmd;
COMMAND: while ( defined ( $cmd = $readline->() ) ) {
 
    my $rv = process_command( $cmd );
 
    # The return value SHOULD be a status object, but tolerate the eventuality
    # that it might be just a plain string
 
    if ( ref( $rv ) eq 'App::CELL::Status' ) {