File Coverage

blib/lib/Wizard/Form.pm

Criterion	Covered	Total	%
statement	3	21	14.2
branch	0	2	0.0
condition	0	3	0.0
subroutine	1	2	50.0
pod	0	1	0.0
total	4	29	13.7

# -*- 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;


package Wizard::Form;

sub new {
    my $proto = shift;  my $wiz = shift;
    my $extension = $proto;
    $extension =~ s/.*\:\://;
    my $self = { @_ };
    bless($self, (ref($proto) || $proto));
    @{$self->{'elems'}} = map {
	if (ref($_) eq 'ARRAY') {
	    my $c = shift @$_;
	    $c .= "::$extension";
	    my $c_class = $c;
	    $c_class =~ s/\:\:/\//g;
	    require "$c_class.pm";
	    $c->new($self, @$_);
	} else {
	    $_;
	}
    } @{$self->{'elems'}};
    $self;
}


1;