++ed by:
KES ROMANF

2 PAUSE users
1 non-PAUSE user.

Author image Christopher H. Laco
and 1 contributors

NAME

Class::Accessor::Grouped - Lets you build groups of accessors

SYNOPSIS

DESCRIPTION

This class lets you build groups of accessors that will call different getters and setters.

METHODS

mk_group_accessors

Arguments: $group, @fieldspec

Returns: none

Creates a set of accessors in a given group.

$group is the name of the accessor group for the generated accessors; they will call get_$group($field) on get and set_$group($field, $value) on set.

@fieldspec is a list of field/accessor names; if a fieldspec is a scalar this is used as both field and accessor name, if a listref it is expected to be of the form [ $accessor, $field ].

mk_group_ro_accessors

Arguments: $group, @fieldspec

Returns: none

Creates a set of read only accessors in a given group. Identical to <L:/mk_group_accessors> but accessors will throw an error if passed a value rather than setting the value.

mk_group_wo_accessors

Arguments: $group, @fieldspec

Returns: none

Creates a set of write only accessors in a given group. Identical to <L:/mk_group_accessors> but accessors will throw an error if not passed a value rather than getting the value.

make_group_accessor

Arguments: $group, $field

Returns: $sub (\CODE)

Returns a single accessor in a given group; called by mk_group_accessors for each entry in @fieldspec.

make_group_ro_accessor

Arguments: $group, $field

Returns: $sub (\CODE)

Returns a single read-only accessor in a given group; called by mk_group_ro_accessors for each entry in @fieldspec.

make_group_wo_accessor

Arguments: $group, $field

Returns: $sub (\CODE)

Returns a single write-only accessor in a given group; called by mk_group_wo_accessors for each entry in @fieldspec.

get_simple

Arguments: $field

Returns: $value

Simple getter for hash-based objects which returns the value for the field name passed as an argument.

set_simple

Arguments: $field, $new_value

Returns: $new_value

Simple setter for hash-based objects which sets and then returns the value for the field name passed as an argument.

get_inherited

Arguments: $field

Returns: $value

Simple getter for Classes and hash-based objects which returns the value for the field name passed as an argument. This behaves much like Class::Data::Accessor where the field can be set in a base class, inherited and changed in subclasses, and inherited and changed for object instances.

set_inherited

Arguments: $field, $new_value

Returns: $new_value

Simple setter for Classes and hash-based objects which sets and then returns the value for the field name passed as an argument. When called on a hash-based object it will set the appropriate hash key value. When called on a class, it will set a class level variable.

Note:: This method will die if you try to set an object variable on a non hash-based object.

get_component_class

Arguments: $field

Returns: $value

Gets the value of the specified component class.

    __PACKAGE__->mk_group_accessors('component_class' => 'result_class');
    
    $self->result_class->method();
    
    ## same as
    $self->get_component_class('result_class')->method();

set_component_class

Arguments: $field, $class

Returns: $new_value

Inherited accessor that automatically loads the specified class before setting it. This method will die if the specified class could not be loaded.

    __PACKAGE__->mk_group_accessors('component_class' => 'result_class');
    __PACKAGE__->result_class('MyClass');
    
    $self->result_class->method();

get_super_paths

Returns a list of 'parent' or 'super' class names that the current class inherited from.

AUTHORS

Matt S. Trout <mst@shadowcatsystems.co.uk> Christopher H. Laco <claco@chrislaco.com>

LICENSE

You may distribute this code under the same terms as Perl itself.