1 package DBIx::Class::AccessorGroup;
3 sub mk_group_accessors {
4 my($self, $group, @fields) = @_;
6 $self->_mk_group_accessors('make_group_accessor', $group, @fields);
13 sub _mk_group_accessors {
14 my($self, $maker, $group, @fields) = @_;
15 my $class = ref $self || $self;
17 # So we don't have to do lots of lookups inside the loop.
18 $maker = $self->can($maker) unless ref $maker;
20 foreach my $field (@fields) {
21 if( $field eq 'DESTROY' ) {
23 &Carp::carp("Having a data accessor named DESTROY in ".
24 "'$class' is unwise.");
27 my $accessor = $self->$maker($group, $field);
28 my $alias = "_${field}_accessor";
30 *{$class."\:\:$field"} = $accessor
31 unless defined &{$class."\:\:$field"};
33 *{$class."\:\:$alias"} = $accessor
34 unless defined &{$class."\:\:$alias"};
39 sub mk_group_ro_accessors {
40 my($self, $group, @fields) = @_;
42 $self->_mk_group_accessors('make_group_ro_accessor', $group, @fields);
45 sub mk_group_wo_accessors {
46 my($self, $group, @fields) = @_;
48 $self->_mk_group_accessors('make_group_wo_accessor', $group, @fields);
51 sub make_group_accessor {
52 my ($class, $group, $field) = @_;
54 my $set = "set_$group";
55 my $get = "get_$group";
57 # Build a closure around $field.
62 return $self->set($field, @_);
65 return $self->get($field);
70 sub make_group_ro_accessor {
71 my($class, $group, $field) = @_;
73 my $get = "get_$group";
81 Carp::croak("'$caller' cannot alter the value of '$field' on ".
82 "objects of class '$class'");
85 return $self->get($field);
90 sub make_group_wo_accessor {
91 my($class, $group, $field) = @_;
93 my $set = "set_$group";
101 Carp::croak("'$caller' cannot access the value of '$field' on ".
102 "objects of class '$class'");
105 return $self->set($field, @_);