X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FAccessorGroup.pm;h=4478f413ae6ec2f50a04974489abeb90257b396e;hb=955f159099804674de35818a97a96a1a2d4ffb68;hp=9ef0a5151f05cab6ee5543d7abbb2b33440deed4;hpb=27f01d1f4fc106e0d27a13c6f6c9d5fa131e9447;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/AccessorGroup.pm b/lib/DBIx/Class/AccessorGroup.pm index 9ef0a51..4478f41 100644 --- a/lib/DBIx/Class/AccessorGroup.pm +++ b/lib/DBIx/Class/AccessorGroup.pm @@ -5,7 +5,7 @@ use warnings; use Carp::Clan qw/^DBIx::Class/; -=head1 NAME +=head1 NAME DBIx::Class::AccessorGroup - Lets you build groups of accessors @@ -290,7 +290,7 @@ sub get_component_class { return $self->{$get}; } else { $get = "_$get"; - return $self->can($get) ? $self->$get : undef; + return $self->can($get) ? $self->$get : undef; } } @@ -318,9 +318,9 @@ sub set_component_class { } else { $set = "_$set"; return $self->can($set) ? - $self->$set($val) : - $self->mk_classdata($set => $val); - } + $self->$set($val) : + $self->mk_classdata($set => $val); + } } 1;