File Coverage

lib/App/ConMenu.pm

Criterion	Covered	Total	%
statement	32	58	55.1
branch	1	6	16.6
condition	0	3	0.0
subroutine	9	12	75.0
pod	0	6	0.0
total	42	85	49.4

package App::ConMenu;
use 5.10.0;
use strict;
use warnings;
use Carp qw(croak);
use YAML::Tiny;
use Term::ANSIScreen qw(cls);
our $VERSION = "1.00";


sub new  {
    my $type = shift;
    my $self = {};
    return bless $self, $type;
}

# load the yaml file you should have
# set filename by now.
sub loadMenuFile {
    my $self = shift;
    $self->{fileName} or croak ("No yaml file Name set");
    my $yaml;
    $yaml = YAML::Tiny -> read($self->{fileName});
    $self->{'menu'}= $yaml;
    return $yaml;
}

sub execute {
    my $self = shift;
    my $commandStructure = shift;
    my $commands = $commandStructure->{'commands'};
    foreach my $command (@$commands)
    {
        print `$command`;
    }
    return 1; # return 1 so that testing knows we got this far.
}

sub printMenu {
    my $self = shift;
    my $menuItemsUnsorted = $self->{'menu'}->[0];
    my @menuItems = sort { {$a} cmp {$b} } keys(%$menuItemsUnsorted);
    $self->{menuItems} = \@menuItems;
    cls();
    my $i=1;
    my @menuItemsNumerical = map { '['. $i++.'] '.$_ } @menuItems;
    say join("\n", @menuItemsNumerical);
    say 'Choose a menu item by pressing the corresponding number';
    say 'q to exit';
}

sub waitForInput {
    my $self = shift;
    my $selection = <>;
    if ($selection =~ /[0-9]+/){
        if ($selection  > scalar ($self->{menuItems}) or $selection < 1 ){
            say 'Error no such menu item';
            exit;
        }
    } else {
        exit;
    }
    my $menuItems = $self->{menuItems};
    $self->execute($self->{menu}->[0]->{$menuItems->[$selection -1]})
}

# create a default file to get people going.
sub createDefaultFile{
    my $self = shift;
    my $fileName = shift;
    my $menu = {
        'Menu option 1' => {
            'commands'    => [
                'ls'
            ],
            'working_dir' => './'
        },
        'Menu Option 2' => {
            'commands'    => [
                'dir'
            ],
            'working_dir' => './'
        }

    };
    my $yaml = YAML::Tiny->new($menu);
    $yaml->write($fileName);

}


1;
__END__