File Coverage

blib/lib/Wizard/Elem/Data/Shell.pm

Criterion	Covered	Total	%
statement	6	15	40.0
branch	0	6	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	25	32.0

# -*- 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.
#
#   $Id$
#

use strict;

use Wizard::Elem::Shell ();


package Wizard::Elem::Data::Shell;

@Wizard::Elem::Data::Shell::ISA = qw(Wizard::Elem::Shell);
$Wizard::Elem::Data::Shell::VERSION = '0.01';


sub Display {
    my($self, $wiz, $form, $state) = @_;
    my $format = $form->{'elem_data_format'};
    unless ($format) {
	my $ds = 0;
	foreach my $e ($form->{'elems'}) {
	    if (UNIVERSAL::isa($e, 'Wizard::Elem::Data::Shell')) {
		$ds = length($e->{'descr'}) if $ds < length($e->{'descr'});
	    }
	}
	$format = $form->{'elem_data_format'} = sprintf("  %%-${ds}s:  %%s\n");
    }
    $form->printf($format, $self->{'descr'}, $self->{'value'});
}


1;