Workflow::Base - Base class with constructor |
Workflow::Base - Base class with constructor
package My::App::Foo; use base qw( Workflow::Base );
Provide a constructor and some other useful methods for subclasses.
new( @params )
Just create a new object (blessed hashref) and pass along @params
to the init()
method, which subclasses can override to initialize
themselves.
Returns: new object
init( @params )
Subclasses may implement to do initialization. The @params
are
whatever is passed into new()
. Nothing need be returned.
param( [ $name, $value ] )
Associate arbitrary parameters with this object.
If neither $name
nor $value
given, return a hashref of all
parameters set in object:
my $params = $object->param(); while ( my ( $name, $value ) = each %{ $params } ) { print "$name = $params->{ $name }\n"; }
If $name
given and it is a hash reference, assign all the values of
the reference to the object parameters. This is the way to assign
multiple parameters at once. Note that these will overwrite any
existing parameter values. Return a hashref of all parameters set in
object.
$object->param({ foo => 'bar', baz => 'blarney' });
If $name
given and it is not a hash reference, return the value
associated with it, undef
if $name
was not previously set.
my $value = $object->param( 'foo' ); print "Value of 'foo' is '$value'\n";
If $name
and $value
given, associate $name
with $value
,
overwriting any existing value, and return the new value.
$object->param( foo => 'blurney' );
clear_params()
Clears out all parameters associated with this object.
normalize_array( \@array | $item )
If given \@array
return it dereferenced; if given $item
, return
it in a list. If given neither return an empty list.
Copyright (c) 2003-2004 Chris Winters. All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Chris Winters <chris@cwinters.com>
Workflow::Base - Base class with constructor |