File Coverage

blib/lib/App/RemoteCommand/Util.pm

Criterion	Covered	Total	%
statement	15	33	45.4
branch	1	6	16.6
condition			n/a
subroutine	5	8	62.5
pod	0	2	0.0
total	21	49	42.8

package App::RemoteCommand::Util;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT_OK = qw(prompt DEBUG logger);

use constant DEBUG => $ENV{PERL_RCOMMAND_DEBUG} ? 1 : 0;

use Term::ReadKey 'ReadMode';

sub logger {
    my $msg = @_ == 1 ? $_[0] : sprintf shift, @_;
    warn " | $msg\n";
}

sub prompt {
    my $msg = shift;
    local $| = 1;
    print $msg;
    ReadMode 'noecho', \*STDIN;
    my $SIGNAL = "Catch SIGINT\n";
    my $answer;
    eval {
        local $SIG{INT} = sub { die $SIGNAL };
        $answer = ;
    };
    my $error = $@;
    ReadMode 'restore', \*STDIN;
    print "\n";
    die $error if $error;
    chomp $answer;
    $answer;
}

1;