=cut
-sub mk_accessors{
+sub mk_accessors {
my $self = shift;
my $meta = $locate_metaclass->($self);
my $class = $meta->name;
=cut
-sub mk_ro_accessors{
+sub mk_ro_accessors {
my $self = shift;
my $meta = $locate_metaclass->($self);
my $class = $meta->name;
=cut
#this is retarded.. but we need it for compatibility or whatever.
-sub mk_wo_accessors{
+sub mk_wo_accessors {
my $self = shift;
my $meta = $locate_metaclass->($self);
my $class = $meta->name;
=cut
-sub follow_best_practice{
+sub follow_best_practice {
my $self = shift;
my $meta = $locate_metaclass->($self);
=cut
-sub mutator_name_for{ return $_[1] }
-sub accessor_name_for{ return $_[1] }
+sub mutator_name_for { return $_[1] }
+sub accessor_name_for { return $_[1] }
=head2 set
=cut
-sub set{
+sub set {
my $self = shift;
my $k = shift;
confess "Wrong number of arguments received" unless scalar @_;
=cut
-sub get{
+sub get {
my $self = shift;
confess "Wrong number of arguments received" unless scalar @_;
my $meta = $locate_metaclass->($self);