use Carp::Clan qw/^DBIx::Class/;
-=head1 NAME
+=head1 NAME
DBIx::Class::AccessorGroup - Lets you build groups of accessors
return $self->{$get};
} else {
$get = "_$get";
- return $self->can($get) ? $self->$get : undef;
+ return $self->can($get) ? $self->$get : undef;
}
}
} else {
$set = "_$set";
return $self->can($set) ?
- $self->$set($val) :
- $self->mk_classdata($set => $val);
- }
+ $self->$set($val) :
+ $self->mk_classdata($set => $val);
+ }
}
1;