Rose::Object::MakeMethods::Generic 0.84

Rose::Object::MakeMethods::Generic is a Perl module that can create simple object methods.

SYNOPSIS

package MyObject;

use Rose::Object::MakeMethods::Generic
(
scalar =>
[
power,
error,
],

scalar --get_set_init => name,

boolean --get_set_init => is_tall,

boolean =>
[
is_red,
is_happy => { default => 1 },
],

array =>
[
jobs => {},
job => { interface => get_set_item, hash_key => jobs },
clear_jobs => { interface => clear, hash_key => jobs },
reset_jobs => { interface => reset, hash_key => jobs },
],

hash =>
[
param => { hash_key => params },
params => { interface => get_set_all },
param_names => { interface => keys, hash_key => params },
param_values => { interface => values, hash_key => params },
param_exists => { interface => exists, hash_key => params },
delete_param => { interface => delete, hash_key => params },

clear_params => { interface => clear, hash_key => params },
reset_params => { interface => reset, hash_key => params },
],
);

sub init_name { Fred }
sub init_is_tall { 1 }
...

$obj = MyObject->new(power => 5);

print $obj->name; # Fred

$obj->do_something or die $obj->error;

$obj->is_tall; # true
$obj->is_tall(undef); # false (but defined)
$obj->is_tall; # false (but defined)

$obj->is_red; # undef
$obj->is_red(1234); # true
$obj->is_red(); # false (but defined)
$obj->is_red; # false (but defined)

$obj->is_happy; # true

$obj->params(a => 1, b => 2); # add pairs
$val = $obj->param(b); # 2
$obj->param_exists(x); # false

$obj->jobs(butcher, baker); # add values
$obj->job(0 => sailor); # set value
$job = $obj->job(0); # sailor