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
-Matt S. Trout <perl-stuff@trout.me.uk>
+Matt S. Trout <mst@shadowcatsystems.co.uk>
=head1 LICENSE