Hyper::Control - base class for all control classes
This document describes Hyper::Control 0.02
package Hyper::Control::Sample; use Class::Std::Storable; use base qw(Hyper::Control); 1;
Hyper::Control inherits from Hyper::Container, adds the capability for getting the state of controls, including embedded controls and adds some methods needed for running our generated code.
$control->set_owner( $self );
Set owner for a control (eg. a container is the owner of a base control).
$self->set_value_recursive( [qw(this initiator id)], # parts => $self->get_value_recursive([qw(permission type)]) # value );
Set a value by try and error. Don't call this method in YOUR programms. It's only used in generated code.
$self->get_value_recursive([qw(this initiator id)]);
Get a value by try and error. Don't call this method in YOUR programms. It's only used in generated code.
Calls the DISPATCH method on the class stored in the dispatch attribute if the dispatch attribute is true.
$Author: ac0v $
$Id: Control.pm 528 2009-01-11 05:43:02Z ac0v $
$Revision: 528 $
$Date: 2009-01-11 06:43:02 +0100 (So, 11 Jan 2009) $
Copyright (c) 2007, Andreas Specht
<ACID@cpan.org>. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.