From: Peter Rabbitson <ribasushi@cpan.org>
Date: Thu, 18 Sep 2014 13:43:30 +0000 (+0200)
Subject: Improve SQLT::Parser warning messages (build further upon e089c417)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=10e3756737972e77ba1eb1dd00b28bce06543d7e;p=dbsrgits%2FDBIx-Class-Historic.git

Improve SQLT::Parser warning messages (build further upon e089c417)
---

diff --git a/lib/SQL/Translator/Parser/DBIx/Class.pm b/lib/SQL/Translator/Parser/DBIx/Class.pm
index c84f73e..3af0d04 100644
--- a/lib/SQL/Translator/Parser/DBIx/Class.pm
+++ b/lib/SQL/Translator/Parser/DBIx/Class.pm
@@ -173,7 +173,7 @@ sub parse {
 
             my $relsource = try { $source->related_source($rel) };
             unless ($relsource) {
-              carp "Ignoring relationship '$rel' - related resultsource '$rel_info->{class}' is not registered with this schema\n";
+              carp "Ignoring relationship '$rel' on '$moniker' - related resultsource '$rel_info->{class}' is not registered with this schema\n";
               next;
             };
 
@@ -192,7 +192,7 @@ sub parse {
 
             for ( keys %{$rel_info->{cond}} ) {
               unless (exists $other_columns_idx{$_}) {
-                carp "Ignoring relationship '$rel' - related resultsource does not contain one of the specified columns: '$_'\n";
+                carp "Ignoring relationship '$rel' on '$moniker' - related resultsource '@{[ $relsource->source_name ]}' does not contain one of the specified columns: '$_'\n";
                 next REL;
               }
             }