Fixed minor pod typo/improvement.

[dbsrgits/DBIx-Class-Schema-ResultSetAccessors.git] / lib / DBIx / Class / Schema / ResultSetAccessors.pm

diff --git a/lib/DBIx/Class/Schema/ResultSetAccessors.pm b/lib/DBIx/Class/Schema/ResultSetAccessors.pm
index b20df3e..73ca10d 100644 (file)
--- a/lib/DBIx/Class/Schema/ResultSetAccessors.pm
+++ b/lib/DBIx/Class/Schema/ResultSetAccessors.pm
@@ -7,22 +7,24 @@ use String::CamelCase;
 use Lingua::EN::Inflect::Phrase;
 use Sub::Name 'subname';
 
-our $VERSION = 0.001000;
+our $VERSION = 0.001001;
 
 sub register_source {
-    my $self = shift;
+    my $self    = shift;
     my $moniker = $_[0];
-    my $next = $self->next::method(@_);
+    my $next    = $self->next::method(@_);
+    my $schema  = ref($self) || $self;
+
+    my $accessor_name =
+        exists $self->resultset_accessor_map->{$moniker}
+             ? $self->resultset_accessor_map->{$moniker}
+             : $self->resultset_accessor_name($moniker);
 
-    my $schema = ref($self) || $self;
-    my $accessor_name = exists $self->resultset_accessor_map->{$moniker}
-        ? $self->resultset_accessor_map->{$moniker}
-        : $self->resultset_accessor_name($moniker);
     if ($schema->can($accessor_name)) {
         $self->throw_exception(
             "Can't create ResultSet accessor '$accessor_name'. " .
             "Schema method with the same name already exists. " .
-            "Try overloading the name in resultset_accessor_map."
+            "Try overloading the name via resultset_accessor_map."
         );
     }
 
@@ -37,7 +39,7 @@ sub register_source {
 }
 
 sub resultset_accessor_map {
-    return {};
+    {}
 }
 
 sub resultset_accessor_name {
@@ -49,11 +51,10 @@ sub resultset_accessor_name {
 }
 
 sub pluralize_resultset_accessor_name {
-    my $self = shift;
-    my $original = shift or return;
+    my ($self, $original) = @_;
 
-    return join q{_}, split /\s+/,
-        Lingua::EN::Inflect::Phrase::to_PL(join q{ }, split /_/, $original);
+    return join '_', split /\s+/,
+        Lingua::EN::Inflect::Phrase::to_PL(join ' ', split /_/, $original);
 }
 
 1; # eof
@@ -96,7 +97,7 @@ in your schema class and return a hashref map of Source => accessor names. E.g.:
  # in your MyApp::Schema class
  sub resultset_accessor_map {
     {
-        Source => 'my_source',
+        Source => 'my_sources',
         Artist => 'my_artists',
     }
  }