use strict;
use warnings;
-use NEXT;
-
=head1 NAME
DBIx::Class::AccessorGroup - Lets you build groups of accessors
=head1 METHODS
-=over 4
-
=cut
sub mk_group_accessors {
};
}
-1;
+sub get_simple {
+ my ($self, $get) = @_;
+ return $self->{$get};
+}
-=back
+sub set_simple {
+ my ($self, $set, $val) = @_;
+ return $self->{$set} = $val;
+}
+
+1;
=head1 AUTHORS