File Coverage

blib/lib/Csistck/Term.pm

Criterion	Covered	Total	%
statement	20	45	44.4
branch	0	8	0.0
condition			n/a
subroutine	7	8	87.5
pod	0	1	0.0
total	27	62	43.5

package Csistck::Term;

use 5.010;
use strict;
use warnings;

use base 'Exporter';

use Term::ReadKey;
use Csistck::Test;
use Csistck::Test::Return;

our @EXPORT_OK = qw/
    prompt
/;

# Interactive terminal prompt. Takes in test as argument, and displays action
# options
sub prompt {
    my $test = shift;
    my %options;

    # Ask question loop, get input. If choices are not code refs, do not show choice
    say("What would you like to:");
    my @choices = ();
    # Repair
    if ($test->can('repair')) {
        say("  Y : Repair");
        push(@choices, 'Y');
    }
    # Skip
    say("  N : Skip");
    push(@choices, 'n');
    # Diff
    if ($test->can('diff')) {
        say("  D : Diff");
        push(@choices, 'd');
    }
    print("[Y/n/d]? ");

    ReadMode 3;
    my $action = ReadKey(0);
    say($action);
    ReadMode 0;

    # Execute and return, based on input. Return value is used for processing
    # on_repair operations.
    given ($action) {
        when (/[Yy\n]/) {
            return $test->execute('repair') if ($test->can('repair'));
        }
        when (/[Dd]/) {
            # Show diff, loop through prompt again
            $test->execute('diff') if ($test->can('diff'));
            return prompt($test);
        }
        default {
            return Csistck::Test::Return->new(
                resp => 0,
                msg => 'Missing function',
                desc => $test->desc
            );
        }
    }
}

1;