File Coverage

blib/lib/Wizard/Form/Shell.pm

Criterion	Covered	Total	%
statement	6	33	18.1
branch	0	6	0.0
condition			n/a
subroutine	2	7	28.5
pod	0	5	0.0
total	8	51	15.6

# -*- perl -*-
#
#
#   Wizard - A Perl package for implementing system administration
#            applications in the style of Windows wizards.
#
#
#   This module is
#
#           Copyright (C) 1999     Jochen Wiedmann
#                                  Am Eisteich 9
#                                  72555 Metzingen
#                                  Germany
#
#                                  Email: [e-mail]
#                                  Phone: [phone]
#
#                          and     Amarendran R. Subramanian
#                                  Grundstr. 32
#                                  72810 Gomaringen
#                                  Germany
#
#                                  Email: [e-mail]
#                                  Phone: [phone]
#
#   All Rights Reserved.
#
#   You may distribute under the terms of either the GNU General Public
#   License or the Artistic License, as specified in the Perl README file.
#

use strict;

use Wizard::Form ();


package Wizard::Form::Shell;

@Wizard::Form::Shell::ISA = qw(Wizard::Form);


sub Display {
    my($self, $wiz, $state) = @_;
    $self->{'options'} = {};
    $wiz->ResetParam();
    foreach my $elem (@{$self->{'elems'}}) {
	$elem->Display($wiz, $self, $state);
    }
    my $var;
    if (keys %{$self->{'options'}} == 1) {
	$var = (keys %{$self->{'options'}})[0];
    } else {
	while (1) {
	    print "\nSelect an option: ";
	    $var = ;
	    chomp $var;
	    last if exists($self->{'options'}->{$var});
	}
    }
    my $val = $self->{'options'}->{$var};
    if (defined($val)) {
	$wiz->param($val, $var);
    } else {
	 $state->Running(0);
    }
}

sub Option {
    my($self, $id, $action) = @_;
    $self->{'options'}->{$id} = $action;
}

sub print { shift; print @_; }
sub printf { shift; printf(@_); }
sub readline {  }

1;